Von |
Anja |
Am |
11. Oktober 2008 um 15:21:31 |
Frage |
Hi,
ich habe eine Userform angelegt. Darin habe ich eine Textbox und eine Schaltfläche palziert.
Wenn ich das Programm aufrufe, sollen in der Textbox solange die Werte aus Spalte A eingetragen werden, bis ich mittels einer Schlatfläche diesen Vorgang stoppe. Die Werte werden über eine Schleife in die Textbox geschrieben. Und genau das ist mein Problem. Ich weiß nicht, wie ich die Schaltfläche dazu bringe die Schleife zu stoppen, da doch der Code in der Schleife hängt und somit das Programm niemals zu dem Punkt "CommandButton1_Click" kommt.
Kann mir bitte jemand sagen, wie ich die Schleife mittels der Schaltfläche zum stoppen bringen kann?
Vielen lieben Dank! AnjaPrivate 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 |
|