Hallo, ich benötige Eure Hilfe:
ich möchte in mehreren Zellen (z.B. C3:C23) eine Kalenderfunktion integrieren.
Im Code-Modul der Userform steht dann bei mir:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
UserForm1.Hide
End Sub
und im Code-Modul des Tabellenblattes:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$5" Or Target.Address = "$D$5" Then
UserForm1.Show
End If
End Sub
egal wie ich die Zieladressen ändere, ich bekomme die funktion nicht in mehrere zellen hintereinander.
Was mach ich falsch, wie muss die funktion eventuell geändert werden, bzw. wie erfolgt die adresseingabe ???
Freue mich über Eure Lösungen danke im vorraus !!!
|