Guten Morgen Zusammen,
leider habe ich seit längerem ein Problem mit dem Aufruf meiner Userform. Dabei handelt es sich lediglich um einen Kalender der beim Anklicken der Zellen J6 bis J506 und L6 bis L506 sich öffnen sollte. Aktuell kann ich beim der dritten Codezeile die Felder eingeben, jedoch keine Range und aktuell öffnet sich der Kalender bei den Zellen J6 und L7.
Sicherlich kann mir jemand weiterhelfen, wie ich dies umschreiben muss/sollte. Vielen Dank für eure Zeit.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Kalender aufrufen
Dim start As String
start = "J6,L7"
If InStr(1, start, ActiveCell.Address(0, 0)) Then frmCalender.Show
If InStr(1, start, ActiveCell.Address(0, 0)) Then
ActiveCell.Value = g_datCalenderDate
End If
End Sub
|