Name des letzten Blattes ohne VBA

Forumthread: Name des letzten Blattes ohne VBA

14.02.2021 14:23:34

Willi

Hallo,
ich möchte den Namen des letzten Tabellenblattes per Formel anzeigen.
Die Lösung mit VBA
LeztesBlatt = Worksheets(Worksheets().Count).Name
kenn ich, würde aber gerne wissen ob es da auch eine Möglichkeit ohne VBA gibt.
Danke im voraus
Gruß, Willi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, mE geht das nicht ohne VBA .. Gruß Matthias

14.02.2021 14:29:45

Matthias

AW: Name des letzten Blattes ohne VBA

14.02.2021 15:07:57

Hajo_Zi

Hallo Willi,
mit Hilfsspalte.

vorhandene Tabellen

	A	B	C	D
1	Datum	Veranstaltung
2	Tabelle1	Letzte Tabele	Tabelle4
3	Tabelle2
4	Tabelle5
5	Tabelle3
6	Tabelle4
7		Hi Holger,
8
9		hatte diese Frage auch grad in einem anderen Forum (anderer Fragesteller) so beantwortet:
10
11		Einfügen -> Namen -> Definieren/Festlegen, Name: x
12		bezieht sich auf:
13		=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
14
15		In irgendeine Zelle jetzt diese Formel und runterkopieren:
16		=WENN(ZEILEN($1:1)>VERGLEICH("";x;-1);"";TEIL(INDEX(x;ZEILEN($1:1));FINDEN("]";INDEX(x;ZEILEN($1:1)))+1;31))
17
18		Grüße Boris
19
20
21		Formel runter ziehen falls Mehr Tabellen
22		fürs Add In

verbundene Zellen

B1: D1

verwendete Formeln
Zelle	Formel	Bereich	N/A
C2	=INDEX(A:A;SUMMENPRODUKT((A:A<>"")*1))
B4:B6,B19:B20	=WENN(ISTFEHLER(INDIREKT(A4&"!B4: D4"));"";INDIREKT(A4&"!B4: D4"))
C6,C19:C21	=WENN(ISTFEHLER(INDIREKT(A6&"!E4"));"";INDIREKT(A6&"!E4"))
D6: D21	=WENN(ISTFEHLER(INDIREKT(A6&"!F4"));"";INDIREKT(A6&"!F4"))
A2:A22	=WENN(ZEILEN($1:1)>VERGLEICH("";x;-1);"";TEIL(INDEX(x;ZEILEN($1:1));FINDEN("]";INDEX(x;ZEILEN($1:1)))+1;31))

definierte Namen
Name	Bezieht sich auf	Tabelle	Z1S1-Formel
x	=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())		=GET.WORKBOOK(1+0*NOW())

Füllfarben und Muster
Zelle	Rot	Grün	Blau	Color	Muster	Farbe
A1:B1	150	150	150	9868950

Zellen mit Füllfarbe automatisch werden nicht dargestellt

AW: Name des letzten Blattes ohne VBA

14.02.2021 16:44:36

Willi

Hallo Hajo vielen Dank erstmal für den schnellen Lösungsvorschlag.
Hab es gerade ausprobiert. Es funktioniert zwar aber,
da die Funktion ARBEITSMAPPE.ZUORDNEN als Excel4 Makro erkannt wird gibt Excel mir nun den folgenden Hinweis:
AUTOMATISCHES SPEICHERN NICHT MÖGLICH. VB Projekte müssen in Arbeitsmappen mit Makros gespeichert werden..
Das wollte ich ja eigentlich vermeiden.
Gruß, Willi

siehe meine Antwort ... owT

14.02.2021 17:21:37

Matthias

AW: siehe meine Antwort ... owT

14.02.2021 17:39:16

Willi

Okay Matthias,
wenns denn so ist, dann werd ich wohl damit leben müssen :(
wenn ich auch die Hoffnung noch nicht ganz aufgegeben habe das es über irgendwelche Umwege doch noch funktioniert.
Trotzdem Danke.
Gruß, Willi

wenn die Blätter durchnumeriert sind

14.02.2021 17:51:30

... also nicht "Willi, Walter, Winfried, Wotan, Wüterich ... " hei8en,
sondern
Willi-1, Willi-2, Willi-3, Willi-4 ...
dann:
="Willi-"&BLÄTTER()
WF

AW: wenn die Blätter durchnumeriert sind

14.02.2021 18:30:03

Willi

Die Namen stehen für die Kalenderwochen, also KW1, KW2 usw.
Damit passt es Perfekt.
Vielen Dank
Gruß, Willi

Beliebteste Forumthreads (12 Monate)

Name des letzten Blattes ohne VBA

Forumthread: Name des letzten Blattes ohne VBA

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread