Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Sheet Kopieren

VBA Sheet Kopieren
08.02.2023 18:27:03
Marko
Hallo in die Runde, wie kann ich mit einem Makro das Sheet "Vorlage" kopieren (mit der Formatierung) und nacheinander mit den Namen aus Sheet "KT-Lft" C2, C3, C4, C5 bis C73 benennen? Hier brauche ich wieder einemal Eure Hilfe. Vielen Dank und Gruß, Marko
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Sheet Kopieren
08.02.2023 18:29:58
onur
Makrorecorder einschalten - eine Kopier erstellen und umbennen - Makrorecorder ausschalten und du weisst, wie es geht.
AW: VBA Sheet Kopieren
08.02.2023 18:37:17
Marko
Danke, damit habe ich es nicht hinbekommen...
Sub Sheet_kopieren()
'
' Sheet_kopieren Makro
'
'
    Sheets("Vorlage").Select
    Sheets("Vorlage").Copy Before:=Sheets(1)
    Sheets("KT_Lft").Select
    ActiveWindow.SmallScroll Down:=-57
    Range("C3").Select
End 
Sub 

Anzeige
AW: VBA Sheet Kopieren
08.02.2023 18:59:50
onur
Ich sehe da aber auch nix mit Umbenennen.
AW: VBA Sheet Kopieren
08.02.2023 19:01:28
Marko
Hab's gegooglet und gefunden. Schönen Abend.
Sub Sheets_kopieren()
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "C2:C73"
With ActiveWorkbook
For Each Zelle In ActiveSheet.Range(Bereich).Cells
 Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count))
 Tabelle.Name = Zelle.Text
Next Zelle
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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