Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt

Forumthread: Tabellenblatt

Tabellenblatt
Hansjörg
Einen schönen guten Morgen ihr Excelprofis!!!
Ich habe wieder eine dringende Anfrage betreffs Öffnen eines Tabellenblattes und zwar:
In Anhängigkeit er Eingabe in Zelle A1 soll das betreffende Tabellenblatt geöffnet werden.
z.B. in Zelle A1 steht "01.03. T " so soll das Tabellenblatt 01.03. T geöffnet werden.
Vielen Dank!!!
Hansjörg
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblatt
03.03.2011 07:22:26
Florian
Hallo Hansjörg,
z.B. schau z.B. hier:
Sub Activate()
Dim ws As Worksheet, NaviSheet As Worksheet
With ThisWorkbook
Set NaviSheet = .Sheets("NAVI")
For Each ws In .Worksheets
If NaviSheet.Cells(1, 1) = ws.Name Then ws.Activate
Next ws
End With
End Sub
Gruss Florian
Anzeige
und hier ohne Schleife ...
03.03.2011 08:11:06
Matthias
Hallo
Dim StartSheet As String
StartSheet = Worksheets("NAVI").Cells(1, 1).Text
Worksheets(StartSheet).Activate

Komplett würde ich es so machen: mit Fehlerbehandlung
Private Sub Workbook_Open()
Dim StartSheet As String
StartSheet = Worksheets("NAVI").Cells(1, 1).Text
On Error GoTo MyErr 'Wenn Blatt nicht vorhanden, Fehler abfangen
Worksheets(StartSheet).Activate
Exit Sub
MyErr:
On Error GoTo 0 'Fehler zurücksetzen!
MsgBox "Registerblattname:[" & StartSheet & "] wurde nicht gefunden", vbInformation, "Hinweis  _
an " & Application.UserName
End Sub

Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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