Ich möchte gerne von einer ComboBox1 "UF" die Daten vom Blatt "Umbauplan" A4:A11,A15:A21 die Daten einlesen.
Es handelt sich hierbei um ein Datum, in Form von TTTTT TT MM JJ
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
Private Sub UserForm_Activate()
Dim i As Long
Dim rngReadIn As Range, rngCell As Range
Set rngReadIn = Range("A4:A11,A15:A21")
For Each rngCell In rngReadIn
With Me.ComboBox1
.AddItem Format(rngCell, "DD.MM.YYYY")
End With
Next
End Sub
Gruss Rainer