Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Erweiterung des Code

Forumthread: Erweiterung des Code

Erweiterung des Code
06.09.2003 23:39:02
LUCIEN
Hallo

Ich habe folgenden Code mit eurer Hilfe zusammengbastelt:
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, wks As String, Qe As Integer
wks = ActiveSheet.Name
If Target.Row <> 1 And Target.Column <> 1 Then Exit Sub
Qe = MsgBox("Sollen neue Tabellenblätter angelegt werden ?", vbQuestion + vbYesNo, "Mappe erstellen")
If Qe = vbNo Then
Qe = MsgBox("Sollen bestehende Tabellenblätter umbenannt werden ?", vbQuestion + vbYesNo, "Mappe modifizieren")
If Qe = vbNo Then Exit Sub
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets(wks).Cells(i, 1).Value
Next i
MsgBox "Alle Tabellen umbenannt"
Exit Sub
End If
For i = 2 To Worksheets(wks).Range("A65536").End(xlUp).Row
Worksheets.Add
ActiveSheet.Name = Worksheets(wks).Cells(i, 1).Value
Next i
MsgBox "Alle Tabellen erstellt"
End Sub


Ich möchte wenn es geht , auch haben das die Zelle A1 von jedem Sheet den Namen des jeweiligen Tabellenblattes erhält .
Kann jemand mir den Code erweitern?
Danke im voraus
Gruss Lucien
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erweiterung des Code
06.09.2003 23:43:34
Ramses
Hallo

....
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets(wks).Cells(i, 1).Value
Worksheets(i).Range("A1") = Worksheets(wks).Cells(i, 1).Value
Next i
....

For i = 2 To Worksheets(wks).Range("A65536").End(xlUp).Row
Worksheets.Add
ActiveSheet.Name = Worksheets(wks).Cells(i, 1).Value
ActiveSheet.Range("A1") = Worksheets(wks).Cells(i, 1).Value
Next i

....

Von zusammengebastelt kann da ja wohl keine Rede sein ;-),... oder ?

Gruss Rainer
Anzeige
AW: Erweiterung des Code
06.09.2003 23:47:34
LUCIEN
Hallo Rainer

So war das nicht gemeint.
Sorry

Danke für deine Erweiterung

Gruss Lucien
Merci o.T: :-)
06.09.2003 23:54:03
Ramses
...
;

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