Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheet-Name?!

Forumthread: Sheet-Name?!

Sheet-Name?!
21.01.2004 09:38:46
Andre
Guten Morgen,
wie kann ich den Namen eines Tabellenblattes herausfinden, wenn ich den Index dieses Tabellenblattes habe?
Kann mir da jemand weiterhelfen?
Gruß Andre
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheet-Name?!
21.01.2004 09:41:44
MRP
Hallo Andre,
meinst du sowas ? :
=TEIL(ZELLE("Dateiname";a1);FINDEN("]";ZELLE("Dateiname";a1))+1;655)
Ciao
Manuele Rocco Parrino
AW: Sheet-Name?!
21.01.2004 09:42:49
Mac4
Hallo Andre,
MsgBox Sheets(2).Name
Marc
AW: Sheet-Name?!
21.01.2004 09:44:05
ingoG
Hallo Andre,
in VBA:
=sheets(1).name
oder
worksheets(1).name
sollte funzen
Gruß Ingo
PS eine Rückmeldung wäre nett...
Anzeige
AW: Sheet-Name?!
21.01.2004 09:59:32
Andre
Hi, danke für eure schnelle Hilfe, aber ein kleines Problem hab ich noch:
Mit folgendem Code sollte ich doch dann den Namen in eine Zelle auslesen können, aber leider funktioniert das nicht, da der "Index außerhalb des gültigen Bereichs" sein soll!

Public 

Sub Archiverweiterung()
Dim a As String
Dim b As String
Sheets("Archiv").Copy Before:=Sheets(1)
[Kontrolle!G48] = Sheets.Count
a = [Kontrolle!G48]
[Kontrolle!H48] = Sheets(a).Name
Sheets("Posten").Copy Before:=Sheets(1)
[Kontrolle!I48] = Sheets.Count
b = [Kontrolle!I48]
[Kontrolle!J48] = Sheets(b).Name
Sheets("Archiv").Range("A2:AX65500").ClearContents
Sheets("Posten").Range("A2:IV65500").ClearContents
End Sub

Gruß Andre
Anzeige
Hat sich schon erledigt! Danke
21.01.2004 10:51:32
Andre
Die Variabel war völlig überflüssig, da das eingefügte Tabellenblätter immer sheets(1).name ist!
Danke an alle.
Gruß Andre
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige