Arbeitsblätter unsichtbar

Forumthread: Arbeitsblätter unsichtbar
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Arbeitsblätter unsichtbar

Peter

Hallo Excel freaks!
in einer Excelanwendung habe ich 4 Arbeitsblätter. (Tabelle 1-4).
Auf einen Klick auf einen button sollen nun die bis dato unsichtbaren Tabellen sichtbar werden. Dabei soll man aber auch entscheiden können wieviele
Tabellen sichtbar werden.
Danke im vorraus
Peter

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Arbeitsblätter unsichtbar

NE
AW: Arbeitsblätter unsichtbar

Josef
@Sepp: jupp, that's better & sicherer

NE

AW: Arbeitsblätter unsichtbar

Hi Peter,
via UF: 1 Stck Listbox, 2 Stck Commandbuttons als Ansatz sowas:
Option Explicit


Private Sub UserForm_Initialize()
Dim i As Byte
For i = 0 To ActiveWorkbook.Sheets.Count - 1
If Sheets(i + 1).Visible = False Then _
ListBox1.AddItem Sheets(i + 1).Name
Next
End Sub


Private Sub cmdOk_Click()
Dim j As Byte, k As Integer
With ListBox1
For j = 0 To .ListCount - 1
If .Selected(j) Then Sheets(j + 1).Visible = True
Next
End With
End Sub


Private Sub cmdCancel_Click()
Unload Me
End Sub

bye Nancy

AW: Arbeitsblätter unsichtbar

Josef

Hallo Peter!
Schau mal.
https://www.herber.de/bbs/user/6028.xls
Gruß Sepp

@Sepp: jupp, that's better & sicherer

::-)))
lg Nancy
--
hatte es wirklich schlampig 'reingekloppt' ;-(

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

Live-Forum - Die aktuellen Beiträge

Datum

Titel

14.05.2026 13:31:09

Zeichen ausblenden

14.05.2026 09:50:42

Makro für MacOs

13.05.2026 19:14:18

Gleichheitszeichen

13.05.2026 14:24:56

VBA Projekt Passwort automatisch eingeben

13.05.2026 08:49:41

Reale Berechnung ohne Nachkommawerte

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

Arbeitsblätter unsichtbar

Forumthread: Arbeitsblätter unsichtbar

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread