Ich bin im mehrfenstermodus also Excel einstellung in getrenntem Fenster anzeigen!
Mein Programm kopiert immer im Original anstatt in der Kopie, obwohl ich die Kopie eigentlich direkt anspreche!
Warum?
Private Sub CommandButton1_Click()
Pfad = Application.GetSaveAsFilename("Bestellung_ttmmjj.xls")
If Pfad = False Then
Else
Range("A1:B1").Select
Sheets("Rondo").Copy
ActiveWorkbook.SaveAs Filename:=Pfad, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Name1 = ActiveWorkbook.Name
'Hier sprech ich die Kopie an Name1 enthält auch wirklich den
' richtigen Wert habs ausprobiert
Windows(Name1).Activate
'Hier kopiert er aus original!! Warum?
Range("C1:G6").Copy
Range("C1:G6").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("O1:Q4").Copy
Range("O1:Q4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.Close
Sheets("Rondo").Select
End If
End Sub