Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler: Copy-Methode des Worksheet-Objekts

Forumthread: Fehler: Copy-Methode des Worksheet-Objekts

Fehler: Copy-Methode des Worksheet-Objekts
05.12.2008 08:57:03
Dagmar
Hallo VBA-Experten,
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler: Copy-Methode des Worksheet-Objekts
05.12.2008 16:32:00
Gerd
Hi,
altbekanntes Thema. Es gibt keine verlässliche Abhilfe als Excel zu schließen und
neu zu starten. Danach gehts wieder für einige Kopien.
mfg Gerd
AW: Fehler: Copy-Methode des Worksheet-Objekts
05.12.2008 17:03:00
Dagmar
Hallo Gerd,
danke der Info, aber ich habe die existierende Lösung inzwischen selbst gefunden:
While Range(AGG).Cells(i).Value ""
Sheets.Add(after:=Sheets(Sheets.Count)).Name = Sheets("Übersetzer").Range(AGG).Cells(i).Value
Sheets("Vorlage").Cells.Copy
ActiveSheet.Paste
ActiveSheet.Cells(1, 1) = Range(AGG).Cells(i).Value
i = i + 1
Wend
Grüße
Dagmar
Anzeige
AW: Fehler: Copy-Methode des Worksheet-Objekts
05.12.2008 18:18:00
Gerd
Hi,
"....aber ich habe die existierende Lösung inzwischen selbst gefunden:..."
Du hast einen Workaround gewählt, der aber nicht genau das selbe macht, wie ein gesmates Sheet zu kopieren.
mfg Gerd
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige