|
Hallo,
ich habe eine kleine Frage an die Profis:
Ich habe mir ein Makro gebastelt, dass in der Lage sein soll Anweisungen auf dem Display anzuzeigen für bestimmte Zeitintervalle. Hierzu habe ich eine einfach UserForm genommen (weil bei einer MsgBox leider die Größe nicht verändert werden kann) und den folgenden Code hinzugefügt:
Sub Auswertemakro()
If Cells(3, 1) <> "" Then
imax = Cells(2, 1).End(xlDown).Row
Else
imax = 2
End If
For i = 2 To imax
Anweisung = Cells(i, 1)
Zeit = Cells(i, 2)
UserForm1.TextBox1.Text = Anweisung
UserForm1.Show vbModeless
Application.Wait Now + Zeit
Unload UserForm1
Next i
End Sub
Dazu habe ich im Excel-Arbeitsblatt in der Spalte A die Anweisungen (z.B. in Spalte A2 "Mach xyz") und in Spalte B die Zeitdauer wie lange die Userform eingeblendet werden soll.
In Spalte B steht also z.B. in Spalte B2 "00:00:02" , d.h. die UserForm soll für 2s angezeigt werden.
Das Makro funktioniert auch soweit gut, nur leider wird die UserForm nicht angezeigt. Die erste wird noch angezeigt, aber die restlichen werden einfach durchlaufen. Komischerweise sehe ich alle UserForm, wenn ich das Makro in Einzelschritten mit F8 durchgehe.
Kann mir jemand weiterhelfen?
Vielen Dank vorab und Grüße,
Sarabjit
|