tommhii
Goto Top

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

Content-Key: 158652

Url: https://administrator.de/contentid/158652

Ausgedruckt am: 28.03.2024 um 15:03 Uhr

Mitglied: 76109
76109 14.01.2011 um 12:06:12 Uhr
Goto Top
Hallo Tommhii!

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
Und Deine UserForm "FRM_Kalender" muss natürlich auch existieren

Gruß Dieter
Mitglied: tommhii
tommhii 14.01.2011 um 16:31:36 Uhr
Goto Top
Danke für deine Antwort hab den fehler gefunden