Register Name aus einer Zelle A1 beziehen!

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

Ich will den Tabellennamen (TAB1) aus einer Zelle übernehmen z.B. Zelle A1.
Diese Zelle (A1) ist verkettet mit einer anderen Zelle aus einen anderen Tabelle( TAB2 ).
Diese Namensänderung soll aber nur TAB1 betreffen.

Bin für jede Lösung glücklich. (Ecxel Formel oder VBA)

grüße

Andreas

2

Hallo Andreas,

Ich will den Tabellennamen (TAB1) aus einer Zelle übernehmen
z.B. Zelle A1.
Diese Zelle (A1) ist verkettet mit einer anderen Zelle aus
einen anderen Tabelle( TAB2 ).
Diese Namensänderung soll aber nur TAB1 betreffen.

kannst du das nochmals anders beschreiben was du planst.
In Tabelle1!A1 steht der Name von Tabelle2 und dort soll wenn der Name von Tabelle2 geändert wird der neue Name von Tabelle2 erscheinen?

Desgleichen in A2 für Tabelle3?

Gruß
Reinhard

3

Hallo Reinhard,

Ich habe mir das so gedacht…
zB.:
Ich schreibe in Tabelle 2=> Zelle A1 den Namen ein.
Um diesen Namen von Tabelle 2 auf Tabelle 1 => Zelle A1 zu bringen habe ich eine Verkettung gemacht.(siehe unten)

Tabelle 1 =>Zelle A1 steht
=VERKETTEN(Tabelle2!A1

Dieser Name der in Tabelle 1 => Zelle A1

4

Tabelle 1 =>Zelle A1 steht =VERKETTEN(Tabelle2!A1)
Dieser Name der in Tabelle 1 => Zelle A1

Private Sub Worksheet_Change(ByVal Target As Range)
NeuerBlattname Target, „A1“
End Sub

Sub NeuerBlattname(ByVal Zelle As Range, NameInZelle As String)
Dim strNewName As String
On Error GoTo finis
If Zelle.Address = ActiveSheet.Range(NameInZelle).Address Then
strNewName = Zelle.Text
Sheets(1).Name = strNewName
End If
finis:
End Sub

Die Makros darfst Du nicht im Modul-Bereich eingeben, sondern im Objekt-Bereich der Tabelle2: am unteren Fensterrand mit der rechten Maustaste das Register Tabelle2 anklicken, im aufklappenden Kontextmenü den Befehl „Code anzeigen“ wählen und hier die Makros einfügen.

Falls der neue Name bereits für eine andere Tabelle vergeben ist, passiert nichts.

Grüsse Niclaus

5

Ich schreibe in Tabelle 2=> Zelle A1 den Namen ein.
Um diesen Namen von Tabelle 2 auf Tabelle 1 => Zelle A1 zu
bringen habe ich eine Verkettung gemacht.(siehe unten)

Hallo Andreas,

vergebe einen Namen z.B.: „Blattname“ für:

=ARBEITSMAPPE.ZUORDNEN(38)

Dann schreibst du in A1 des Blattes dessen Namen du wissen willst:

=Blattname

Gruß
Reinhard

6

Hallo zusammen,

Habe zwar etwas gefunden aber es funktioniert nur in einer Tabelle.
Wenn man in VBA (Alt + F11) Bei Tabelle 1 folgendes eingibt…

Private Sub Worksheet_Change(ByVal Target As Range)
Dim blattName As Range
'Definition der Zelle in der der Blattname stehen soll
Set blattName = ActiveSheet.Cells(1, 1)

On Error GoTo f
'Blattnamen aus Zelle lesen und zuweisen
ActiveSheet.Name = blattName.Value

Exit Sub
f:
'Umbenennung fehlgeschlagen, Zellinhalt zurückändern
blattName.Value = ActiveSheet.Name
MsgBox „Umbenennung fehlgeschlagen!“
End Sub

… Kann ich bei A1 den Tabellen-Namen ändern.
Das geht auch mit einer Verkettung zu „B2“ ABER!!!
Leider finde ich keine Lösung Diesen Namen z.b. von Tabelle 2 aus zu ändern.

Habt ihr vieleicht eine Lösung ???

mfg.
Andreas

7

Wenn man in VBA (Alt + F11) Bei Tabelle 1 folgendes eingibt…

Hallo Andreas
Du darfst das nicht bei Tabelle1 eingeben, sondern bei Tabelle2. Du hast doch weiter oben gesagt:

Ich schreibe in Tabelle 2=> Zelle A1 den Namen ein.
Um diesen Namen von Tabelle 2 auf Tabelle 1 => Zelle A1 zu bringen habe ich
eine Verkettung gemacht.
Tabelle 1 =>Zelle A1 steht =VERKETTEN(Tabelle2!A1
Dieser Name der in Tabelle 1 => Zelle A1