ich bin am Ende meines VBA-Lateins:
Mit der untenstehenden Formel kopiere ich (als Sicherungskopien) meine Tabellenblätter innerhalb der Mappe. Bei mehren kopierten Tabellenblätter (ab dem 18. Tabellenblatt - ist als unterschiedlich, letztens erst am 35. Tabellenblatt!) habe ich öfters eine Fehlermeldung und es erscheint der markierte Formelabschnitt:
Sub Tabellenblattkopieren()
Dim nam As String
Sheets("Berechnung").Activate
[g91].Value = [g91].Value + 1
nam = Sheets("Berechnung").Range("F1") & Sheets("Berechnung").Range("G91")
Sheets("Berechnung").Copy After:=Sheets(19)
Sheets("Berechnung (2)").Name = nam
Range("I22") = Range("I22") & " - Berechnung vom:" & Format(Now, " dddd dd.mm.yyyy hh:mm") & _
" Uhr"
Sheets("Berechnung").Select
Range("D8").Select
ActiveWorkbook.Save
End Sub
Was kann ich hier tun?
Der Sinn dieses Makros ist, eine Kopie an die 19. Tabellenblattstelle zu setzen, einen bestimmten Namen aus diesem Blatt "F1" mit einer fortlaufenden Nummer zu geben und im kopierten Blatt "I22" das jetzige Datum mit Uhrzeit einzutragen!
Soweit funktioniert alles, bis auf die Fehlermeldung.
Danke und Gruss im vorab
Markus