Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
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
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registerblattname automatisch ändern | Herbers Excel-Forum

Registerblattname automatisch ändern
17.01.2010 01:43:42
Christian Wendker

Hallo Spezilisten!
Habe ein Problem mit den Registerblattnamen. Ich habe auf der ersten Registerkarte eine Liste mit Namen und möchte jetzt die folgenden Registerkarten nach diesen Namen benennen. Außerdem sollen diese sobald ich einen Namen in der Liste ändere automatisch mit geändert werden.
Wer kann mir helfen?
Vielen Dank schon mal.
Christian

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

Betreff
Datum
Anwender
Anzeige
AW: Registerblattname automatisch ändern
17.01.2010 08:54:54
Hajo_Zi
Hallo Christian,
benutze das Change Ereignis der Tabelle. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Worksheets(Target.Row).Name = Target
End If
End Sub

Ich habe jetzt keine Fehlerbehandlung eingebaut.

AW: Registerblattname automatisch ändern
17.01.2010 10:41:20
Beverly
Hi Christian,
hier noch ein erweiterter Code, damit kein Fehler ausgelöst wird falls der Blattname bereits existiert: 
Option Explicit
Dim strTarget As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
On Error Resume Next
Worksheets(Target.Row).Name = Target
On Error GoTo 0
If Application.CountIf(Columns(1), Target) > 1 Then
MsgBox "Ein Tabellenblatt mit dem Namen '" & Target & "' gibt es bereits"
Target = strTarget
Target.Select
End If
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then strTarget = Target
End Sub

Anzeige
AW: Registerblattname automatisch ändern
18.01.2010 12:39:40
Christian Wendker
Vielen Dank,
das klappt hervorragend.

302 Forumthreads zu ähnlichen Themen

Blätter automatisch umbenennen
Wolfgang

Hallo Ihr lieben Spezialisten,
ich möchte ein Makro erstellen, das die Blätter automatisch umbenennt. Das erste Blatt soll den Namen 1 erhalten, das zweite den Namen 2, usw. Es können bis zu 15 Blätter vorhanden sein.
Mit der Möglichkeit Makros aufzuzeichnen, kann ich zwar automatisch e...
20.02.2010 12:20:35
Thread-ID: 1139898
8 Beiträge
Anzeige
Automatisches Umbenennen von Tabellenblätter
Tabellenblätter

Hallo Excel Freunde
Ich habe eine Tabelle mit ca. 250 Namen.
Nun möchte ich für jeden Namen ein eigenes Tabellenblatt einrichten. anstatt Tabelle1, Tabelle2 soll der Name erscheinen.
Ist es möglich dies per „Befehl“ auszuführen. Ist es weiterhin möglich dies noch per Hyperlink (pro...
21.06.2012 15:09:53
Thread-ID: 1268303
7 Beiträge
Alle tabellenblätter nach zelleninhalt durchsuchen
Spenski

Hallo
Im tabellenblatt "Daten" steht in A1 eine 9 stellige nummer.
Gibt es eine Möglichkeit in B1 sich anzeigen zu lassen wie oft der zelleninhalt A1 in der spalte c aller anderen tabellenblätter vorkommt?
Es kommen jede Woche 2 neue tabellenblätter dazu , und 2 werden gelöscht. Am...
25.07.2014 21:34:56
Thread-ID: 1372395
24 Beiträge
Anzeige
Tabellenblätter automatisch erstellen und benennen
Bonduca

Hallo,
ich habe folgendes Problem:
In Tabelle 1 sind in der Spalte B (ab B4) Bezeichnungen. Die Anzahl dieser kann variieren. Mit diesen Bezeichnungen sollen neue Tabellenblätter automatisch erstellt werden.
In der Beispieldatei habe ich bereits die Tabellenblätter angelegt.
Auß...
24.02.2015 19:51:33
Thread-ID: 1411292
5 Beiträge
Neues Blatt automatisch erstellen und umbenennen
Jean
Liebe Forums-user,
ich habe folgendes, mehr oder weniger schwieriges Problem:
Ich habe in einem Blatt 1 Kontobewegungen. Jede Kontobewegung wird dabei u.a. einer Kategorie zugeordnet. Für jede Kategorie soll ein eigenes Blatt bestehen, in dem dann nur die entsprechenden Kontobewegungen dies...
09.03.2015 18:02:51
Thread-ID: 1413829
7 Beiträge
Tabellenblätter automatisch nach Zellen benennen
Fabian

Hallo
ich brauche für meine Excel-Tabelle ein Makro, das automatisch den Namen mehrerer Tabellenblätter ändert, sobald ich den Wert einer Zelle ändere.
In der Tabelle 1 trägt man ein Jahr ein, das in den einzelnen Blättern (5-16) für die Monate (August - Juli) von einem Datum in einen T...
16.04.2015 11:40:20
Thread-ID: 1421170
2 Beiträge
Namen automatisch vergeben aufgrund Tabellennamen
Jason

Hallo Wissen!
In einem Tabellenblatt habe ich 12 Spalten (A:L). In der Spalte J steht jeweils der Name des Projektleiters. Mit folgendem Makro werden die Daten gefiltert und automatisch ein separates Tabellenblatt pro Projektleiter erstellt. Anschliessend habe ich die Wahl, ob ich jedes Tab...
30.07.2015 08:20:09
Thread-ID: 1439303
3 Beiträge
Zelle nicht auswählbar nach Blattschutz
Jones

Guten Tag zusammen.
Ich bin auf folgendes Problem gestoßen.
So sieht mein Tabellenblatt aus:
https://www.herber.de/bbs/user/105101.jpg
Ich habe alle Zellen gesperrt, bis auf die 6 leeren auf der rechten Seite.
Die vierte leere Zelle ist mit einem DropdownMenü versehen und so...
20.04.2016 11:05:02
Thread-ID: 1489127
9 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
6
23
9
4
6
1
2
8
3
6
1
1
3
13
3
5
1
6
5
1
11
7
2