VBA; Zeilen mit Bedingung ausblenden
04.07.2018 16:13:38
Ehrsi
Ich habe Probleme beim bedingten ausblenden von diversen Zeilen in verschiedenen Sheets.
Sheet1 heisst "Daten", in welchem die Dateneingabe stattfindet.
Sheet2 heisst "Vertrag", in welchem der Vertrag sich mittels Formeln und Makros auf die gewünschten Texte und Formate selbst einstellt.
Nun habe ich im Sheet "Daten" Feld "B35" eine Auswahl von folgenden Möglichkeiten:
1-Jahresvertrag
2-Jahresvertrag
3-Jahresvertrag
-
Die Zeilen 67;68;77;78 sollen bei Anwahl von 1-Jahresvertrag ausgeblendet sein und bei Anwahl der anderen Optionen wieder zum Vorschein kommen. Dies eigentlich ohne, dass noch ein CommandButton benötigt wird.
Ich habe die nachfolgenden Befehle in VBA in "Worksheet" eingebaut.
Jedoch nichts passiert (oder Fehlermeldung).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varSchalter = ActiveSheet.Cells(35, 2)
Worksheet("Vertrag").Activate
Set varAusblend = ActiveSheet.Rows("67;68;77;78")
Set varSchalter = ActiveSheet.Cells(35, 2)
If varSchalter.Value = "1-Jahresvertrag" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
Else
If varSchalter.Value "1-Jahresvertrag" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
End If
End If
End Sub
Was mache ich hier falsch?
Besten Gruss
Ehrsi