OpenOffice.info

[quote="ChristianAC"]Deine Version ist zu alt. Ich benutze, hier zumindest, 3.0.0 (ich weiss warum) und habe auch keine Tabellenereginisse,
dann kann es ja gar nicht klappen. Bliebe die Lösung vom F3K Total[/quote]

Habe die Version OpenOffice.org 3.2.1, da siehts im Kontextmenü so wie auf Foto aus.
Kann leider nicht updaten weil ich auf meinem Arbeits PC keine Adminrechte habe.
Was kann ich tun?
Könnte mir nicht doch bitte einer von Euch das Macro fertig machen?
[attachment=0]Namensliste_kastriert_macro1.ods[/attachment]
Danke für Eure Hilfe.

Vermutung:
Deine Version ist zu alt. Ich benutze, hier zumindest, 3.0.0 (ich weiss warum) und habe auch keine Tabellenereginisse,
dann kann es ja gar nicht klappen. Bliebe die Lösung vom F3K Total

[quote="Stephan"]Danach verknüpfst Du das Makro "Sub datum" mit dem Ereignis "Inhalt geändert" der Tabelle "Liste" (im Kontextmenü des Tabellenregisters unter "Tabellenereignisse")

[/quote]

habs probiert und die Module datum_auto und datum_auto_suche erstellt.
Aber das andere bekomme ich nicht auf die Reihe.
Aber sieh selbst im Anhang.
Kannst Du das für mich machen?
Danke für Deine Hilfe.
[attachment=0]Namensliste_kastriert_macro1.ods[/attachment]

Sub datum()
   ThisComponent.Sheets().GetByName("Liste").getCellrangeByName("D1").String = Date()
End Sub

Alles Nötige ist doch bereits im Thread beschrieben:

[quote]Das Macro einbinden:

Über Extras > Macros > Makros verwalten > OpenOffice Basic öffnest du die Macro-Auswahl. Im Baum suchst du deine Datei und klappst aus. Wenn noch kein Macro drin ist, hast du nur folgende Strucktur:

Datei [Dein Dateiname] > Ordner "Standard"

Dann hast du rechts einen Button "Neu". Damit legst du ein neues Modul (Standard: "Modul 1", umbenennen in "Allg") an. Du kannst auch Später mit Rechtsklick auf den Reiter im Basic-Editor umbenennen. Ebenfalls mit Rechtsklick legst du ein zweites Modul "Suche" an.

Jetzt öffnest du die Beispieldatei, gehst wieder in den Macro-Editor und wählst diese aus dem Pulldown oben links aus und kopierst [...]
[/quote]

... den Makrocode:

[code]Sub datum()
ThisComponent.Sheets().GetByName("Liste").getCellrangeByName("D1").String = Date()
End Sub[/code]

in eines der Module (also in "Allg" oder "Suche")

Danach verknüpfst Du das Makro "Sub datum" mit dem Ereignis "Inhalt geändert" der Tabelle "Liste" (im Kontextmenü des Tabellenregisters unter "Tabellenereignisse")


Gruß
Stephan

kann mir hier keiner mehr helfen?
komme einfach nicht weiter.
Danke

[quote="hersat"]wegen dem einzufüllenden Datum - gibt es eine Möglichkeit wenn z.B in Feld F3 bis M2000 Daten eingegeben oder verändert wurden das sich in Feld D1 automatisch das Datum aktualisiert?
[/quote]

jetzt tüftle ich schon wieder mit dem Macro rum, aber bekomme es nicht gebacken.
kann das einer für mich machen, kann schon gar nicht mehr denken?
Datei im Anhang.
Vielen Dank.

[quote="hersat"]könntest Du bitte das Makro einfügen, bekomme das noch nicht auf die Reihe.[/quote]

Wo genau hängt es denn?

In http://de.openoffice.info/viewtopic.php?p=256733#p256733 habe ich doch eine kleine Anleitung geschrieben, das kannst du sinngemäß auch hier anwenden. Stephan hat dir die nötigen Infos gegeben, wie es verknüpft wird (eben nicht an ein Formularelement, sondern an ein Tabellenereignis).

[quote="Stephan"]füge ein Makro ins Dokument ein:

Code: Alles auswählen
Sub datum()
ThisComponent.Sheets().GetByName("Liste").getCellrangeByName("D1").String = Date()
End Sub


und verknüpfe Dieses mit dem Ereignis "Inhalt geändert" der Tabelle "Liste" (im Kontextmenü des Tabellenregisters unter "Tabellenereignisse")[/quote]

oje, da war es wieder das Problem.
könntest Du bitte das Makro einfügen, bekomme das noch nicht auf die Reihe.
Danke für die Hilfe

Sub datum()
	ThisComponent.Sheets().GetByName("Liste").getCellrangeByName("D1").String = Date()
End Sub

füge ein Makro ins Dokument ein:

[code]Sub datum()
ThisComponent.Sheets().GetByName("Liste").getCellrangeByName("D1").String = Date()
End Sub[/code]

und verknüpfe Dieses mit dem Ereignis "Inhalt geändert" der Tabelle "Liste" (im Kontextmenü des Tabellenregisters unter "Tabellenereignisse")


Gruß
Stephan

[quote="hersat"]Super, funktioniert perfekt mit der Namensuche, danke.

wegen dem einzufüllenden Datum - gibt es eine Möglichkeit wenn z.B in Feld F3 bis M2000 Daten eingegeben oder verändert wurden das sich in Feld D1 automatisch das Datum aktualisiert?[/quote]
Kann mir hier keiner weiterhelfen?
Danke

[quote="TrueColor"]Ich habe das mal in deiner Datei gemacht, da hast du was zum vergleichen.[/quote]

Super, funktioniert perfekt mit der Namensuche, danke.

wegen dem einzufüllenden Datum - gibt es eine Möglichkeit wenn z.B in Feld F3 bis M2000 Daten eingegeben oder verändert wurden das sich in Feld D1 automatisch das Datum aktualisiert?

Danke für die Hilfe.

sSearchCellName = "O1"

oSearchRange = oSheet.getCellRangeByPosition(2,2,2,nLastUsedRow)

[quote="hersat"]komme allerdings nicht weiter kann das Macro nicht zuordnen, das Suchfeld ist nicht ab A3 sondern ab C3, kann kein Suchfeld erstellen usw. .
Bin einfach mit OpenOffice überfordert.[/quote]


[b]Das Macro einbinden:[/b]

Über Extras > Macros > Makros verwalten > OpenOffice Basic öffnest du die Macro-Auswahl. Im Baum suchst du deine Datei und klappst aus. Wenn noch kein Macro drin ist, hast du nur folgende Strucktur:

Datei [Dein Dateiname] > Ordner "Standard"

Dann hast du rechts einen Button "Neu". Damit legst du ein neues Modul (Standard: "Modul 1", umbenennen in "Allg") an. Du kannst auch Später mit Rechtsklick auf den Reiter im Basic-Editor umbenennen. Ebenfalls mit Rechtsklick legst du ein zweites Modul "Suche" an.

Jetzt öffnest du die Beispieldatei, gehst wieder in den Macro-Editor und wählst diese aus dem Pulldown oben links aus und kopierst jeweils den kompletten Inhalt der Module "Allg" und "Suche" in die jeweiligen Module deiner Datei. (Wie die Module heißen ist eigentlich egal, es kann auch alles in einem Modul stehen, das dient nur der Strukturierung).

[b] Das Suchfeld erstellen:[/b]

Du aktivierst über die (Formular-)Steuerelemente den Formular-Entwurfsmodus (in der Symbolleiste das Werkzeug mit Zeichendreieck, Lineal, Bleistift). Erstellst ein Textfeld (Idealerweise in der Kopfzeile deiner Tabelle, damit das nicht mit wegscrollt, wenn du Zellen über Menü > Fenster > fixieren fixierst. Mit Rechtsklick den Eigenschaftendialog des Textfeldes aufrufen. Im Reiter Daten bei Verknüpfte Zelle eine Zelle eintragen, in die das Textfeld seine Daten schreibt. Die liegt meiner Meinung nach idealerweise auch in der Kopfzeile neben dem Textfeld (oder wird von diesem verdeckt, das sieht dann schöner aus, man kann aber nicht mehr kontrollieren, ob das übereinstimmt).

[b]Das Macro anpassen:[/b]

Im Modul "Suche" findest du (in diesem Fall das einzige in diesem Modul) das Macro "Schnellfilter"

DAs fängt mit einem "Dim"-Block an, im darauffolgenden Block findest du die Zeile

[code]sSearchCellName = "O1"[/code]

O1 änderst du in die Zelle , welche du in den Eigenschaften des Textfeldes als verknüpte Zelle festgelegt hast.

In der Zeile obendrüber ist der Suchbereich festgelegt. Das sucht über die komplette Tabelle von A2 bis zur letzten benutzen Zelle rechts unten (die du auch mit Strg+Ende erreichst). Willst du ausschließlich die Spalte "Nachname" durchsuchen, musst du anpassen. Die Parameter sind die 2 Eckpunkte (Startspalte, Startzeile, Endspalte, Endzeile). Bei dir also

[code]oSearchRange = oSheet.getCellRangeByPosition(2,2,2,nLastUsedRow)[/code]

Also von C3 bis letzter Eintrag (Beachte: die Zählung beginnt bei Null!)

[b]DAs Macro aktivieren:[/b]

Formular-Entwurfsmodus aktivieren, Rechtsklick auf das Textfeld, Kontrollfeld... > Reiter "Ereignisse" > Zeile "Text modifiziert" am Ende der Zeile auf den Knopf drücken > Dialogfeld "Aktion zuweisen", die Zeile "Text modifiziert" ist schon markiert > Zuweisen: Button "Macro" > aus dem Macro-Selector das Macro "Namen_suchen" raussuchen. Zum Schluss den Formular-Entwurfsmodus verlassen.

Ich habe das mal in deiner Datei gemacht, da hast du was zum vergleichen.


[quote]Habe noch in D1 ein Datumsfeld mit =heute() das mit F2 - F9 - Enter zu aktualisieren ist, gibt es dort etwas besseres?[/quote]

nützt dir das etwas?
http://de.openoffice.info/viewtopic.php?f=2&t=65898

B[quote="TrueColor"]Beitrag von TrueColor » Fr, 19.06.2015 11:31
Siehe Anhang. Findet nur das erste Vorkommen und setzt den Cursor da hin. Auch unsortierte Listen oder Listen mit Duplikaten möglich.[/quote]eitrag

Das kann funktionieren, komme allerdings nicht weiter kann das Macro nicht zuordnen, das Suchfeld ist nicht ab A3 sondern ab C3, kann kein Suchfeld erstellen usw. .
Bin einfach mit OpenOffice überfordert.

Vielleicht könnte sich einer von Euch daran versuchen, habe die kastrierte (Dartenschutz) Datei im Anhang.
Ab C3 stehen fast 2000 Namen auf diese sollten die Suche zugreifen.
Optimal wäre beim Eingeben des gesuchten Namen (egal ob groß oder kleiner Buchstabe) und zwar Buchstabe für Buchstabe zum nächsten wahrscheinlichsten Suchtreffer
In F1 - M1 könnte das Suchfeld für den Namen untergebracht werden

[attachment=0]Namensliste_kastriert.ods[/attachment]

Habe noch in D1 ein Datumsfeld mit =heute() das mit F2 - F9 - Enter zu aktualisieren ist, gibt es dort etwas besseres?

Wäre super wenn mir jemand helfen könnte.
danke.

{=MIN(WENN((LINKS(A3:A2999;LÄNGE(C2))=C2);ZEILE(A3:A2999);10000))}

=HYPERLINK("#Tabelle1.A"&B2;"Suchen")

Hi,
anbei eine Alternative, ohne Makro.
Funktion:
Die Matrixormel in B2[code]{=MIN(WENN((LINKS(A3:A2999;LÄNGE(C2))=C2);ZEILE(A3:A2999);10000))}[/code]sucht in den Zellen A3 bis A2999 nach dem Suchbegriff in C2 und gibt die Zeile des ersten Treffers zurück.
Die Formel[code]=HYPERLINK("#Tabelle1.A"&B2;"Suchen")[/code] in Zelle D2 erzeugt einen Hyperlink auf die Zelle in Spalte A, die in der Zeile des ersten Treffers steht.
Gruß R

Siehe Anhang. Findet nur das erste Vorkommen und setzt den Cursor da hin. Auch unsortierte Listen oder Listen mit Duplikaten möglich.