Clever-Excel-Forum

Hallo,

ich möchte gerne automatisch von einer Datei zu einer anderen wechseln. Dazu habe ich ein kleines Makro in einer Userform geschrieben.

Code:
Sub CommandButton1_Click()

Unload Me

Application.Workbooks.Open "C:\000 Projekt\01 Learn.xlsm"

Application.Workbooks("01 Learn.xlsm").Sheets("Tabelle1").Range("B1").Select

Application.DisplayAlerts = False

Application.ThisWorkbook.Close SaveChanges:=True

End Sub

Das Problem ist, dass ich bei Ausführung des Makros die Fehlermeldung bekomme, "Excel" funktioniert nicht mehr, Anwendung wird geschlossen.
Was habe ich bei meinem Code falsch gemacht?

Hallo,
es könnte sein, dass in deiner "01 Learn.xlsm" ein anderes Blatt aktiv ist, deswegen würde ich deine Zeile

Zitat:Application.Workbooks("01 Learn.xlsm").Sheets("Tabelle1").Range("B1").Select

aufsplitten in:

Code:
Application.Workbooks("01 Learn.xlsm").Sheets("Tabelle1").Select

Range("B1").Select

Ansonsten sehe ich keinen Fehler, genauso hat es bei mir funktioniert.

Quantum

UnsUwe