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

Tabellenblatt-Name anhand eines Zelleneintrags ändern

Forumthread: Tabellenblatt-Name anhand eines Zelleneintrags ändern

Tabellenblatt-Name anhand eines Zelleneintrags ändern
05.08.2025 15:24:04
Pellets25
Hallo zusammen.

Der Inhalt einer Zelle soll zum Tabellenblatt-Namen werden und als Registername in der Arbeitsmappe erscheinen.

Ich wende in Zelle BA9 eine 'Zählenwenns-Formel an, um Zellen mit Eintrag zu zählen.
In Zelle BB9 dann eine Anzahl2-Formel.
Daraufhin dann in BC9 folgende Formel: ="Transport ID " & SUMME(BB9-BA9)

Das Ergebnis soll als Name des Tabellenblattes erscheinen.

Habe u.a. dieses hier kopiert, allerdings ohne das es funktioniert:

Private Sub Worksheet_Activate()
If ActiveSheet.Range("BC9") "" Then
ActiveSheet.Name = Range("BC9").Text
End If
End Sub


Vielen Dank für euere Unterstützung!


Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt-Name anhand eines Zelleneintrags ändern
05.08.2025 15:46:41
GerdL
Hallo

Solange deine Formel in BC9 sich auf BA9 u. BB9 bezieht.
Ins Modul der Tabelle kopieren.
Private Sub Worksheet_Change(ByVal Target As Range)


On Error GoTo fin
If Not Intersect(Target, Range("BA9:BB9")) Is Nothing Then
Application.EnableEvents = False
If Range("BC9").Text > "" Then
Me.Name = CStr(Range("BC9").Text)
End If
End If
fin:
Application.EnableEvents = True

End Sub

Gruß Gerd
Anzeige
AW: Tabellenblatt-Name anhand eines Zelleneintrags ändern
05.08.2025 16:03:03
Pellets25
Hi.

Danke. Hab ich versucht, funktioniert leider nicht.

Ist es möglich, dass dieser bereits vorhandene Eintrag

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target.Calculate

End Sub


dem Makro in die Quere kommt???
AW: Tabellenblatt-Name anhand eines Zelleneintrags ändern
05.08.2025 15:49:52
JoWE
Hallo,
meinst Du so:
Private Sub Worksheet_Activate()
If ActiveSheet.Range("BC9") > "" Then ActiveSheet.Name = "Transport ID " & Range("BC9").Text
End Sub
Gruß
Jochen
Anzeige
AW: Tabellenblatt-Name anhand eines Zelleneintrags ändern
05.08.2025 16:06:37
daniel
Hi

da du den Wert aus einer berechneten Zelle holst, müsstest du das Calculate-Event verwenden um den Namen automatisch bei Änderung anzupassen

hier mal die kurzversion:
Private Sub Worksheet_Calculate()

With Range("BC9")
If Me.Name > .Text Then Me.Name = .Text
End With
End Sub


ich würde vermutlich noch eine Prüfung einbauen, ob der Name nicht schon bereits an anderer Stelle vergeben ist, falls das möglich sein kann.

Gruß Daniel
Anzeige
AW: Tabellenblatt-Name anhand eines Zelleneintrags ändern
05.08.2025 16:12:30
Pellets25
Danke Daniel,

funktioniert!!!

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige