Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 05:06:02
Mahjong gratis: gioco di puzzle senza tempo
04.10.2025 05:04:16
Mahjong gratuito: gioco di puzzle senza tempo
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox (Tabellenblätter) aufrufen

Forumthread: Listbox (Tabellenblätter) aufrufen

Listbox (Tabellenblätter) aufrufen
02.11.2019 17:03:12
Tanja
An das VBA-Forum,
es werden alle Tabellenblätter (viele sind versteckt mit "xlSheetVeryHidden") in einer Listbox angezeigt.
Nun möchte ich in der Listbox eine Zeile markieren und diese per Schaltfläche auf xlSheetvisible setzen und
das Tabellenblatt aufrufen.
Hab ein Makro zusammen gestellt, läüft aber nicht.
Wer kann mir helfen?
LG
Tanja
Private Sub Einstellungen_cmd_Tabellenbl_einblenden_Click()
Dim i As Integer
For i = 0 To ListBox_Einstellungen_Tabellenblaetter.ListCount - 1
If ListBox_Einstellungen_Tabellenblaetter.Selected(i) Then
Sheets(ListBox_Einstellungen_Tabellenblaetter.List(i)).Activate
Exit For
End If
Next
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Listbox (Tabellenblätter) aufrufen
02.11.2019 17:08:02
Hajo_Zi
Sheets(ListBox_Einstellungen_Tabellenblaetter.List(i)).visible=xlSheetvisible

AW: Listbox (Tabellenblätter) aufrufen
02.11.2019 17:19:06
Tanja
Hallo Hajo_Zi
erst einmal DANKE.
Eigentlich hätte ich auch selbst drauf können.
Vielen Dank.
LG
Tanja
AW: Listbox (Tabellenblätter) aufrufen
02.11.2019 17:23:00
Nepumuk
Hallo Tanja,
dazu brauchst du keine Schleife:
Private Sub Einstellungen_cmd_Tabellenbl_einblenden_Click()
    With ListBox_Einstellungen_Tabellenblaetter
        If .ListIndex > -1 Then
            With Worksheets(.List(.ListIndex))
                .Visible = xlSheetVisible
                .Select
            End With
        Else
            MsgBox "Bitte erst eine Tabelle auswählen.", vbExclamation, "Hinweis"
        End If
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Listbox (Tabellenblätter) aufrufen
02.11.2019 18:43:51
snb
Und vielleicht nur
Private Sub Einstellungen_cmd_Tabellenbl_einblenden_Click()
With ListBox_Einstellungen_Tabellenblaetter
If .ListIndex > -1 Then
with sheets(.ListIndex + 1)
.Visible = -1
application.goto .cells(1)
end with
end if
End With
End Sub

Anzeige
AW: DANKE
02.11.2019 20:12:21
Tanja
Hallo zusammen,
perfekt.
Vielen lieben Dank.
Liebe Grüße
Tanja
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige