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