Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1340to1344
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
Inhaltsverzeichnis

Mustersheet 1 zu 1 kopieren

Mustersheet 1 zu 1 kopieren
29.11.2013 16:21:10
Kayonewonder
Hallo zusammen,
ich habe ein Mustersheet, dass ich 1 zu 1, nach einer bestimmten Anzahl an Personennamen, kopieren möchte. Die verschiedenen Personennamen werden in einem Array gespeichert. Die neu-kopierten Sheets werden mit dem jeweiligen Personennamen betitelt.
Kann mir da jemand helfen?
Gruß

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mustersheet 1 zu 1 kopieren
29.11.2013 17:08:11
fcs
Hallo Kayonewonder,
Makro schut etwa so aus. Dein Array muss du halt irgendwie einbauen.
Gruß
Franz
Sub CopyMusterBlatt()
Dim wksMuster As Worksheet, wkb As Workbook
Dim arrNamen, intI As Integer
arrNamen = Array("Meier", "Schulze", "Schmitt") 'Test-Array
Set wkb = ActiveWorkbook
Set wksMuster = wkb.Worksheets("Muster")
For intI = LBound(arrNamen) To UBound(arrNamen)
With wkb
wksMuster.Copy after:=.Sheets(.Sheets.Count)
ActiveSheet.Name = arrNamen(intI)
End With
Next intI
End Sub

Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige