Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon m-o-m vom 11.10.2022, 11:51 Options
Alle Registerbezeichnungen einer Tabelle auswerten
Hallo Excelisten,
wie kann ich unter Excel 2003 die Bezeichnungen aller Register auslesen? Ob in einer neuen Datei, oder in einem neuen Register oder ab der aktuell aktivierten Zelle ist egal.
Gruß und schonmal vorab DANKE.
Maik
wie kann ich unter Excel 2003 die Bezeichnungen aller Register auslesen? Ob in einer neuen Datei, oder in einem neuen Register oder ab der aktuell aktivierten Zelle ist egal.
Gruß und schonmal vorab DANKE.
Maik
Antwort 1 von M.O. vom 11.10.2022, 20:01 OptionsLösung
Hallo Maik,
folgender Code schreibt dir die Namen der in der aktuellen Arbeitsmappe vorhandenen Tabellenblätter in das aktivierte Arbeitsblatt ab Zeile 1:
Gruß
M.O.
folgender Code schreibt dir die Namen der in der aktuellen Arbeitsmappe vorhandenen Tabellenblätter in das aktivierte Arbeitsblatt ab Zeile 1:
Sub Tabellenblaetter_auslesen()
Dim az As Integer
For az = 1 To ActiveWorkbook.Worksheets.Count
Cells(az, 1) = ThisWorkbook.Worksheets(az).Name
Next az
End SubGruß
M.O.
Antwort 2 von Hajo_Zi vom 11.10.2022, 20:06 Options
Hallo Maik,
hier mal eine Lösung ohne VBA, die mal in einem Forum Stand
Gruß Hajo
hier mal eine Lösung ohne VBA, die mal in einem Forum Stand
Zitat:
Hi Holger,
hatte diese Frage auch grad in einem anderen Forum (anderer Fragesteller) so beantwortet:
Einfügen -> Namen -> Definieren/Festlegen, Name: x
bezieht sich auf:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
In irgendeine Zelle jetzt diese Formel und runterkopieren:
=WENN(ZEILEN($1:1)>VERGLEICH("";x;-1);"";TEIL(INDEX(x;ZEILEN($1:1));FINDEN("]";INDEX(x;ZEILEN($1:1)))+1;31))
Grüße Boris
Hi Holger,
hatte diese Frage auch grad in einem anderen Forum (anderer Fragesteller) so beantwortet:
Einfügen -> Namen -> Definieren/Festlegen, Name: x
bezieht sich auf:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
In irgendeine Zelle jetzt diese Formel und runterkopieren:
=WENN(ZEILEN($1:1)>VERGLEICH("";x;-1);"";TEIL(INDEX(x;ZEILEN($1:1));FINDEN("]";INDEX(x;ZEILEN($1:1)))+1;31))
Grüße Boris
Gruß Hajo
Antwort 3 von m-o-m vom 12.10.2022, 08:18 Options
Hallo M.O. und Hajo,
besten Dank für die Bearbeitung meiner Frage.
Das kleine Makro ist exakt das, was ich brauche.
Danke
Maik
besten Dank für die Bearbeitung meiner Frage.
Das kleine Makro ist exakt das, was ich brauche.
Danke
Maik
Antwort 4 von m-o-m vom 13.10.2022, 13:35 Options
Moinsen,
ich bins nochmal.
Irgendwie klappt das Makro nur bei den Standards (Tabelle 1, 2, 3).
Ansonsten kommt der Fehler 'Index außerhalb des gültigen Bereichs'
markiert wird diese Zeile:
Aber die Formeln von Hajo funzen. Insofern gebühren die Lorbeeren eigentlich Hajo.
Danke nochmals
Maik
ich bins nochmal.
Irgendwie klappt das Makro nur bei den Standards (Tabelle 1, 2, 3).
Ansonsten kommt der Fehler 'Index außerhalb des gültigen Bereichs'
markiert wird diese Zeile:
Cells(az, 1) = ThisWorkbook.Worksheets(az).NameAber die Formeln von Hajo funzen. Insofern gebühren die Lorbeeren eigentlich Hajo.
Danke nochmals
Maik
Ähnliche Themen
Lottozahlen auswerten
Rastermen 09.08.2009 - 2760 Hits - 19 Antworten
Excel: Bestimmte Zeilen einer Tabelle automatisch in eine andere Tabelle übertragen
Die_Melanie 17.06.2009 - 1163 Hits - 4 Antworten
Mehrer Tabellen in einer Mappe vergleichen und in eiener Tabelle auswerten
dmtaucher 10.10.2009 - 414 Hits - 1 Antwort
Dublikate mit Excel aus Tabelle filtern und in andere Tabelle kopieren bzw. nachhalten
jdompke 17.02.2010 - 451 Hits - 6 Antworten
Auswerten Schriftfarbe
hofi76 07.04.2010 - 159 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
