Schönen Abend
hab nochmals eine Frage
mit folgendem Code lese ich Daten aus der Tabelle in Labels ein welche sich in einer Userform befinden
Dim lngRow As Long
With Worksheets("Berechungen")
For lngRow = 13 To .Cells(.Rows.Count,2).End(xlUp).Row
Controls("Label" & CStr(lngRow - 12)).Visible = True
Controls("Label" & CStr(lngRow - 12)).Caption = .Cells(lngRow, 2).Text
Next
End With
Das fuktioniert ganz gut.
Mein Problem dabei
Meine Daten die eingelesen werden sollen verteilen sich über 5 Spalten
Und die Daten können auch schon in Zeile 1 stehen.
Das bedeutet, es sollte der erste Wert in Spalte B gesucht werden und solange nach unten laufen bis die erste freie Zeile erreicht ist. Dann sollte die Spalte C duchlaufen werden usw bis alle 5 Spalten durchlaufen sind
Vielen dank