ist es möglich ein XLA zu starten, siehe Beispiel
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim start As String
start = "A1,C2,D3"
If InStr(1, start, ActiveCell.Address(0, 0)) Then vbaCalendar.xla
End Sub
Ziel= bei Klick auf def. Zellen soll Kalender sich öffnen.
DANKE für Hilfe
gruss helena