Userform und Sub
04.06.2004 12:43:44
chris
eine frage und zwar habe ich in folgendem code zwischen den Befehlszeilen einen aufruf zu einer Userform. Ich möchte jetzt das solange die Userform angezeigt wird der code nicht weiterleuft.
Die userform schliest sich selbst nach 20 sekunden wieder und dann soll erst mit dem Code weitergemacht werden der nach der Zeile
Userform1.show steht.
Hoffe ihr habt eine lösung für mich Parat ! Vielen Dank Chris
Sub zahlenmerken()
Range("A2:Z2").Interior.ColorIndex = xlNone
Range("A1:Z2").ClearContents
anzahl = InputBox("Anzahl der Zahlen eingeben die Sie sich merken wollen")
Cells(10, 1) = anzahl
For x = 1 To anzahl
Cells(1, x).NumberFormat = ""
Cells(1, x) = Int((10 * Rnd) + 1)
Next
UserForm1.Show
'Um diese Userform geht es hier soll das Makro Pausieren bis die Userform wieder 'geschlossen wird.
For x = 1 To anzahl
Cells(1, x).NumberFormat = ";;;"
Next
End Sub