Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
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

Kopieren und umbenennen von Tabellenblättern

Kopieren und umbenennen von Tabellenblättern
28.11.2017 16:13:19
Tabellenblättern
Hallo,
Ich habe folgendes Problem:
Ich habe eine Liste, die entweder in X oder Y eingestuft wird. Wenn in der Zelle (in Spalte F) ein "Y" steht, dann soll er mir ein Tabellenblatt "Template" kopieren und umbenennen. Name des Blattes soll der "Wert" aus Spalte A sein (selbe Zeile wie das jeweilige Y).
Das soll für jedes "Y" gemacht werden.
Danke
LG
Johannes

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und umbenennen von Tabellenblättern
28.11.2017 18:13:14
Tabellenblättern
Hallo Johannes,
wenn die "Ich habe eine Liste" in einer Tabelle "Liste" in der Spalte A ab Zeile 2 stünde.
Sub newTb()
Dim ze As Long
With Sheets("Liste")
For ze = 2 To .Cells(2, 1).End(xlDown).Row
If .Cells(ze, 6).Value = "Y" Then
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Main").Cells(ze, 1).Value
.Select
End If
Next
End With
End Sub
Gruß
Jochen
AW: kleine Korrektur im Code
28.11.2017 18:30:51
JoWE
hier: ActiveSheet.Name = Sheets("Liste").Cells(ze, 1).Value
Gruß
Jochen
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige