AW: Datum mittels Kalender Pop-up einfügen
30.07.2024 14:30:19
Alwin Weisangler
Hallo Jörg,
im Clever-Excel Forum habe ich gesehen, dass du das Addin verwendest, was ich da mal hochgeladen hatte.
Anbei zum AddIn ist eine Beispieldatei. Um jetzt das AddIn auszuprobieren ist eine Datei: "Vorlage zum Aufruf SimpleDatePickerAddin.xlsm" drin enthalten.
Die startest du mal und gehst danach mit Alt/F11 in den VBA Editor.
Im VBA Projektfenster siehst neben dieser Datei auch das AddIn. Das AddIn bleibt in unserem weiteren Vorgehen unbeachtet.
Doppelklicke auf das Modul des Tabellenblattes "Tabelle1" der Datei "Vorlage zum Aufruf SimpleDatePickerAddin.xlsm"
Dann siehst du unter anderem folgende Prozedur im Codefenster:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim ul_objAusgabe As Variant
If Not Intersect(Target, Range("A2:B100")) Is Nothing Then ' Zellbereich der via Rechtsklick den Datepicker aktiviert
Set ul_objAusgabe = Target.Cells
If AddIns("Simpledatepicker").Installed = True Then
Application.Run "'SimpleDatepicker.xlam'!StartDatePicker", ul_objAusgabe
Else
MsgBox "Das AddIn SimpleDatepicker.xlam ist nicht aktiviert"
End If
Cancel = True
End If
Exit Sub
End Sub
Mit dieser Ereignisprozedur reagiert auf Rechtsklick über einer Zelle der Spalte A von A2 bis A100.
In der Zeile:
If Not Intersect(Target, Range("A2:B100")) Is Nothing Then
passt du dir den Bereich oder einzelne Zelle wo per Rechtsklick der SimpleDatePicker sich öffnet an.
Beispiel für Zelle "A5":
If Not Intersect(Target, Range("A5")) Is Nothing Then
Die nun angepasste Ereignisprozedur kopierst du nun in das Modul des Tabellenblattes deiner produktiven Datei. Das war dann auch schon.
Gruß Uwe
