Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Abfrage Anzahl Kopien von Tabellenblättern

Forumthread: Abfrage Anzahl Kopien von Tabellenblättern

Abfrage Anzahl Kopien von Tabellenblättern
17.07.2024 15:53:13
I.I.B.
Hallo, ich bin absoluter Neuling in VBA. Ich habe ein Makro, welches mir ein Tabellenblatt ("Pos.") mit fortlaufender Nummerierung entsprechend einer bestimmten Anzahl (Beispiel hier: 10) erlaubt. Nun möchte ich aber, dass die Anzahl der zu kopierenden Tabellenblätter über einen Button abgefragt ("Wie oft kopieren?") wird, damit ich nicht in die VBA reinklicken und das darüber ändern muss. Der Code lautet:

Sub kopie()
Dim i%, ws As Worksheet
Set ws = ActiveSheet
For i = 10 To 1 Step -1
ws.Copy After:=ws
ActiveSheet.Name = ws.Name & i
Next i
End Sub

Könnt ihr mir weiterhelfen? Danke schon mal!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage Anzahl Kopien von Tabellenblättern
17.07.2024 16:19:00
Kuwer
Hallo,
Sub kopie()

Dim i As Long, ws As Worksheet
Set ws = ActiveSheet
For i = Application.InputBox(Prompt:="Wieviele Blätter?", Type:=1) To 1 Step -1
ws.Copy After:=ws
ActiveSheet.Name = ws.Name & Format(i, "00")
Next i
End Sub
Gruß, Uwe
Anzeige
AW: Abfrage Anzahl Kopien von Tabellenblättern
17.07.2024 16:24:53
I.I.B.
Traumhaft Uwe, danke!!!

Forumthreads zu verwandten Themen

Anzeige
Anzeige