Zur Erklärung:
Ich suche immer bestimmten Text und kopieren den. Wenn beim ersten mal der Text nicht gefunden wird findet ein Sprung zur nächsten Suche statt. Das ist ok, nur wenn dann bei der dritten Suche der Text nicht gefunden wird bleibt das Makro stehen.
Ich komme nicht dahinter warum. Bräuchte mal eine gezielte Vorgabe.
Sub Liefermenge()
' Liefermenge Makro
Windows("Daten.xlsm").Activate, meine Grunddatei
Windows("Liefermenge_aktuell.xlsx").Activate
, wechseln in die andere Datei
On Error GoTo 1
, wenn Typ A gefunden läuft der Teil richtig weiter, das funktioniert auch gut
Cells.Find(What:="Typ A").Activate
, suche den Typ A
Selection.Copy
Windows("BU-0km_VW.xlsm").Activate
, wechseln in die Grunddatei
ActiveSheet.Paste
1
Windows("Liefermenge_aktuell.xlsx").Activate
, wechseln in die andere Datei
On Error GoTo 2
, wenn Typ A nicht gefunden wird Sprung zu 2, das funktioniert auch gut
Cells.Find(What:="Typ B").Activate
Selection.Copy
Windows("BU-0km_VW.xlsm").Activate
ActiveSheet.Paste
2
Windows("Liefermenge_aktuell.xlsx").Activate
, wechseln in die andere Datei
On Error GoTo 3
Cells.Find(What:="Typ C").Activate
, suche den Typ C , nicht gefunden dann bleibt alles stehen
Selection.Copy
Windows("BU-0km_VW.xlsm").Activate
ActiveSheet.Paste
3
End Sub