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

Forumthread: Arbeitsblattkopie nach Zelleintrag benennen

Arbeitsblattkopie nach Zelleintrag benennen
12.07.2006 20:07:02
Fritz
Hallo Excelfreunde,
ich möchte - sofern in einer Tabelle die Zelle C5 eine Zahl enthält die Tabelle kopieren und die Kopie nach dem Wert in der Zelle C5 benennen.
Vielen Dank für eure Hilfe
Mfg
Fritz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblattkopie nach Zelleintrag benennen
12.07.2006 20:39:16
Beni
Hallo Fritz,
kopiert das aktive Sheet und stellt es an den Schluss.
Gruss Beni

Sub Arbeitsblattkopie()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("C5").Value
End Sub

AW: Arbeitsblattkopie nach Zelleintrag benennen
12.07.2006 21:03:28
Fritz
Hallo Beni,
vielen Dank für Deine Unterstützung.
Ich würde den Code gerne dahingehend verändert haben, dass
1. falls die Zelle C5 keine Zahl enthält überhaupt nichts geschieht
2. falls die Zelle C5 eine Zahl enthält und eine Tabelle mit diesem Namen (= Zahl) in der Datei schon existiert, ein entsprechender Hinweis "Arbeitsblatt "x" existiert schon" angezeigt wird.
Könntest Du mir bei der Umsetzung dieser Vorhaben noch Hilfe geben?
mfg
Fritz
Anzeige
AW: Arbeitsblattkopie nach Zelleintrag benennen
12.07.2006 21:38:45
Beni
Hallo Fritz,
Gruss Beni

Sub Arbeitsblattkopie()
If Not IsEmpty(Range("C5")) Then
For sh = 1 To Sheets.Count
If Sheets(sh).Name = CStr(Range("C5")) Then
MsgBox "Arbeitsblatt " & Sheets(sh).Name & " existiert schon"
Exit Sub
End If
Next sh
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("C5").Value
End If
End Sub

Anzeige
AW: Arbeitsblattkopie nach Zelleintrag benennen
12.07.2006 21:42:19
Fritz
Hallo Beni,
Super!! Genau so hat ich mir das vorgestellt.
Vielen Dank.
Gruß
Fritz
;

Forumthreads zu verwandten Themen

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