Anzeige
Archiv - Navigation
1884to1888
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
Inhaltsverzeichnis

Registername automatisch benennen Zelle

Registername automatisch benennen Zelle
04.06.2022 13:32:53
Julia
Hallo
ich möchte das die Registernamen der Register (5-...) automatisch aus Zelle D1 und Zelle D2 benannt werden. Die Register (5-...) Zelle D1 und D2 sind mit Formel hinterlegt und ziehen sich die Daten aus Tabelle 1 (Bestellung)
ich haben folgenden Code, der funktioniert auch, allerding ändern sich die Daten erst, wenn man das Register direkt anklickt.
Private Sub Worksheet_Activate()
ActiveSheet.Name = Cells(1,4) & " " & Cells (2,4)
Ende Sub
Ich möchte gerne das es sich schon automatisch ändert, wenn etwas in der Tabelle 1 (Bestellung) geändert wird.
Vielen Dank schon mal.

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

Betreff
Datum
Anwender
Anzeige
AW: Registername automatisch benennen Zelle
04.06.2022 13:54:15
GerdL
Hallo Julia,
uneingeschränkt bei automatischer Formelberechnung.

Private Sub Worksheet_Calculate()
Me.Name = Cells(1, 4) & " " & Cells(2, 4)
End Sub
Gruß Gerd
AW: Registername automatisch benennen Zelle
04.06.2022 22:00:57
onur
Register haben keine Namen, da steht höchstens was drauf, und zwar der Name des Arbeitsblattes, auf das du durch draufklicken gelangst.
AW: Registername automatisch benennen Zelle
06.06.2022 11:09:25
Wolfgang
Hallo Julia,
ein ähnliches Problem hatte ich auch schon und es wurde damit gelöst, dass ein Makro eingefügt wurde und in jeden Tabellenblatt ebenfalls. Da dies sich nur auf eine Zelle (B2) bezieht, weiß ich nicht, ob das auch mit zwei Zellen funktioniert. Alternativ bliebe noch eine Verknüpfung Deiner beiden Zellen in einer einzelnen Zelle.
Hier das Makro als Modul 1:
Sub TabName()
On Error GoTo errorMsgExcel
If Range("B2") "" Then ActiveSheet.Name = Range("B2")
End
errorMsgExcel:
MsgBox ("bitte gültige Zeichen auswählen" & Chr$(13) & Chr$(13) & _
Range("B2") & Chr$(13) & Chr$(13) & _
ist leider nicht zulässig als Tabellennamen), 16, "Fehler"
End Sub und in jeds Tabellenblatt unter "Code" das hier einfügen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then TabName 'wenn Zelle B2 sich ändert, dann startet Makro Tabname
End Sub
Hoffe ich konnte helfen.
schönen Tag noch
Wolfgang
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige