05.07.2017, 08:58
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?
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 !!
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
= 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