Aus einem Buch habe ich folgende Codezeilen:
Sub ArbeitsmappeOhneMakrosSpeichern()
Dim Original As String
Dim Kopie As String
Dim i As Integer
Const Pfad = "D:\Vorlesungen 2005\Vorlesung VBA Programmierung\Uebungen"
Original = ActiveWorkbook.Name
Debug.Print Original
Kopie = ActiveWorkbook.Name & "_Kopie.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Pfad & Kopie
Workbooks(Original).Activate
For i = 1 To Sheets.Count
Sheets(i).Copy _
After:=Workbooks(Kopie).Sheets(i)
Next i
End Sub
Die "For i = " Schleife funktioniert nicht und ich finde nicht heraus warum. Kann mir jemand dabei helfen?
Danke für klärende Hinweise
Gérard