AW: Inhalstverzeichnis per Makro
15.08.2006 08:40:12
Martin
Hallo Michael,
Hier aus dem Archiv. Hoffe es hilft!
Liste der Tabellenblatt-Namen
Liste der Tabellenblatt-Namen von Alfons vom 21.05.2003 - 14:02:41
Re: Liste der Tabellenblatt-Namen von andreas e vom 21.05.2003 - 14:06:31
Re: Liste der Tabellenblatt-Namen von Alfons vom 21.05.2003 - 14:22:02
Re: Tabellen sortieren von Martin Beck vom 21.05.2003 - 14:31:07
Re: Liste der Tabellenblatt-Namen von andreas e vom 21.05.2003 - 14:28:28
Gibt es eine Möglichkeit, in einem Tabellenblatt eine Liste mit allen Tabellenblatt-Namen dieser Datei zu erstellen?
Kann ich die Reihenfolge der Tabellenblätter irgendwie automatisch ändern?
Vielen Dank im voraus
mfg
Alfons
Re: Liste der Tabellenblatt-Namen
Hallo Alfons,
nachstehender Code listet die Namen in Tabelle1 Spalte A auf:
Sub namen()
For i = 1 To Worksheets.Count
Sheets("Tabelle1").Cells(i, 1).Value = Sheets(i).Name
Next
End Sub
was meinst du mit sortieren ?
welche Kriterien?
gruß
andreas e
Re: Liste der Tabellenblatt-Namen
Danke für die prompte Antwort.
Die Namen sind bei mir Seriennummern (nur Zahlen).
Die Tabellenblätter sind in willkürlicher Reihenfolge; jetzt hätte ich sie gerne nach auf-/absteigenden Seriennummern.
Die Seriennummern, sprich Tabellenblattnamen, kommen auch in den Tabellenblättern nochmal vor.
Re: Liste der Tabellenblatt-Namen
hallo alfons,
hier eine routine von Berti zum sortieren:
Sub Tabellen_sortieren()
Dim i As Integer, j As Integer
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
'aufsteigend
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
'absteigend
'If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
'Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose downloads zu EXCEL und mehr
Re: Tabellen sortieren
Hallo Alfons,
'Absteigende Sortierung der Tabellen nach dem Tabellennamen
Sub Tabellensort_absteigend()
For i = 1 To Worksheets.Count - 1
x = Worksheets(i).Name
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name > x Then
x = Worksheets(j).Name
End If
Next j
Worksheets(x).Move Before:=Worksheets(i)
Next i
End Sub
'Aufsteigende Sortierung der Tabellen nach dem Tabellennamen
Sub Tabellensort_aufsteigend()
For i = 1 To Worksheets.Count - 1
x = Worksheets(i).Name
For j = i + 1 To Worksheets.Count
If Worksheets(j).Name < x Then
x = Worksheets(j).Name
End If
Next j
Worksheets(x).Move Before:=Worksheets(i)
Next i
End Sub
Gruß
Martin Beck