Makro zum kopieren

Hallo zusammen,
Ich bin leider nicht so stark was VBA angeht und hätte eine Frage zu einer Makro.
1. Und zwar würde ich gerne eine Makro haben die auf Tabellenblatt "Vorlage" von A1 bis L108 alles markiert und kopiert und auf dem Tabellenblatt auf dem ich mich befinde einfügt in A1.
Extra: Ich weiß nicht wie schwer sowas zu programmieren ist, aber was richtig stark wäre, wenn die Makro von alleine die Tabellenblätter erstellt, umbenennt und dann das ganze von 1. Er sollte dann also so viele Tabellenblätter erstellen wie viele Zeilen es in der Tabelle auf Tabellenblatt "Übersicht" gibt (B4 ist der Spaltenkopf bei dem die Tabellenblatt Namen stehen, ist einfach #1,#2,#3...) und dann soll er aus "Vorlage" A1 bis L108 alles in die Tabellenblätter reinkopieren.
Hoffe ihr konntet mir einigermaßen folgen, und hättet Ideen :D
LG
Dave

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Worksheets("Vorlage").Range("A1:L108").Copy ActiveSheet.Cells(1, 1) End Sub Sub Extra() Dim i As Integer For i = 5 To Worksheets("Übersicht").Cells(Worksheets("Übersicht").Rows.Count, 2).End(xlUp).Row Worksheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Worksheets("Übersicht").Cells(i, 2).Text Worksheets("Vorlage").Range("A1:L108").Copy Destination:=ActiveSheet.Cells(1, 1) Next End Sub

HI
hier mal zwei Varianten, die Aufgabe zu lösen.
bei nur Inhalte kopieren werden die Zellinhalte, Formeln und Formate von der Vorlage in das neue Blatt kopiert.
bei alles kopieren wird das Sheet vollständig kopiert, dh incl Seiteneinrichtung und ggf vorhandenen Makros.


Sub Kopieren_Vorlage_nur_Inhalte()
Dim Zelle As Range
Dim sh As Worksheet
For Each Zelle In Sheets("Übersicht").Range("B5:B100").SpecialCells(xlCellTypeConstants, 2)
Set sh = Sheets.Add(after:=ActiveWorkbook.Sheets(ThisWorkbook.Sheets.Count))
sh.Name = Zelle.Value
Sheets("Vorlage").Range("A1:L108").Copy Destination:=sh.Range("A1")
Next
End Sub


Sub Kopieren_Vorlage_alles()
Dim Zelle As Range
For Each Zelle In Sheets("Übersicht").Range("B5:B100").SpecialCells(xlCellTypeConstants, 2)
Sheets("Vorlage").Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Zelle.Value
Next
End Sub

Gruß Daniel

Sub Kopieren_Vorlage_alles() For Each sh In ActiveWorkbook.Worksheets Select sh.Name Case "Übersicht", "Vorlage", "Cluster", "Cluster2", "Location" Case Else Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True End Select Next Dim Zelle As Range For Each Zelle In Sheets("Übersicht").Range("B5:B100").SpecialCells(xlCellTypeConstants, 2) Sheets("Vorlage").Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Zelle.Value Next End Sub

Sub Kopieren_Vorlage_alles() Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets Select sh.Name Case "Übersicht", "Vorlage", "Cluster", "Cluster2", "Location", "Test", "Test2" Case Else Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True End Select Next Dim Zelle As Range For Each Zelle In Sheets("Übersicht").Range("B5:B100").SpecialCells(xlCellTypeConstants, 2) Sheets("Vorlage").Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Zelle.Value Next End Sub

Sub Kopieren_Vorlage_alles() Dim sh As Worksheet Dim Zelle As Range For Each Zelle In Sheets("Übersicht").Range("B5:B100").SpecialCells(xlCellTypeConstants, 2) For Each sh In acitveworkbook.Worksheets If sh.Name = Zelle.Value Then Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True Exit For End If Next Sheets("Vorlage").Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Zelle.Value Next End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread