Spalten ausblenden
05.05.2015 15:42:39
Otto
ich benötige wieder einmal Hilfe :-)
und zwar habe ich ein Worksheet mit folgendem Code, welcher Zeilen mit Bedingung "Ja" oder "Nein" ausblendet.
Dieser funktioniert auch sehr gut.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varRange_EinAus As Range
Dim varSchalter As Boolean
If Target.Count = 1 Then
If Target.Address = "$I$20" Then
If LCase(Target.Value) = "nein" Then
varSchalter = True
Else
varSchalter = False
End If
With Worksheets("Ergebnisse")
Set varRange_EinAus = Application.Union(.Rows("71:82"), .Rows("69"), .Rows("85"), _
_
.Rows("121:123"))
End With
varRange_EinAus.EntireRow.Hidden = varSchalter
End If
End If
End Sub
Jetzt möchte ich auf einem anderen Tabellenblatt spalten mit der gleichen Bedingung ausblenden.
Z.B.
Tabelle1: Zeile A1: "Ja" --> Tabelle2 Spalte X ist eingeblendet. Bei "Nein" wird diese Spalte X komplett ausgeblendet.
Wie füge ich dann diesen zusätzlichen Code ein?
Anzeige