Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Arbeitsblatt mehrfach kopieren
24.03.2022 14:43:01
SIzE_J7
Gibt es jemanden der mir folgende zwei VBA-Codes zusammensetzen kann. Ich will ein vorbereitetes Arbeitsblatt 82x kopieren und aus einer Liste direkt die Namen geben.
Code 1

Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A9:A90")
With wBk
.Sheets.Add After:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Dim x As Integer
x = InputBox("Wie häufig möchten Sie die Arbeitsmappe kopieren?")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Tabelle1").Copy _
After:=ActiveWorkbook.Sheets("Tabelle1")
Next
End Sub
Code 2

Sub Copier()
Dim x As Integer
x = InputBox("Wie häufig möchten Sie die Arbeitsmappe kopieren?")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Tabelle1"). Copy _
After: =ActiveWorkbook.Sheets("Tabelle1")
Next
End Sub
Vielleicht gibt es bereits einen Code. Habe ihn leider nicht gefunden.
Vielen Dank für eure Unterstützung.

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt mehrfach kopieren
24.03.2022 15:10:25
UweD
Hallo
so?

Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Dim x As Integer
Dim numtimes As Integer
Dim NName As String
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Set xRg = wSh.Range("A9:A90")
Application.ScreenUpdating = False
x = InputBox("Wie häufig möchten Sie die Arbeitsmappe kopieren?")
For numtimes = 1 To x
With wBk
NName = xRg.Cells(numtimes, 1)
.Sheets.Add After:=.Sheets(.Sheets.Count)
If IsError(Evaluate(NName & "!A1")) Then
ActiveSheet.Name = NName
Else
MsgBox NName & " already used as a sheet name"
End If
End With
Next
End Sub
LG UweD
Anzeige
AW: Arbeitsblatt mehrfach kopieren
24.03.2022 15:11:24
snb
Das scheint mir gar keine gute Idee.
Wofür brauchst du das ?

38 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige