Spalten Ausblenden auf meheren seiten

Hi zusammen ich bräuchte mal ne kleine Hilfe :)
Ich soll mithilfe von vba Spalten durch ein Klick auf ein button Ausblenden.
Hintergrund ist: wir haben verschiedene preise für intere und Externe Kunden diese bekommen dann die Exceldatei und bei klick auf ja oder nein soll dann dementsprechen die richtige spalte offen sein.
ich würde gerne ein Button erstellen mit einer msgbox die Fragt:

Msgbox "Sind sie ein Externer Kunde?", vbYesNo + vbInformation, "Bitte Auswählen!"
bei ja soll dann Spalte D ausgeblendet werden und bei Nein soll dann E Ausgeblendet werden und vorallem wäre es noch wichtig, dass der Button auf seite 1 ist und mit einem Klick dann alle seiten gleichzeitig verändert werden BIS AUF Seite 1 die soll sich nicht verändern.
Das war bis jetzt mein Ansatz für eine Seite, also nicht für alle Seiten
das geht leider über meine Vba kenntnisse, habt ihr da eine Lösung für mich?


Sub Box()
'Box mit intern oder extern
Msgbox "Sind sie ein Externer Kunde?", vbYesNo + vbInformation, "Bitte Auswählen!"
If answer = vbYes Then
Columns(4).EntireColumn.Hidden = True
Else
Columns(5).EntireColumn.Hidden = True
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim blatt As Worksheet For Each blatt In ThisWorkbook.Worksheets If blatt.Name "Tabelle1" Then 'Blattname anpassen Columns(5).EntireColumn.Hidden = False 'Zelle anpassen End If Next blatt End Sub Private Sub CommandButton2_Click() Dim blatt As Worksheet For Each blatt In ThisWorkbook.Worksheets If blatt.Name "Tabelle1" Then 'Blattname anpassen Columns(4).EntireColumn.Hidden = False 'Zelle anpassen End If Next blatt End Sub

'---------------------------------------------------------------------------------------- 'dieser Abschnitt wird dann benötigt, 'wenn ein Button erst nach Passworteingabe angeklickt werden können soll Dim rngZelle As Range Dim I As Integer For I = 1 To 3 '3 Versuche If InputBox("Test") = "xxx" Then Exit For 'Passwort anpassen MsgBox "Falsches PW" If I = 3 Then ThisWorkbook.Close Next With Sheets("Tabelle1") 'ab hier startet der eigentliche Code

Beliebteste Forumthreads (12 Monate)

Spalten Ausblenden auf meheren seiten

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten Ausblenden auf meheren seiten

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread