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

Forumthread: Tabellenblätter nach Namen in Zellen automatisch u

Tabellenblätter nach Namen in Zellen automatisch u
28.03.2008 20:44:19
Stefan
Hallo Leute!
Habe eine Vorstellung von einer Arbeitsmappe, die mir leider nicht so wirklich gelingen will, da ich nur sehr geringe VBA Kenntnisse habe!
Ich habe in einer Arbeitsmappe mehrere Tabellenblätter, die zur Zeit noch "Monat1", "Monat2", ... heißen. Je nach Eintritt der Kunden/Mitarbeiter ändern sich natürlich die Monate. Nun hab ich in einem Tabellenblatt schon mit Formeln bewerkstelligt, dass das Jahr mit jenem Monat anfängt, in dem der Eintritt war (die Monatsnamen stehen jetzt z.b. in A2:A13).
Ich möchte nun die Tabellenblätter, die jetzt "Monat1", "Monat2", ... automatisch so umbenennen, dass Monat1 der Eintrittsmonat ist (A2), Monat2 der 2te Monat (A3), ....
Allerdings habe ich auch noch andere Arbeitsblätter, die nicht umbenannt werden sollen!
Gehts das?
Bitte um Hilfe!!
Ciao bblues

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter nach Namen in Zellen automatisch u
29.03.2008 17:06:09
Tino
Hallo,
habe mal etwas zusammengebastelt.
Kannst du damit etwas anfangen?

Sub Test()
Dim Tabel As Range
Dim InTabell As Worksheet
For Each Tabel In Range("A2:A13")
If Tabel > "" Then
For Each InTabell In ThisWorkbook.Sheets
If InTabell.Name = Tabel Then
MsgBox "Tabelle mit den Namen: " & Tabel & " gibt es schon!", _
vbCritical, "Fehler!"
GoTo nächste:
End If
Next InTabell
For Each InTabell In ThisWorkbook.Sheets
If InTabell.Name = "Monat" & Tabel.Row - 1 Then
InTabell.Name = Tabel
End If
Next InTabell
End If
nächste:
Next Tabel
End Sub


Gruß
Tino

Anzeige
;

Forumthreads zu verwandten Themen

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