Label Caption ändern
13.06.2019 12:10:17
Michael
ich habe eine UserForm erstellt und in dieser ein Label, das seine Bezeichnung (Caption) aus einer Zelle bekommt, so weit so gut. Nun soll über einen Button die Bezeichnung eine Zeile weiter gehen, also sozusagen die nächste Zeile einer Datenbank aufrufen. Ich habe es mit einer For - next Schleife probiert, da rattert es aber nur bis zum Ende durch, ohne Zwischenhalt.
Private Sub CommandButton1_Click()
Dim i As Long
letztezeile = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To letztezeile
i = i + 1
Bezeichnung.Caption = Range("B" & i).Value
Next
'UserForm1.Repaint
End Sub
Ich hoffe es kann mir jemand helfen.
Grüße
Michael