Office: (Office 365) Excel Zellen und Spalten aus/einblenden

Guten Tag,
Ich bin neu hier im Forum. Und habe ein Problem das ich nicht lösen kann.
Es geht um folgendes: Ich möchte Zeilen sowie auch Spalten aus bzw. auch wieder einblenden.
Jeder Code für sich alleine funktioniert. Kopiere ich allerdings den Code um die Spalten auszublenden dazu, dann kann ich keine Zeilen mehr ausblenden. Spalten lassen sich ausblenden nach wie vor.
Lösche ich den Code für die Spalten - Zeilen ausblenden bleibt blockiert.
Vieleicht kann mir jemand helfen. Hier nun der Code:

Private Sub Worksheet_Change3(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Range("3:6").EntireRow.Hidden = False
Select Case Range("B2")
Case "BBB"
Range("3:3").EntireRow.Hidden = True
Range("5:5").EntireRow.Hidden = True
Case "AAA"
Range("4:5").EntireRow.Hidden = True
Case "CCC"
Range("3:4").EntireRow.Hidden = True
End Select
End If
End Sub

Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Einhang einblenden"
Call SpaltenAusblenden_1
Else
TB.Caption = "Einhang ausblenden"
Call SpaltenEinblenden_1
End If
End Sub

Sub SpaltenAusblenden_1()
Sheets("Belastbarkeit").Activate
Columns("J").EntireColumn.Hidden = True
' Rows("2").EntireColumn.Hidden = True
End Sub

Sub SpaltenEinblenden_1()
Sheets("Belastbarkeit").Activate
Columns("J").EntireColumn.Hidden = False
' Columns("F").EntireColumn.Hidden = False
End Sub

Gruß Schwabe1

 

Hallo,

ich nehme an, du hast folgende SUB in das Codemodul eines Arbeitsblattes gespeichert:
Private Sub Worksheet_Change3(ByVal Target As Range)
um auf das Change-Event dieses Arbeitsblattes zu reagieren. Falls dem so ist, so kann das nicht funktionieren, denn eine solche Signatur für die Callback-Routine für das Change-Event muss lauten:
Private Sub Worksheet_Change(ByVal Target As Range)

 

Guten Morgen Exl121150,
Danke für die Lösung. Ja die Zahl 3 war das Problem. Untenstehend ist der Code warum ich die 3 verwendet habe.
Ich habe nun die Reihenfolge umgedreht. Welche Regel muss ich da beachten wenn ich mehrere Private Sub Worksheet_Change(ByVal Target As Range) verwende.

Private Sub Worksheet_Change1(ByVal Target As Range)
If Intersect(Target, Worksheets("Belastbarkeit").Range("A41:A45")) Is Nothing Then Exit Sub
With Worksheets("Diagramm").ChartObjects("Diagramm 1").Chart.Axes(xlCategory)
On Error Resume Next
.MinimumScale = Worksheets("Belastbarkeit").Range("A41").Value
.MaximumScale = Worksheets("Belastbarkeit").Range("A45").Value
End With
End Sub
Private Sub Worksheet_Change2(ByVal Target As Range)
If Intersect(Target, Worksheets("Belastbarkeit").Range("A41:A45")) Is Nothing Then Exit Sub
With Worksheets("Diagramm").ChartObjects("Diagramm 1").Chart.Axes(lCategory)
On Error Resume Next
.MinimumScale = Worksheets("Belastbarkeit").Range("K41").Value
.MaximumScale = Worksheets("Belastbarkeit").Range("K45").Value
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Range("3:6").EntireRow.Hidden = False
Select Case Range("B2")
Case "BBB"
Range("3:3").EntireRow.Hidden = True
Range("5:5").EntireRow.Hidden = True
Case "AAA"
Range("4:5").EntireRow.Hidden = True
Case "CCC"
Range("3:4").EntireRow.Hidden = True
End Select
End If
End Sub

Nochmals Danke dir.

 

Hallo,

es kann nur ein Worksheet_Change-Event in einem Blatt geben und die Syntax ist unabänderlich diese:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Wenn Du das für mehrere Aktionen haben willst, dann mußt Du die in diese eine Sub packen und so hintereinander packen, dass die Bedingungen nacheinander abgearbeitet werden und sich nicht gegenseitig in die Quere kommen (was bei Deinen Bedingungen momentan der Fall ist: Intersect(Target, Worksheets("Belastbarkeit").Range("A41:A45")) !)

 

Hallo,

du darfst je Arbeitsblatt-Codemodul nur maximal ein (=1) Private Sub Worksheet_Change(ByVal Target As Range) verwenden.

Eine solche Callback-Routine bezieht sich stets auf das dazugehörige Arbeitsblatt.
Hat man anlässlich eines solchen Change-Events mehrere Arbeiten im Arbeitsblatt zu erledigen, muss man das Target-Argument auswerten, denn in diesem Target-Range fand die Datenänderung statt.

Ein solches Change-Event im Arbeitsblatt tritt stets dann und auch nur dann auf,
wenn Zellen im Arbeitsblatt durch den Benutzer (mittels Tastatur oder Maus) oder durch einen externen Link geändert werden.
D.h. ändern sich Zellwerte aufgrund einer Berechnung (durch eine beliebige Formel), so tritt das Event nicht auf.
Siehe dazu die folgende Microsoft-Dokumentation:Worksheet.Change-Ereignis (Excel) | Microsoft Learn

 

Hallo,
Danke an euch beiden für die Erläuterungen.
Ich habe nun alle 3 Worksheet_Change in eine Sub gepackt und es sieht gut aus.

Gruß