Seite 1 von 1

Makros nacheinander abspielen mit Delay

Verfasst: Di, 28.11.2017 17:13
von MatFynus
Hallo,
gibt es eine Funktion, mit der man Makros nacheinander abspielen kann mit einem delay dh.



Sub test

meinmakro()

"dann die Warte-Funkion die ich suche (Delay und nacheinander)"

meinmakro2()

End Sub


danke für jegliche Bemühungen

LG.
Matthias

_________________
Moderation: Thema verschoben nach Makros und allgemeine Programmierung, wo alle Themen zur individuellen Programmierung hingehören.
lorbass, Moderator

Re: Makros nacheinander abspielen mit Delay

Verfasst: Di, 28.11.2017 19:41
von Stephan
z.B.:

Code: Alles auswählen

Sub test

 meinmakro()

 Wait 1000 '1000 Millisekunden warten 

 meinmakro2()

 End Sub
Gruß
Stephan

Re: Makros nacheinander abspielen mit Delay

Verfasst: Di, 28.11.2017 21:04
von Stephan
Es werden beide gleichzeitig aktiviert.
kann ich mir nicht vorstellen, überprüfe das bitte z.B. mit:

Code: Alles auswählen

Dim zeit

Sub test
	
	zeit = ""
	plus()
	
	Wait 1000 '1000 Millisekunden warten 
	
	plus()
	
	Msgbox zeit

End Sub


Sub plus()
zeit = zeit & " " & Now()
thisComponent.sheets().getbyname("Tabelle1").getcellrangebyname("AU15").value =_
thisComponent.sheets().getbyname("Tabelle1").getcellrangebyname("AU15").value + 1
End Sub

Gruß
Stephan

Re: Makros nacheinander abspielen mit Delay

Verfasst: Mi, 29.11.2017 08:14
von Toxitom
Hallo Matthias,

erzähl doch bite erst einmal etwas mehr über Dein Makro und über Dein Ziel: Wie rufst Du das Makro auf, warum doppelt, Was willst Du endgültig erreichen?

Stephan hat Dir die Lösung schon gegeben - wie es programmtechnisch lösbar ist. Das heisst aber nicht, dass es Deinen Anwendungsfall löst - denn den kennen wir ja gar nicht.

Es ist also müssig, wenn einer sagt: "es geht" ud der andere "es geht nicht". Ohne Kenntnis der Ausgangssituation und der gewünschten Zielstellung sind diese Aussagen sinnlos. Deine Makros wirken auf mich wie eine "zählvariable", die würde man aber sicher anders lösen. Aber egal ...

... gib mal ein wenig Input:)

VG
Tom