Hallo Excelgemeinde,
ich habe mal eine Frage. Aus dem Archiv (siehe https://www.herber.de/forum/archiv/816to820/t818511.htm) habe ich das Makro von Erich G. Das Makro legt für jeden Eintrag in einem definierten Bereich eines separaten Tabellenblattes (bei mir heißt es NAVIGATION) ein Tabellenblatt an. Für das anlegen der einzelnen Tabellenblätter dient ein bereits vorhandenes Tabellenblatt (bei mir heißt es THERAPIEKALENDER). Zusätzlich werden die Tabellenblätter entsprechend umbenannt (bei mir ist das immer ein Datum). Das nur zum Verständnis, denn im Prinzip funktioniert das. Jetzt habe ich nur ein Problem:
Wenn ich das Makro über ein CommandButton anstoße, dann sieht es am Anfang sehr gut aus und dann kommt auf einmal folgende Fehlermeldung: Laufzeitfehler '1004': Die Copy-Methode des Worksheet-Objekts konnte nicht ausgeführt werden.
Hat das was mit der Anzahl der Tabellenblätter zu tun? In meinem Beispiel sollte das Makro 261 x die Vorlage duplizieren und entsprechend umbennen (01.01.2012 bis 31.12.2012 ohne Samstage und ohne Sonntage). Manchmal kommt der Fehler beim 28.08.2012, manchmal beim 06.09.2012 oder 07.09.2012.
Ich bin ratlos! Wer hat hierzu eine Information für mich?
Hier noch der Code (abgeleitet vom geposteten Code von Erich G.):
Private Sub CommandButton1_Click() Dim lngZ As Long, intB As Integer With Worksheets("Navigation") For lngZ = 6 To 135 If Not IsEmpty(.Cells(lngZ, 1)) Then For intB = 1 To Worksheets.Count If Worksheets(intB).Name = .Cells(lngZ, 1) & "" Then MsgBox "Blatt '" & .Cells(lngZ, 1) & "' existiert schon.", vbInformation Exit For End If Next intB If intB > Worksheets.Count Then Worksheets("Therapiekalender").Copy After:=Worksheets(Worksheets.Count) ActiveSheet.Name = .Cells(lngZ, 1) End If End If Next lngZ End With End Sub Vielen Dank im Voraus an alle, die etwas darüber wissen oder eine Vermutung haben.
Gruß Bernd