Da hat mit Bill Gates wieder einmal das Bein gestellt.
Wie kann ich den folgenden Code so anpassen, dass die Ausführung des SUB's Formel_Copy erst nach erfolgter Aktualisierung der ODBC Abfrage gestartet wird?
Im Debug Modus läuft der Code fehlerfrei, wenn das aber normal im Code abläuft werden die ODBC Bezüge erst nach erfolgtem Makro erneuert.
Kurzer Ablauf was hier passiert:
1. Der Curser steht in Tabellenblatt X auf Zelle Y (Selection).
2. User klickt nun mit der Maus auf eine Befehlsschaltfläche, Makro OrdersetCopy wird ausgeführt.
3. Die aktive Selection ist im nun aktiviertem Tabellenblatt eingefüt aus A2 und wird noch mit einer Formel angepasst in Zelle B2.
4. Nun sollten die ODBC Abfragen aktualisiert werden, befor das Makro Formel Copy ausgeführt wird.
5. Fertig, wenn das mit dem Ablauf nicht wäre und die ODBC Aktualisierung nicht immer erst nach Beendigung des Makros erfolgen würde. Sh*t
Danke für Eure Erfahrung.
Sub OrdersetCopy()
'ODBC Parameter befüllen
Worksheets("Orderset Kunden").Range("A2").Value = Selection.Value
Worksheets("Orderset Kunden").Activate
'ODBC Abfragen aktualisieren
ActiveWorkbook.RefreshAll
'zerstörte Formeln nach aktualisierung neu aufbauen
Call Formel_Copy
End Sub
Sub Formel_Copy()
Range("K4").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-3],RC[-2],RC[-1])"
Selection.AutoFill Destination:=Range("K4:K43")
End Sub
Mit freundlichen Grüssen
Martin