Private Sub userform_Activate()
'Wiederholende Anzeige der Werte aus Spalte 1 von Zeile 1 bis 10
'bis die Schaltfläche "CommandButton1" gedrückt wird.
'Frage: Wie kann ich die Schleife unterbrechen, wenn dies mittels Schaltfläche 
' erfolgen soll?
 
   aktuelle_Zeile = 1
   Schleifen_Stop = 0
 
   While (Schleifen_Stop = 0)
      'Anzeige eines Wertes aus einem Tabellenblatt
      TextBox1.Value = Cells(aktuelle_Zeile, 1)
 
      'Wait - 1 Sekunden
      Application.Wait (Now + TimeValue("00:00:01"))
 
      'nach der 10. Zeile soll wieder bei Zeile 1 begonnen werden
      If aktuelle_Zeile < 10 Then
        aktuelle_Zeile = aktuelle_Zeile + 1
      Else
        aktuelle_Zeile = 1
      End If
 
'************************
'      'mein Lösungsansatz war
'      If CommandButton1 = ?????   then
'        Schleifen_Stop = 1
'      End If
'************************
 
   Wend
End Sub