Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1720to1724
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
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige