Probleme mit den Ausblenden

Forumthread: Probleme mit den Ausblenden
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Probleme mit den Ausblenden

21.09.2025 21:07:27

NicoHendrik

Guten Abend,

mit den Ausblenden von Spalten habe ich leider Probleme, die ich leider nicht gelöst bekommen.

Wenn in den Einstellungen eine Zelle B18 leer ist sollen in den Tabellen 2 bis 34 die Spalten DD:DF ausgeblendet werden.

Mein Code hab ich jeweils in das Tabellenblatt eingesetzt.

Jetzt aber muss ich mehrmals auf diesen Tabellenblatt klicken bevor diese Spalten verschwinden, wenn überhaupt.

Bitte um Hilfe.

Gruß Nico

Private Sub Worksheet_Change(ByVal Target As Range)



ActiveSheet.Unprotect 



    If Sheets("Einstellungen").Range("B18").Value = "" Then



Columns("DD:DF").EntireColumn.Hidden = True



Else



Columns("DD:DF").EntireColumn.Hidden = False



End If



Range("ER19").Select



ActiveSheet.Protect 

End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Probleme mit den Ausblenden

21.09.2025 21:20:17

Kuwer
AW: Probleme mit den Ausblenden

22.09.2025 08:57:01

Marc
AW: Probleme mit den Ausblenden

22.09.2025 09:20:13

NicoHendrik
AW: Probleme mit den Ausblenden

22.09.2025 17:47:30

Onur
AW: Probleme mit den Ausblenden

21.09.2025 21:36:18

NicoHendrik

AW: Probleme mit den Ausblenden

21.09.2025 21:20:17

Kuwer

Hallo Nico,

Private Sub Worksheet_Activate()

  Me.Unprotect

  Columns("DD:DF").Hidden = Sheets("Einstellungen").Range("B18").Value = ""

  Me.Protect

End Sub

Gruß, Uwe

AW: Probleme mit den Ausblenden

22.09.2025 08:57:01

Marc

Na ja du sagst dem Programm ja auch nicht, welche Tabellen er entsprechend abarbeiten muss..

Das kannst du mit

For Each
lösen..

Dabei geht er jedes Worksheet durchgehen und enntsprechend den Code abarbeiten...

oder du listet alle Tabellen nach einander auf und (jede die du durchgehen willst, und arbeitest den Code ab (zu lang zu schwerfällig)

Dein Code arbeitet nur die aktuell Aktive Tabelle ab

AW: Probleme mit den Ausblenden

22.09.2025 09:20:13

NicoHendrik

Danke für die Info. Mein Problem hab ich mit Uwe schon gelöst.

Gruß Nico

AW: Probleme mit den Ausblenden

22.09.2025 17:47:30

Onur

Du hast offenbar gedacht, du schreibst irgend was in das Worksheet_Change-Ereignis und das läuft dann von selbst.
Worksheet_Change wird nur aufgerufen, wenn auf dem Blatt mit diesem Code etwas manuell verändert wird - und nicht automatisch von selbst.