Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registernamen für mehrere Tabellen

Registernamen für mehrere Tabellen
26.01.2007 15:06:04
Peter
Liebe Excelkenner,
vielleicht kann mir jemand helfen.
Ich habe eine Datei mit 50 Tabellenblättern (also Tabelle1, Tabelle2 usw.)
In jeder Tabelle in den Feldern C1 steht ein Wort und in C2 ein Datum.
Alle Worte und Daten in den Tabellen sind unterschiedlich.
Können diese beiden Felder je als Registernamen übernommen werden. Am besten
wäre ein Makro, oder der Name des Registers passt sich beim Wechsel von Register
zu Register an.
Wäre nett, wenn mir jemand helfen könnte.
Vielen Dank
Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Registernamen für mehrere Tabellen
26.01.2007 15:32:51
mumpel
Hallo!
Erste Möglichkeit, Du benutzt das fogende Makro, welches Du manuell auslösen musst:

Sub test()
On Error Resume Next
Dim Blatt As Object
For Each Blatt In Worksheets
Blatt.Name = Blatt.Range("C1").Text & " " & Blatt.Range("C2").Text
Next Blatt
End Sub

Die andere Möglichkeit wird nachgeliefert.
Gruss Rene
AW: Registernamen für mehrere Tabellen
26.01.2007 15:48:51
mumpel
Und hier die zweite Möglichkeit. Dieses Makro hinter jede Tabelle kopieren. Das Makro reagiert auf Änderungen in den Zellen C1 und C2. Änderst Du die genannten Zellen, ändert sich automatisch auch der Blattname.

Private Sub Worksheet_Change(ByVal target As Range)
On Error Resume Next
Dim blatt As Object
If target.Address = "$C$1" Or target.Address = "$C$2" Then
For Each blatt In Worksheets
blatt.Name = Range("C1").Text & " " & Range("C2").Text
Next
End If
End Sub

Gruss Rene
Anzeige
Korrektur
26.01.2007 15:55:56
mumpel
Hoppla, das war das falsche makro, hier das Richtige.

Private Sub Worksheet_Change(ByVal target As Range)
On Error Resume Next
If target.Address = "$C$1" Or target.Address = "$C$2" Then
ActiveSheet.Name = Range("C1").Text & " " & Range("C2").Text
End If
End Sub

Gruss Rene
AW: Registernamen für mehrere Tabellen
26.01.2007 15:41:19
Michael
Wenn du die Register auf einmal umbenennen willst, erstell nen Button und füge als Code ein:
sh = ActiveWorkbook.Sheets.Count
i = 1
sheets(1).select
do until i = sh + 1
neuername = activesheet.cells(1,3).value & " " & activesheet.cells(2,3).value
activesheet.name = neuername
i = i + 1
sheets(i).select
loop
Alle Sheets werden in "Wert C1 Leerzeile Wert C" umbenannt. Aufpassen, das keine ungültigen Zeichen in den Zellen stehen.
Gruss Michael
Anzeige
AW: Registernamen für mehrere Tabellen
26.01.2007 16:15:06
Peter
Hallo,
wirklich toll, habt recht herzlichen Dank, auch vor allem für die
schnelle Antwort.
Viele Grüße
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige