Hallo liebe Forumsgemeinde,
kann mir jmd den Code erklären?
With Tabelle1
lngLastRow = Application.Max(lngDateRow, .Cells(.Rows.Count, 4).End(xlUp).Row)
minDate = Application.Min(.Rows(4))
maxDate = Application.Max(.Rows(4))
DTPicker1.minDate = minDate
DTPicker1.maxDate = maxDate
DTPicker2.minDate = minDate
DTPicker2.maxDate = maxDate
DTPicker1.Value = Date
DTPicker2.Value = Date + 1
vntName = .Range(.Cells(lngDateRow, 4), .Cells(lngLastRow, 4))
lstName.List = vntName
If ActiveCell.Row >= lngDateRow And ActiveCell.Row lstName.ListIndex = ActiveCell.Row - lngDateRow
Else
lstName.ListIndex = 0
End If
End With
End Sub
Hätte auch hier die Datei dazu, muss nur dazu sagen, dass ich kein DTPicker unter meinen Steuerelementen habe, hab jetzt in der UserForm ein Textfeld eingefügt.
https://www.herber.de/bbs/user/98530.xlsm
Würde sowas aber auch mit einem Textfeld funktionieren?
Vielen Dank,
Babs