Arbeitsmappen kopieren Inhalt ändern

[technoente]

Hey es klappt alles hervorangend und nochmals vielen Dank !

Ist es möglich eine Msg Box einzufügen, sodass nur ein Feld aufkommt wo drinnen steht : Geben Sie den Start der Nummerierung ein .
und dann geben sie Die anzahl ein

wie gehe ich bei sowas am besten vor?

Code:

   
 Dim n As String
   n = InputBox("Startseite angeben:")
   If n = "" Then Exit Sub
   MsgBox n
  

Liege ich von meinem Grundgedanken her richtig , dass ich zuerst eine Variable festlegen muss die besagt das " lngTabellenName"
= diese Variable ist , und die eingabe dann = " lngTabellenName" entspricht, oder?
Grüße !


Habe es hinbekommen !!

Code:

Sub Arbeitsmappe_kopieren()
   Dim i As Long, lngTabellenName As Long
   Dim n
   
   
   lngTabellenName = InputBox("Startseite angeben:") 'Start der Nummerierung
   
   For i = 1 To InputBox("Anzahl:")   'Hier die Anzahl deiner zu erstellenden Sheets anpassen
       With ThisWorkbook
           .Sheets(1).Copy After:=.Sheets(.Sheets.Count)
           With .Sheets(.Sheets.Count)
               .Name = "I" & Format(lngTabellenName, "00000")
               .Range("A10").Value = "D00073425229I" & Format(lngTabellenName, "00000")
               lngTabellenName = lngTabellenName + 1
           End With
       End With
   Next
End Sub