ich versuche mich gerade in VBA einzuarbeiten und erste Gehversuche zu unternehmen.
Bei der Umsetzung folgender Funktion habe ich Probleme und finde nicht den richtigen Ansatz zur Lösung.
Vielleicht könnt ihr mir weiterhelfen?
Mit der Aufzeichnen Funktion habe ich folgendes Makro erstellt und dann die um die Funktion ActiveSheet.Name ergänzt.
Sub Makro3()
' Makro3 Makro
Sheets("100100061").Select
Sheets("100100061").Copy After:=Sheets(21)
Range("B2:J21").Select
Selection.ClearContents
Range("G28:J28").Select
Selection.ClearContents
Range("G28").Select
ActiveCell.FormulaR1C1 = "='100100061'!RC[2]"
Range("I28").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+1"
Range("I28 ").Select
ActiveSheet.Name = Range("G28")
End Sub
Ich möchte realisieren, das immer aus dem neu generierten Arbeitsblatt ein neues mit fortlaufender Nummer benanntes Arbeitsblatt erzeugt wird.Hierzu habe ich in G28 die Laufende Nummer + 1 gezählt und werte sie in dem neuen Arbeitsblatt als Namen aus.
Leider funktioniert dies genau 1x danach kommt der Fehler 1004 wegen dem doppelten Namen.
Eigentlich möchte ich das Makro unabhängig von den Namen der Arbeitsblätter halten und nur auf Grund der gezählten Werte Namen vergeben.
Also das 100100061 sollte nicht sichtbar sein.
Danke für eure Hilfe :)