Registername in Zelle übernehmen

Computer: Software & Programmierung Office Software
1

Hallo,

leider konnte ich trotz Suche keine Antwort auf mein Problem finden.

Ich möchte, dass der Name des Registers (da steht beim Öffnen von Excel Standardmäßig „Tabelle 1“ „Tabelle2“ usw.) in eine Zelle übernommen wird. Z.B. A1=Registername.

Wer weiss was?

Gruss
Stefan

2

Hallo Stefan,
Die Formel Adresse müsste sowas erledigen können

Gruss

Alex

3

Ich möchte, dass der Name des Registers (da steht beim Öffnen
von Excel Standardmäßig „Tabelle 1“ „Tabelle2“ usw.) in eine
Zelle übernommen wird. Z.B. A1=Registername.

Hi Stefan,
A1: =TabName()

im VBa Editor in ein modul:

Function TabName()
TabName = ActiveSheet.Name
End Function

Gruß
Reinhard

4

Ich möchte, dass der Name des Registers (da steht beim Öffnen
von Excel Standardmäßig „Tabelle 1“ „Tabelle2“ usw.) in eine
Zelle übernommen wird. Z.B. A1=Registername.

Hi Stefan,
A1: =RECHTS(ZELLE(„Dateiname“);LÄNGE(ZELLE(„Dateiname“))-FINDEN("]";ZELLE(„Dateiname“)))

Klappt dannn wenn Datei mal gespeichert wurde, vorher bekommt man #Wert.
Gruß
Reinhard

5

Hallo Stefan,
Die Formel Adresse müsste sowas erledigen können

Gruss

Alex

Hi Alex,
nein, Adresse ist nicht richtig.
Gruß
Reinhard

6

Hi Stefan,
A1: =TabName()

im VBa Editor in ein modul:

Function TabName()
TabName = ActiveSheet.Name
End Function

Gruß
Reinhard

Danke schon mal. Ich habe das so übernommen - klappt natürlich nicht. :wink: Kenne nämlich Visual Basic nicht. Aber ich kenne einen der es kennt, den werde ich interviewen. Dann wird es wohl klappen.

Vielen Dank!

gruss
stefan

7

Danke schon mal. Ich habe das so übernommen - klappt natürlich
nicht. :wink: Kenne nämlich Visual Basic nicht. Aber ich kenne
einen der es kennt, den werde ich interviewen. Dann wird es
wohl klappen.

Hi Stefan,
dann nimm halt meine andere Lösung.
Oder als Anschubbs zu VBA, Alt+F11, im VB-Editor dann Einfügen----Modul—dort dann den nachfolgenden Code reinkopieren, VB-Editor schliessen. Das wars schon.

In Excel rufst du die Funktion wie jede andere Funktion auf, also direkt in die Zelle schreiben, oder Einfügen—Funktion—Benutzerdefiniert—Tabname…
Gruß
Reinhard

Function TabName()
TabName = ActiveSheet.Name
End Function