Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Makro per Button Starten/Beenden

Betrifft: Makro per Button Starten/Beenden von: Steffen
Geschrieben am: 21.05.2008 15:36:56

Hallo zusammen,

Ich möchte auf einer Userform mit einem Button ein Makro starten. Der Buttontext soll sich entsprechend von Start auf Ende umstellen.

Sprich: beim ersten Klick soll er das Makro starten und das Makro soll so lange laufen bis ich erneut auf den Button drücke.

Wie kann ich sowas in VBA umsetzen?

Vielen Dank im Vorraus.

Gruß Steffen

  

Betrifft: AW: Makro per Button Starten/Beenden von: selli
Geschrieben am: 21.05.2008 15:40:59

hallo steffen,

in der regel läuft ein makro so lange, wie es im makro drinsteht. ohne es zu sehen kann man da schlecht sagen, was da wie und wann unterbrochen werden muss. ist es eine ewige schleife?

den buttontext änderst du so:

userform1.commandbutton1.caption="blabla"

gruß selli


  

Betrifft: AW: Makro per Button Starten/Beenden von: Sonnenpeter
Geschrieben am: 21.05.2008 15:48:52

Hallo,


Sub Test()
MsgBox "Makro tue das EINE"
ActiveSheet.Shapes("Button 1").OnAction = "Test2"
End Sub




Sub Test2()
MsgBox "Makro tue das ANDERE"
ActiveSheet.Shapes("Button 1").OnAction = "Test"
End Sub




Gruß Sonnenpeter


  

Betrifft: AW: Makro per Button Starten/Beenden von: Sonnenpeter
Geschrieben am: 21.05.2008 16:19:23

Ups,

ich sollte richtig Lesen!

Gruß Sonnenpeter


  

Betrifft: AW: Makro per Button Starten/Beenden von: Reinhard
Geschrieben am: 21.05.2008 17:04:19

Hi Steffen,

Private Sub CommandButton3_Click()
CommandButton2.Visible = True
CommandButton3.Caption = IIf(CommandButton3.Caption = "Start", "Ende", "Start")
While CommandButton3.Caption = "Ende"
   Range("A1") = Range("A1") + 1
   DoEvents
Wend
End Sub



Private Sub UserForm_Initialize()
CommandButton3.Caption = "Start"
End Sub



Gruß
Reinhard


  

Betrifft: AW: Makro per Button Starten/Beenden von: Steffen
Geschrieben am: 21.05.2008 17:28:33

Super, haut hin.


Danke euch!


 

Beiträge aus den Excel-Beispielen zum Thema "Makro per Button Starten/Beenden"