Stabile Ausführung des Makros
01.12.2006 11:27:08
Klaus Weinert
habe ein Makro zusammengesucht (meist hier aus dem Forum) das jetzt 90 mal durchläuft (durchlaufen sollte). Es geht so leidlich aber oft genug bleibt es auch mal hängen. Ich kann es von jeder Position weiterlaufen lassen, letzlich ist das aber auch nur eine "Krücke". Nun hoffe ich das sich jemand hier erbarmt und mir daraus mal schönes VBA macht.
Hier der jetzige Stand des Makro's:
Sub Makro01()
Workbooks("web.xls").Worksheets("Tabelle1").Range("F3").Copy
AppActivate "01.html - 2ndEditor" 'Die Bezeichnug in der Taskleiste
SendKeys "^v", False
SendKeys "%ds"
SendKeys "%db"
Application.Wait Now + TimeSerial(0, 0, 2)
AppActivate "web.xls"
Application.Run "'web.xls'!Makro02"
End Sub
Sub Makro02()
Workbooks("web.xls").Worksheets("Tabelle1").Range("F4").Copy
AppActivate "02.html - 2ndEditor" 'Die Bezeichnug in der Taskleiste
SendKeys "^v", False
SendKeys "%ds"
SendKeys "%db"
Application.Wait Now + TimeSerial(0, 0, 2)
AppActivate "web.xls"
Application.Run "'web.xls'!Makro03"
End Sub
usw.
Es wird also F3 bis F92 nacheinander kopiert und in 2ndEditor eingefügt. Die Dateien für 2ndEditor werden nacheinander mit einer Batch Datei erstellt und geöffnet. - Jedesmal wenn Excel eine der 2ndEditor Dateien schließt öffnet die Batch Datei in der Reihenfolge 01.html bis 90.html eine neue.
Wenn das Makro hängen bleibt, liegt es lt. VBA Editor meist an der Zwischenablage oder an der Fenstersteuerung. Testweise hatte ich auch schon versucht ein Application.CutCopyMode = False einzubauen um die Zwischenablage zu löschen, - hat aber nicht wirklich was gebracht. Application.Wait habe ich testweise mit 5 Sekunden probiert bringt aber keine Verbesserung.
Manchmal bleibt es schon beim 3. Aufruf hängen, machmal läuft es bis zum 60. Aufruf, - es gibt keine Regelmäßigkeit.
Ich denke das die Situation genau genug beschrieben ist und bedanke mich für eine Unterstützung.
MfG
Klaus