MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.06.2019, 08:16   #1
Gary_vba_noob
Neuer Benutzer
Neuer Benutzer
Standard VBA - ToogleButton auf Sheet1, Spalten ausblenden in folgenden Sheets

Hallo Gemeinde,

ich versuche mich gerade an den ersten VBA Schritten.
Ich möchte im 1. Sheet einen ToggleButton, der auf den nachfolgenden Sheets > 1 die Spalte F (Listenpreise) ausblendet.

leider geschieht dies nur im 1. Sheet. Spöter möchte ich die Sheets noch mit einem Blattschutz versehen.

ich denke es ist nur ein "simpler" Anfängerfehler.

Danke Gary

anbei der Code:

Sub SpaltenAusblenden()

Dim ws As Worksheet

For Each ws In Worksheets

If ws.Index > 1 Then

Columns("F").EntireColumn.Hidden = True

End If

Next

End Sub


Sub SpaltenEinblenden()

Dim ws As Worksheet

For Each ws In Worksheets

If ws.Index > 1 Then


Columns("F").EntireColumn.Hidden = False

End If

Next

End Sub


Private Sub ToggleButton1_Click()

Dim ws As Worksheet

For Each ws In Worksheets

If ws.Index > 1 Then

ws.Activate



Dim TB As ToggleButton

Set TB = ToggleButton1

If TB.Value = True Then

TB.Caption = "Listenpreis einblenden"

Call SpaltenAusblenden

Else

TB.Caption = "Listenpreis ausblenden"

Call SpaltenEinblenden

End If

End If

Next

End Sub
Gary_vba_noob ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 09:41   #2
Wilhelm1
MOF User
MOF User
Standard

Hallo,
grundsätzlich
1. immer Option Explicit verwenden
2. den Compiler benutzen. Bei mir gibt es eine Fehlermeldung

Hier liegt das Problem:
Columns("F").EntireColumn.Hidden = True
es wird nur im aktuellen Blatt etwas gemacht, Du willst aber im im jeweigen Blatt die Spalte zeigen, verstecken, also
ws.Columns("F").EntireColumn.Hidden = True

Gruss,
Wilhelm1
Wilhelm1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:08 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.