Alle Tabellenblätter bis auf eines ausblenden

Computer: Software & Programmierung Office Software
1

Hallo Profis
Ich habe mehrere Tabellenblätter.
Nun möchte ich alle ausblenden, bis Tabellenblatt „Offerte“

Dann nach belieben wieder einblenden.

Danke und Liebe Grüsse Mario

2

Ich habe mehrere Tabellenblätter.
Nun möchte ich alle ausblenden, bis Tabellenblatt „Offerte“

Hallo Mario,

Sub verstecken()
Dim wks As Worksheet
On Error GoTo Fehler
For Each wks In ThisWorkbook.Worksheets
 If wks.Name "Offerte" Then wks.Visible = xlSheetHidden
Next wks
Fehler:
If Err.Number 0 Then MsgBox "Blatt Offerte nicht gefunden"
End Sub

Gruß
Reinhard

3

Hallo Reinhard,
> vielen Dank, klappt wunderbar.
> Da Du ein Kenner bist, hätte ich noch eine Frage dazu.
> Kann ich dieselbe Prozedur auch via einem Button erledigen?
> Ich bedanke mich jetzt schon.
> Gruss Mario

4

Hallo Mario,

ja, Ansicht–Symbolleisten–Formular, ziehe dir eine Schaltfläche aufs Blatt, dann kommt automatisch die Auswahl welches makro du ihr zuweisen willst.

Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

Klappt prima, danke.
Gruss Mario