Untere Code befüllt eine UF Combobox
Ich hätte aber gerne das die Werte von Sheets "Jänner" von A3 bis A154 gefüllt werden.
Könnte mir dazu bitte jemand helfen?
Gruß Heinz
Private Sub UserForm_Initialize()
Call BlattSchutz_Aufheben
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Not IsEmpty(Cells(iRow, 1)) Then
cboNoEmptys.AddItem Cells(iRow, 1).Value
End If
Next iRow
End Sub