Code erklären

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Code erklären
von: Babs
Geschrieben am: 28.06.2015 20:14:05

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 <= lngLastRow Then
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

Bild

Betrifft: AW: Code erklären
von: Babs
Geschrieben am: 29.06.2015 10:08:48
Hallo,
findet sich keiner? :(

Bild

Betrifft: AW: Code erklären
von: Michael
Geschrieben am: 30.06.2015 20:32:19
Hi Babs,
vielleicht hilft Dir das erst Mal weiter: http://www.office-loesung.de/ftopic475029_0_0_asc.php
Ich muß jetzt aus dem Haus, sorry, und wenn Du grundsätzlich nicht weiter kommst, recherchiere bitte erst Mal: excel vba dtpicker
Schöne Grüße,
Michael

 Bild

Beiträge aus den Excel-Beispielen zum Thema "1. Tag aus "Monat in Klartext" und Jahr ausgeben"