Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abfrage Anzahl Kopien von Tabellenblättern

Forumthread: Abfrage Anzahl Kopien von Tabellenblättern

Abfrage Anzahl Kopien von Tabellenblättern
17.07.2024 13: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 14: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 14:24:53
I.I.B.
Traumhaft Uwe, danke!!!
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige