Datum in Zelle eintragen
ich möchte ein Datum in eine bestimmte Zelle eintragen
Hallo,
ich möchte durch anklicken einer bestimmte Zelle, das sich ein Kalender öffnet und das das ausgewählte Datum in diese Zelle eingetragen wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Count > 1 Then Exit Sub ' mehr als eine Zelle ausgewählt
Set RaBereich = Range("i6,i116")
'Intersect ("I7:i116")
If Not Intersect(Target, RaBereich) Is Nothing Then FRM_Kalender.Show
End Sub
das habe ich im Tabelleblatt stehen irgendwie ging das schon malaber seit dem ich diese Tabelle kopiert habe kommt immer folgender Fehler
Laufzeitfehler 424 objekt erforderlich
Danke
Gruß Tommhii
Hallo,
ich möchte durch anklicken einer bestimmte Zelle, das sich ein Kalender öffnet und das das ausgewählte Datum in diese Zelle eingetragen wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Count > 1 Then Exit Sub ' mehr als eine Zelle ausgewählt
Set RaBereich = Range("i6,i116")
'Intersect ("I7:i116")
If Not Intersect(Target, RaBereich) Is Nothing Then FRM_Kalender.Show
End Sub
das habe ich im Tabelleblatt stehen irgendwie ging das schon malaber seit dem ich diese Tabelle kopiert habe kommt immer folgender Fehler
Laufzeitfehler 424 objekt erforderlich
Danke
Gruß Tommhii
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 158652
Url: https://administrator.de/contentid/158652
Ausgedruckt am: 26.11.2024 um 14:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo Tommhii!
Hier müsste anstatt einem Komma wohl ein Doppelpunkt in Range stehen (von Zelle I6 bis I116) oder nicht?
Du kannst es aber auch so machen:
Und Deine UserForm "FRM_Kalender" muss natürlich auch existieren
Gruß Dieter
Hier müsste anstatt einem Komma wohl ein Doppelpunkt in Range stehen (von Zelle I6 bis I116) oder nicht?
Set RaBereich = Range("i6,i116")
Du kannst es aber auch so machen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then 'Eine Zelle ausgewählt
If Not Intersect(Target, Range("I6:I116")) Is Nothing Then FRM_Kalender.Show
End If
End Sub
Gruß Dieter