Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Blattnamen auflisten

Alle Blattnamen auflisten
09.11.2005 08:16:12
Klaus
Guten Morgen zusammen
Ich möchte in Tabelle1 ab H1 alle Blattnamen ab Sheet 3 einer Arbeitsmappe aufgelistet haben. Geht das mit einer Formel, oder mit VBA?
Gruss Klaus

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ohne VBA
09.11.2005 08:44:25
Mac4
Hallo Klaus,
definiere zuerst einen Namen.
Name in der Arbeitsmappe z.B. Name
unter "bezieht sich auf" =Arbeitsmappe.Zuordnen(1)
IN H1 folgende Formel und runterziehen:
=TEIL(INDEX(Name;ZEILE()+2);FINDEN("]";INDEX(Name;ZEILE()+2+1));99)
Marc
AW: Alle Blattnamen auflisten
09.11.2005 08:45:54
Erich
Hallo Klaus,
hier ein Muster wie ich das Inhaltsverzeichnis erstelle; kannst Du anpassen:
Option Explicit
Sub inhaltsverzeichnis_erstellen()
'Inhaltsverzeichnis aller Tabellenblätter
'im erten Tabellenblatt ab Zeile A1 einfügen
Dim Blatt As Object
Dim zeile As Double
Dim NewSheet As Worksheet
Dim i As Integer
zeile = 3
'Fehlerhandling
On Error Resume Next
'Abfrage unterdrücken
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sheet Inhaltsverzeichnis auf jeden Fall löschen
Sheets("Inhaltsverzeichnis").Delete
'Neues Tabellenblatt mit dem Namen Inhaltsverzeichnis hinzufügen
Set NewSheet = Worksheets.Add
NewSheet.Name = "Inhaltsverzeichnis"
Sheets("Inhaltsverzeichnis").Move before:=Sheets(1) ' = Tabellenblatt als erstes
'Überschrift Einfügen und formatieren
With Sheets("Inhaltsverzeichnis").Range("A1")
.Value = "Inhaltsverzeichnis"
.Font.Name = "Arial"
.Font.Size = "18"
.Font.Bold = True
.Font.ColorIndex = 6
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
.Font.Underline = xlUnderlineStyleSingle
End With
With Cells(1, 2)
.Font.Name = "Arial"
.Font.Size = "18"
.Font.Bold = True
.Font.ColorIndex = 6
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With
With Cells(1, 3)
.Font.Name = "Arial"
.Font.Size = "18"
.Font.Bold = True
.Font.ColorIndex = 6
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With
With Cells(2, 1)
.Value = "sortiert nach Blatt-Nr."
.Font.Name = "Arial"
.Font.Size = "16"
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With
With Cells(2, 5)
.Value = "alphabetisch sortiert"
.Font.Name = "Arial"
.Font.Size = "16"
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With
'Laufende Blattnummerierung + Blattname einfügen
For Each Blatt In Sheets
Sheets("Inhaltsverzeichnis").Cells(zeile, 1).Value = "Blatt " & zeile - 2
Sheets("Inhaltsverzeichnis").Cells(zeile, 2).Value = Blatt.Name
Sheets("Inhaltsverzeichnis").Hyperlinks.Add Anchor:=Cells(zeile, 2), Address:="", SubAddress:="'" & _
Blatt.Name & "'!A1", TextToDisplay:=Blatt.Name
zeile = zeile + 1
Next Blatt
ActiveSheet.Columns("B:B").EntireColumn.AutoFit
'Kopiere die zwei erstellten Spalten und sortiere Hyperlinks
Range("A3", Range("B65536").End(xlUp)).Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D3", Range("E65536").End(xlUp)).Select
Selection.Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Columns("D:E").EntireColumn.AutoFit
ActiveWindow.DisplayGridlines = False
Range("A3").Select
ActiveWindow.FreezePanes = True
Cells(1, 4).Value = "Diese Datei hat " & Worksheets.Count & " Tabellen"
'Userform ausblenden
'frmInhaltsverz.Hide
'Ursprungszustand wieder herstellen
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de
Anzeige
AW: Alle Blattnamen auflisten
09.11.2005 08:51:37
Harald
Moin Klaus,
oder ein kleiner 5-zeiler ins Blattmodul von Blatt 1
Private Sub Worksheet_Activate() dim x as double, i as double x = 1 For i = 3 To Sheets.Count Cells(x, 8) = Sheets(i).Name x = x + 1 Next i End Sub
Gruss Harald
AW: Alle Blattnamen auflisten
09.11.2005 09:15:11
Korl
Hallo Harald,
ich finde Deinen Code interessant. Läßt sich die Anzeige der Blattnamen auch in eine
MsgBox einbinden?
Gruß Korl
AW: Alle Blattnamen auflisten
09.11.2005 09:17:25
Klaus
Hallo zusammen
Vielen Dank für die Hilfe, werde mir das beste raussuchen
Gruss Klaus
AW: Alle Blattnamen auflisten
09.11.2005 09:24:20
Harald
Moin Korl,
ist lediglich vba-Hausmannskost. Der Code scheitert, wenn z.B Blätter verschoben werden.

Sub blattname()
For i = 2 To Sheets.Count
MsgBox Sheets(i).Name
Next i
End Sub

Gruss Harald
Anzeige
AW: Alle Blattnamen auflisten
09.11.2005 11:10:33
Korl
Hallo Harald,
hab Dank für Deine Unterstützung, es funktioniert.
Übrigens, ich benutze es auch nur als Hausmannskost ;-)
Gruß Korl
Danke für die Rückmeldung ;-)) owT
09.11.2005 11:13:20
Harald
Gruss Harald

56 Forumthreads zu ähnlichen Themen

Arbeitsblattnamen in Zelle auslesen
Lemmi

Hallo zusammen,
ich möchte ein Arbeitsblatt auf das vorher gehende Arbeitsblatt referenzieren!
Meine Datei ist folgendermaßen Strukturiert:
Arbeitsblatt 1 : Tabelle A
Arbeitsblatt 2 : Tabelle A+ Adressen
Arbeitsblatt 3 : Tabelle B
Arbeitsblatt 4 : Tabelle B+ Adressen
30.08.2008 07:38:00
Thread-ID: 1006010
6 Beiträge
Anzeige
alle Sheets mit bestimmten Namen markieren
Micha.hal

Hallo Excelperten,
wie kann ich in einer Datei per VBA alle Blätter markieren, deren Name mit einem "a" oder einem "b" endet?
Micha
01.10.2009 10:24:08
Thread-ID: 1106585
14 Beiträge
Arbeitsblattname von Arbeitsblatt auslesen
Arbeitsblatt

Hallo zusammen,
ich habe folgendes Problem: In meinem ersten Arbeitsblatt ist eine Namensliste enthalten. Alle weiteren Arbeitsblätter in meiner Arbeitsmappe sind nach den jeweiligen Namen benannt. Gibt es eine Möglichkeit automatisch die Namen der Arbeitsblätter aus der Namensliste auszule...
21.10.2009 09:33:41
Thread-ID: 1110979
8 Beiträge
Anzeige
Registerblätternnamen auslesen
Holger

Moin, moin!
Ich habe eine große Arbeitsmappe und möchte jetzt in einem Arbeitsblatt alle Registerblattnamen der Arbeitsmappe in Zeilen untereinander ausgelesen bekommen. Wie kann man da machen? Danke euch!
Holger
12.06.2010 08:59:07
Thread-ID: 1161479
3 Beiträge
Variable Tabelenblattnamen auslesen
Sebastian

Hallo liebe Excel-Experten, ich brauche mal wieder eure Hilfe.
Mein Problem:
Ich habe ein Workbook mit mehren Tabellenblätter (die Namen dieser Blätter sind immer an-ders)
Ich will nun per Makro die Namen der markierten Tabellenblätter auslesen.
Die Ausgelesenen Namen sollen unt...
16.09.2010 09:25:43
Thread-ID: 1177975
3 Beiträge
Pfad und Blattname aus Function auslesen
Frank


In meiner selbst geschriebenenen Funktion über gebe ich einen Bereich auf eine andere Arbeitsmappe ein
Wie kann ich nun die angebene Arbeitsmappe ansprechen ? da ich weitere Zellen in der Arbeitsmappe auslesen möchte.
vielen dank
mfg Frank
Function TEST(RANGE_1, name) For...
15.12.2010 20:09:05
Thread-ID: 1191689
4 Beiträge
Namensänderung Tabellenblätter
Claudia

Hallo guten Abend alle zusammen,
ich habe hier in der Fa. ein großes Programm mit vielen ausgeblendeten und eingeblendeten Tabellenblättern. Die Arbeitsmappen sind mittels VBA geschützt, Passwort bekannt.
Jetzt mein Problem: Da man bei einer geschützen Arbeitsmappe die Blätter nicht umb...
18.01.2011 06:57:15
Thread-ID: 1196047
2 Beiträge
Auswahl mehrerer Blätter mit variablem Namen
Philipp

Hallo Forum!
Ich habe glaube ich gerade ein Brett vor dem Kopf.
Ich möchte mehrere Arbeitsblätter variabel auswählen.
Gibt es hier eine Möglichkeit, anhand der Blattnummer zu sagen:
Auswahl der Blätter 5 bis 9?
Alternative wäre es möglich, den Namen des Arrays zu "basteln".<...
01.04.2011 17:27:36
Thread-ID: 1208734
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
13
7
4
2
2
3
1
5
3
18
3
1
9
2
3
1
8
6
4
5
3
4
2