Hallo zusammen,
suche jetzt schon seit zwei Tagen hier im Forum, aber alle gefundenen "Lösungen" helfen nicht wirklich weiter.
Folgendes Problem:
Ich lasse über folgenden Code eine Datei öffnen und weise dem Dateinamen eine Variable zu
On Error Resume Next
Dim MAST As Variant
MAST = Application.GetOpenFilename
If MAST "Falsch" Then
Workbooks.Open Filename:=MAST
Else
Exit Sub
End If
Nun mache ich zu einem späteren Zeitpunkt eine Datei auf, speichere diese und weise diesen Namen dann wiederum einer anderen Variable zu
On Error Resume Next
Dim AUSWERT As Variant
AUSWERT = Application.GetSaveAsFilename
If AUSWERT "Falsch" Then
ActiveWorkbook.SaveAs Filename:=AUSWERT, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Else
Exit Sub
End If
Nun ist das Problem, dass ich nicht mehr die erste Datei aktivieren kann, um mir von dort über den Range oder auch cells Befehl Dateien auswählen kann um diese dann in die neu erstellte Datei zu kopieren.
Folgende Schreibweisen habe ich bereits ausprobiert:
Workbooks(MAST).Activate
Windows(MAST).Activate
MAST = ActiveWorkbook.NAME
Er wechselt einfach nicht mehr in die erste Datei. Ohne Deklaration der Variablen funktioniert es.
Kann mir da jemand vielleicht helfen?
Wäre dankbar für jede Hilfe