in Zelle Namen

Forumthread: in Zelle Namen

in Zelle Namen

14.12.2024 19:33:38

wolfgang

Guten Abend,
ich möchte gern auf der Tabelle "Start" A40 den Namen der Tabelle1 setzen.
Habe mal so probiert: =name(Tabelle1)
geht natürlich nicht.

mfg wolfgang

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: in Zelle Namen

14.12.2024 20:15:36

wolfgang
AW: in Zelle Namen

14.12.2024 20:49:27

Onur
AW: in Zelle Namen

14.12.2024 20:26:39

ralf_b
AW: in Zelle Namen

15.12.2024 10:48:04

GerdL
Gerd klappt leider nicht

15.12.2024 15:36:43

wolfgang
AW: Gerd klappt leider nicht

15.12.2024 15:38:54

Onur
Habe ich gemacht...

15.12.2024 16:43:51

wolfgang
AW: Gerd klappt leider nicht

15.12.2024 16:54:27

wolfgang
Endlich die Lösung ! -)

15.12.2024 16:57:32

wolfgang
AW: in Zelle Namen

14.12.2024 20:36:54

wolfgang
AW: in Zelle Namen

14.12.2024 22:09:18

ralf_b
Hallo Ralf, leider klappt nicht...

15.12.2024 14:53:45

wolfgang
AW: Hallo Ralf, leider klappt nicht...

15.12.2024 15:02:18

Onur

AW: in Zelle Namen

14.12.2024 20:15:36

wolfgang

Guten Abend,
habe dies gefunden.

=TEIL(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1))+1;30)

aber ich möchte den Namen der Tabelle1 haben, der Sheetname ist: Lager2024 und und das ist in der
VBA Ansicht die Tabelle1.

gruß wolfgang

AW: in Zelle Namen

14.12.2024 20:49:27

Onur

Google mal einfach nach "VBA Codename".

AW: in Zelle Namen

14.12.2024 20:26:39

ralf_b

der Codename ist nicht per Formel zugreifbar.

AW: in Zelle Namen

15.12.2024 10:48:04

GerdL

Hallo Wolfgang!

Public Function Test(Blattname As String)
Test = Worksheets(Blattname).CodeName
End Function

In ein allgemeines Modul, z.B. Modul1, einfügen; aufzurufen in der Zelle mit =Test("Start")

Gruß Gerd

Gerd klappt leider nicht

15.12.2024 15:36:43

wolfgang

Hallo Gerd,
in Zelle 40 Formel: =Test("Start")
Ergebnis "#Name?"

gruß wolfgang

AW: Gerd klappt leider nicht

15.12.2024 15:38:54

Onur

In ein allgemeines Modul !
Also Standardmodul und NICHT Blatt- oder Mappenmodul.

Habe ich gemacht...

15.12.2024 16:43:51

wolfgang

Hallo zusammen,
ich habe eine andere Idee.
Ich möchte per Makro (in Auto-Open) den wert aus der Tabelle1 (Lager) Zelle "R3" in die Zelle 40 der Tabelle ("Start")
einsetzen.
Da die Tabelle1 immer gleich ist aber der Arbeitsplatzname sich ändern kann, wäre dies eine
Möglichkeit. Ist zwar umständlich müßte aber funktionieren.

mfg wolfgang

AW: Gerd klappt leider nicht

15.12.2024 16:54:27

wolfgang

Hallo zusammen,
so geht es !

 ThisWorkbook.Sheets("Start").Range("A40") = Worksheets("Lager1").Range("R2")

so nicht und das ist das Problem:
ThisWorkbook.Sheets("Start").Range("A40") = Worksheets("Tabelle1").Range("R2")

mfg wolfgang

Endlich die Lösung ! -)

15.12.2024 16:57:32

wolfgang

Hallo zusammen,
habe gerade die Lösung selbst heraus gefunden:

 ThisWorkbook.Sheets("Start").Range("A40") = Tabelle1.Range("R2")

schönen 3. Advent noch !

mfg wolfgang

AW: in Zelle Namen

14.12.2024 20:36:54

wolfgang

Hallo Ralf,
wie könnte man den das per Makro durchführen ?
Dann würde ich das Makro in die Workbook_Open reinsetzen.

mfg wolfgang

AW: in Zelle Namen

14.12.2024 22:09:18

ralf_b

Private Sub Workbook_Open()

    Dim wsStart As Worksheet



    ' Tabelle "Start" referenzieren

    On Error Resume Next

    Set wsStart = Me.Worksheets("Start")

    On Error GoTo 0



    ' Prüfen, ob die Tabelle "Start" existiert

    If wsStart Is Nothing Then Exit Sub



    ' Code-Namen von Tabelle1 in Zelle A40 der Tabelle "Start" eintragen

    wsStart.Range("A40").Value = Tabelle1.CodeName

End Sub

Hallo Ralf, leider klappt nicht...

15.12.2024 14:53:45

wolfgang

Guten Tag Ralf,
erst mal einen schönen 3.Advent !
Ich habe dein Makro installiert aber es wird "Tabbele1" in Sheet "Start" Zelle 40 eingesetzt.
Die Tabelle1 ist aber der Name Tabelle1 (Lager).
So steht es auch im VBAProject.

mfg wolfgang

AW: Hallo Ralf, leider klappt nicht...

15.12.2024 15:02:18

Onur

 Tabelle1.CodeName

ist ja auch Blödsinn, der der CodeName der Tabelle1 ist ja "Tabelle1".
Nimm das:

wsStart.Range("A40").Value = Sheets("Lager2024").CodeName

Forumthread: in Zelle Namen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread