Macro bei Auswahl (anklicken) einer Zelle starten.

[Berndkunz2000]

Hallo
Versuche gerade erste Schritte in Libre Office Basic.
Ich habe ein Dialogfeld erstellt, dass ich mit einem Button auf der Tabellenseite starten kann.

In Excel kann ich ein Makro mit der Auswahl einer Zelle in einer definierten Spalte starten.
Im Beispiel kann ich bei einer leeren Zelle das Datum aus dem Dialog setzen.

Geht das auch in Libre Office?

Excel Beispiel im Bild.

Danke
Bernd

[F3K Total]

Moin,
na klar geht das, Beispieldatei mit Makro anbei.

SETDATE.png (19.04 KiB) 1805 mal betrachtet

Gruß R

[Berndkunz2000]

Danke
Ich dachte eher an so was:
"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("A1:A120")
If Not Intersect(Target, rngBereich) Is Nothing Then
Kalender.Show
End If

Dim EingabeBereich As Range
Set EingabeBereich = Range("B3:P120")
If Not Intersect(Target, EingabeBereich) Is Nothing Then
Eingabe.Show
End If
End Sub
"
Habe mich in verschiedenen Quellen umgesehen aber keine Lösung gefunden.
Dann versuch ich es mit dem Doppelklick und dann einem Auswahlmenü für verschiedene Makros(Formulare)
Schade, aber MS fährt die Unterstützung für VBA auch immer weiter zurück.
Neue Zeit, neue Wege.
Friedliche Festtage

[mikele]

Hallo,
es gibt in Calc auch das Ereignis "Auswahl geändert". Leider ist die Auswertung dieses Ereignisses verzwickt, da je nachdem wie die Auswahlk geändert wird (per Tastatur, per Maus, einfache oder Mehrfachauswahl, ...) das Ereignis mehrfach ausgelöst wird.
Gerade in deinem Fall, wo du eine Dialog aufrufen wollst, würde das zu ganz schöner Verwirrung führen.
Der Weg über das Ereignis "Doppelklick" (oder auch "Rechtsklick") ist das erfolgreicher.
Für die EInschränkung auf einen Zellbereich würde ich F3KTotal's Makro etwas abwandeln:

Code: Alles auswählen

Sub Open_Dialog(oEvent) as boolean
    DialogLibraries.loadLibrary("Standard")
    osheet = thisComponent.CurrentController.activeSheet
    if oevent.supportsservice("com.sun.star.sheet.SheetCell") then
    	
        if osheet.getCellRangeByName("A2:A120").queryIntersection(oevent.RangeAddress).Count>0 then  'Bereich A2:A120
            oCell = oEvent
            odlgdate = CreateUnoDialog(DialogLibraries.Standard.dlgdate)
            odlgdate.execute
        endif
    endif
    Open_Dialog=true	'wichtig, um die Systemwirkung des Doppelklicks zu umgehen
End Sub

Das kannst du dann auch auf weitere Bereiche erweitern, in denen du verschiedene verschiedene Sub startest.
Allseits schöne Feiertage!

[F3K Total]

Moin,
ich hätte da noch eine weitere Variante. In LibreOffice ist es möglich, das Kontextmenü nach eigenen Bedürfnissen anzupassen. Wie ich finde, eine prima Sache.
Die Einstellung läßt sich global, für alle Libreoffice Calc Dokumente, aber auch lokal in einer einzelnen Datei speichern.
So können verschiedenste Makros über das Kontextmenü gestartet, aber z.B. auch Zellformatvorlagen zugewiesen werden.
Ein Beispiel:

KONTEXT.png (62.44 KiB) 1723 mal betrachtet

Über das Kontextmenü kann sowohl der Dialog zum Einfügen des Datums aufgerufen, als auch den gerade selektierten Zellen eine der drei gewünschten Zellvorlagen rot, gelb oder grün zugewiesen werden.
Beispieldatei (Kontextmenü lokal in der Datei gespeichert) anbei.

Gruß R

[Berndkunz2000]

Hallo F3K Total (R)
Hey, Sorry hätte früher Fragen sollen: Habe jetzt den Reiter "Bereich" entdeckt.
Damit habe ich die Befehle gefunden und komme jetzt weiter.
Wollte den Text aber nicht löschen, vielleicht hilft es ja einem andern auch noch.
DANKE

Ich habe jetzt hin und her probiert finde aber den Weg nicht was in das Kontextmenü zu bekommen.
Unter Ziel finde ich nicht das richtige.
Konnte einen Dialog ins obere Menüband einfügen aber zum Kontextmenü find ich keinen Zugang.
Deine Einträge (rot, gelb, grün, Datum Einfügen) find ich nicht in den Einstellungen.
Mit Extras/anpassen/ Kontextmenüs
Kategorie/Makros und Ziel? komme ich nicht weiter.
Kannst Du mich bitte mal Schrittweise zu den Farbtasten ins Kontextmenü einfügen führen?
So richtig weiter komme ich da auch mit dem Handbuch nicht.
Danke
Gruß Bernd

[F3K Total]

Habe eben keiner Rechner, daher aus dem Kopf:
Für die Farben habe ich zunöchst die drei Zellvorlagen rot, gelb und gün angelegt.
Dann über Extras/Anpassen/Kontextmenüs
Links ganz herunterscrollen, da finden sich Makros und Vorlagen.
Rechts das aktuelle Dokument als Speicherort, dann irgendwo "Zelle" als das Kontextmenü, dass angepasst werden soll anklicken, dann hinzufügen...
So etwa, bissel probieren.
Damit die Farben auch als Symbol angezeigt werden, habe ich eine Symbolleiste erzeugt, in der ich die Symbole zuordnen konnte, diese Leiste ist ausgeblendet.

Gruß R

[Berndkunz2000]

Danke

[F3K Total]

Moin,
hier noch zwei erklärende Bilder:
Erstellung des Kontextmenüs innerhalb der Datei SET_DATE_RIGHTCLICK.ods

KM.png (33.49 KiB) 1661 mal betrachtet

Damit die Symbole erscheinen, habe ich die Symbolleiste ZELLFARBE angelegt und die Symbole ausgetauscht ...

SA.png (32.79 KiB) 1661 mal betrachtet

HTH Gruß R

[Berndkunz2000]

Hey
Nochmal vielen Dank, für die Mühe, das zu erklären.
Der Umstieg von Excel zu Libre ist doch etwas steinig.
Danke.
VG Bernd