vieleicht kann mir jemand helfen??!!??
Ich will mit Hilfe des Steuerelement "Microsoft Date and Time Picker Control"
datums in bestimmte Zellen einfügen.
Ist das möglich und wenn ja wie??
Gruß
Harry
Die Datei https://www.herber.de/bbs/user/16549.xls wurde aus Datenschutzgründen gelöscht
harry
Private Sub DTPicker1_Change()
ActiveCell = DTPicker1
DTPicker1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target(1, 1), Range("A:A"))
If Target Is Nothing Then Exit Sub
With DTPicker1
.Top = Range(Cells(1, 1), Cells(Target.Row, 1)).Height - Target.Height
.Visible = True
End With
End Sub
Private Sub DTPicker1_Change()
ActiveCell = DTPicker1
DTPicker1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target(1, 1), Range("K:K,I:I,H:H"))
If Target Is Nothing Then
DTPicker1.Visible = False
Exit Sub
End If
With DTPicker1
.Top = Range(Cells(1, 1), Cells(Target.Row, 1)).Height - Target.Height
.Left = Range(Cells(1, 1), Cells(1, Target.Column)).Width - Target.Width
.Visible = True
End With
Um eine Datumsauswahl in Excel einzufügen, kannst du diese Schritt-für-Schritt-Anleitung befolgen:
Entwicklertools aktivieren:
Steuerelement einfügen:
Kalender Steuerelement positionieren:
VBA-Code hinzufügen:
Private Sub DTPicker1_Change()
ActiveCell.Value = DTPicker1.Value
DTPicker1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
DTPicker1.Top = Target.Top
DTPicker1.Left = Target.Left
DTPicker1.Visible = True
Else
DTPicker1.Visible = False
End If
End Sub
Entwurfsmodus beenden:
Jetzt kannst du ein Datum aus dem Kalender auswählen, und es wird in die aktive Zelle eingefügt.
Fehler: Steuerelement nicht sichtbar:
True
gesetzt ist.Fehler: Datum wird nicht in die Zelle eingefügt:
Fehler: DTPicker funktioniert nicht in Excel-Versionen vor 2016:
Wenn du den DTPicker nicht verwenden möchtest, kannst du auch ein Dropdown-Kalender in Excel einfügen:
Datenvalidierung verwenden:
Formularsteuerelemente:
Beispiel 1: Einfügen eines Datums in eine Adressliste
Beispiel 2: Nutzung des Dropdown-Kalenders
VBA anpassen: Du kannst den VBA-Code so anpassen, dass er in mehreren Spalten gleichzeitig funktioniert, indem du den Bereich im Intersect
-Befehl erweiterst.
Formatierung: Stelle sicher, dass die Zellen, in die du das Datum einfügst, als Datum formatiert sind, um Fehler zu vermeiden.
Verstecken des DTPickers: Überlege, den DTPicker unsichtbar zu machen, um das Arbeitsblatt übersichtlicher zu gestalten.
1. Wie füge ich ein Datumsfeld in Excel ein?
Du kannst ein Datumsfeld in Excel einfügen, indem du das Microsoft Date and Time Picker Control verwendest oder eine Datenvalidierung mit einer Liste von möglichen Daten einrichtest.
2. Kann ich mehrere Datumsfelder in Excel verwenden?
Ja, du kannst mehrere DTPicker-Steuerelemente in verschiedenen Zellen verwenden. Achte darauf, den VBA-Code entsprechend anzupassen, damit jedes Steuerelement in die richtige Zelle schreibt.
3. Welche Excel-Versionen unterstützen den DTPicker?
Der DTPicker ist in Excel 2016 und neueren Versionen verfügbar. Bei älteren Versionen solltest du alternative Methoden wie Dropdown-Listen verwenden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen