Fehler: Copy-Methode des Worksheet-Objekts
05.12.2008 08:57:03
Dagmar
wer kann mir sagen, wie ich bei dem folgenden Programm, wenn ich es mehrmals durchlaufen lasse, die Fehlermeldung "Copy-Methode des Worksheet-Objekts konnte nicht ausgeführt werden" vermeiden kann.
Hier das Programm:
Sub Arbeitsblätter_erstellen()
Dim i As Integer, AGG As String
Application.DisplayAlerts = False
While ThisWorkbook.Sheets.Count > 6
Sheets(7).Delete
Wend
Application.DisplayAlerts = True
AGG = InputBox("Bitte den Name der Aggregation aus dem Übersetzer wählen und hier _
eingeben", "Wahl der Aggregation")
i = 2
While Range(AGG).Cells(i).Value ""
Sheets("Vorlage").Copy After:=Sheets(i + 4)
ActiveSheet.Name = Sheets("Übersetzer").Range(AGG).Cells(i).Value
ActiveSheet.Cells(1, 1) = Range(AGG).Cells(i).Value
i = i + 1
Wend
Sheets("Start").Select
End Sub
Vielen vielen Dank bereits für Eure Hilfe und guten Ideen!
Grüße
Dagmar