Spalten ausblenden
18.08.2016 14:57:21
Annika
ich kenne mich überhaupt nicht mit Excel noch VBA aus. Muss aber für meinen Ausbidlungsbetrieb etwas erstellen, wo ich an meine Grenzen stoße.
Ich versuche gerade mit Hilfe des VBA mehrer Zeilen auszublenden.
Wenn ich nur die Zeilen 26-42 ausblenden möchte, funktioniert dies. Meine Frage, wie kann ich jetzt wenn anstatt Kaufteile ausgewählt werden, die Zeilen 43-57 ausblenden.
Mir ist nicht ganz klar wie ich den zweiten Befehl nach dem ersten Befehl schreiben muss.
Mein bisheriger Vorschlag sieht folgendermaßen aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Rows("26:42")
Set varSchalter = ActiveSheet.Cells(24, 2)
If varSchalter.Value = "Zeichnungsteile" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value "Zeichnungsteile" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Rows("43:57")
Set varSchalter = ActiveSheet.Cells(24, 2)
If varSchalter.Value = "Kaufteile" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value "Kaufteile" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If
End Sub
Was kann ich tun?
Vielen Dank für eure Hilfe :-)