Datum

Titel

26.04.2024 12:46:38

Nutzereingaben Speichern und Laden

26.04.2024 11:49:48

VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht

26.04.2024 11:38:46

Acrobat PDF Formularfelder mit Excel ausfüllen

26.04.2024 11:23:04

zählen wenn - aber nur die selektierten Zeilen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1768to1772

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Alle Tabellen Blatt Namen jeweils aus Zelle B2

Forumthread: Alle Tabellen Blatt Namen jeweils aus Zelle B2
8 Beiträge zu diesem Forumthread
Anzeige
241 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

15.07.2020 12:35:06

Andreas

Hallo liebe Excel Freunde,
würde gerne das alle Tabellen Blätter einer Arbeitsmappe sich ihren Tabellen Blattnamen jeweils aus Zelle B2 holen.
Ist so etwas möglich mit VBA? Für ein einzelnes Tabellenblatt kenne ich das, aber ich benötige das für eine Arbeitsmappe die durch aus 150 Tabellenblätter haben kann. Da kann ich nicht 150 mal ein Script einfügen und anpassen.
Vielen Dank für eure Hilfe und vielleicht ein Scriptvorschlag.
Gruß, Andreas

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alle Tabellen Blatt Namen jeweils aus Zelle B2

15.07.2020 12:38:54

peterk
AW: Alle Tabellen Blatt Namen jeweils aus Zelle B2

15.07.2020 12:39:03

Werner
AW: Alle Tabellen Blatt Namen jeweils aus Zelle B2

15.07.2020 12:59:26

Andreas
On Error ist die Holzhammermethode

15.07.2020 13:13:56

Werner
AW: On Error ist die Holzhammermethode

15.07.2020 13:54:09

Andreas
AW: On Error ist die Holzhammermethode

15.07.2020 14:03:28

Werner
AW: On Error ist die Holzhammermethode

15.07.2020 14:35:00

Andreas
Gerne u. Danke für die Rückmeldung. o.w.T.

15.07.2020 14:58:21

Werner

AW: Alle Tabellen Blatt Namen jeweils aus Zelle B2

15.07.2020 12:38:54

peterk

Hallo
Ungetestet


Dim ws as Worksheet
for each ws in Thisworkbook.Worksheets
ws.name = ws.Range("B2")
next ws

AW: Alle Tabellen Blatt Namen jeweils aus Zelle B2

15.07.2020 12:39:03

Werner

Hallo,

Public Sub Blattname()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
If .Range("B2")  "" Then
.Name = .Range("B2")
End If
End With
Next ws
End Sub

Gruß Werner

AW: Alle Tabellen Blatt Namen jeweils aus Zelle B2

15.07.2020 12:59:26

Andreas

Hallo, vielen Dank. Funktioniert erstmal allerdings mit Laufzeitfehler dieser Name wird bereits verwendet. Versuche ich aber einfach mal mit on error go to Fehler abzufangen.

On Error ist die Holzhammermethode

15.07.2020 13:13:56

Werner

Hallo,

Public Sub Blattname()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
If .Range("B2")  "" Then
If .Name  .Range("B2") Then
.Name = .Range("B2")
End If
End If
End With
Next ws
End Sub

Gruß Werner

AW: On Error ist die Holzhammermethode

15.07.2020 13:54:09

Andreas

Danke noch ein mal. Es ist noch ein kleines unerwartetes Problem aufgetaucht:
wenn in B2 00 0 000 001 steht wird das Tabellenblatt 1 und nicht wie erwartet 0 Benannt. Gibt es dafür auch noch eine Lösung? Vielen Dank
Gruß Andreas

AW: On Error ist die Holzhammermethode

15.07.2020 14:03:28

Werner

Hallo,
da sage ich nur häääh?
Wenn das 00 0 000 001 in deiner Zelle steht, dann ist das Text und das Blatt wird genau so benannt, nämlich mit 00 0 000 001.
Und selbst wenn, wie kommst du darauf, dass das Ergebis (Blattname) dann 0 und nicht 1 sein soll?
Gruß Werner

AW: On Error ist die Holzhammermethode

15.07.2020 14:35:00

Andreas

Hallo sorry, hat sich erledigt.
es gab ein ausgeblendetes Tabellen Blatt das ich bei meinen mehrmaligen versuchen außer Acht gelassen habe das hat mir in die Suppe gespuckt ohne das ich es bemerkt habe. 1 ist völlig OK das nächste heißt dann 10000001 alles gut. Funktioniert alles wie gewünscht
Vielen Dank noch mal.
Gruß Andreas

Gerne u. Danke für die Rückmeldung. o.w.T.

15.07.2020 14:58:21

Werner