Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
176to180
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
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Übersicht über Tabellenblätter

Übersicht über Tabellenblätter
06.11.2002 22:30:29
Torsten
Habe also Lösung zur Darstellung einer Übersicht aller Tabellenblätter folgendes Makro gefunden:
Private Sub Worksheet_Activate()
Cells(1, 1).Select
For Each n In Worksheets
Selection.Value = n.Name
Selection.Offset(1).Select
Next
Cells(1, 1).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Worksheets(Target.Value).Activate
End Sub

Jetzt möchte ich aber nicht, daß das Registerblatt - auf welchem die Übersicht steht - mit aufgelistet wird. Wie geht das?

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

Betreff
Datum
Anwender
Anzeige
Re: Übersicht über Tabellenblätter
06.11.2002 22:39:16
Martin Bolleter
Hallo Torsten

du überspringst es in der Schleife einfach. zB:

Private Sub Worksheet_Activate()
Cells(1, 1).Select
For Each n In Worksheets
If n.Name <> ActiveSheet.Name Then
Selection.Value = n.Name
Selection.Offset(1).Select
End If
Next
Cells(1, 1).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending
End Sub

Gruss
Martin

Re: Übersicht über Tabellenblätter
06.11.2002 22:45:52
Torsten
Klappt super.
Wenn ich nun eine bestimmtes Blatt auch nicht aufgelistet habe überspringe ich es auch einfach in dem ich den Namen eingebe?
Re: Übersicht über Tabellenblätter
06.11.2002 23:40:39
Martin Bolleter
Hallo Torsten

du musst nur die If Anweisung entsprechend anpassen, d.h. die verschiedenen Bedingungen mit Und verknüpfen:

If n.Name <> ActiveSheet.Name And n.Name <> "TabelleXy" Then

Gruss
Martin

Anzeige
Re: Übersicht über Tabellenblätter
07.11.2002 20:34:06
Torsten
Hallo Martin,
das klingt gut - aber funktioniert irgendwie nicht.
Er zeigt mir trotzdem das Blatt an...
Re: Übersicht über Tabellenblätter
07.11.2002 23:01:41
Martin Bolleter
Hallo Torsten

poste mal deinen Code ins Forum, dann kann ich mir ansehen, wo's klemmt.

Gruss
Martin

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige