VBA, Zeilen ein- und ausblenden
18.10.2016 12:11:21
Sonja
Ich stehe gerade auf dem Schlauch bezüglich einem Makro, welches je nach ja/nein Auswahl (mit Hilfe einer Liste (Datenüberprüfung) in einem weiteren Tab) in einem bestimmten Feld Zeilen ein- und ausblenden soll, damit nicht alles angezeigt wird für Leute die es nicht betrifft (Anmeldung). Das funktioniert eigentlich sehr gut, allerdings stören sich die beiden if-Einträge, also das andere Makro wird immer auch ausgeführt. Irgendwie muss ich das zweite und dritte If zusammenbringen bzw noch genauer definieren, habe aber leider keine Ahnung wie :(
Könnt ihr mir hier weiterhelfen? Besten dank im Voraus.
Danke und Gruss
Sonja
---
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("C12:C12")
Dim country As String
country = LCase(Range("C12:C12").Text)
If (country = "Deutschland" Or country = "de") Then
Range(Rows(41), Rows(41)).Hidden = True
Range(Rows(15), Rows(15)).Hidden = True
Else
Range(Rows(41), Rows(41)).Hidden = False
Range(Rows(15), Rows(15)).Hidden = False
End If
--> bis hier funktioniert es gut. Zweites if:
If Target.Address = "$C$42" And Target.Value = "Nein" Then
Range(Rows(43), Rows(44)).Hidden = True
Else
Range(Rows(43), Rows(44)).Hidden = False
End If
If Target.Address = "$C$42" And Target.Value = "Ja" Then
Range(Rows(43), Rows(44)).Hidden = False
Else
Range(Rows(43), Rows(44)).Hidden = True
End If
--> mit diesem Teil wird das Makro gestört, bzw. immer auch ausgeführt. Drittes if:
If Target.Address = "$C$45" And Target.Value = "Nein" Then
Range(Rows(46), Rows(63)).Hidden = True
Else
Range(Rows(46), Rows(63)).Hidden = False
End If
If Target.Address = "$C$45" And Target.Value = "Ja" Then
Range(Rows(46), Rows(63)).Hidden = False
Else
Range(Rows(46), Rows(63)).Hidden = True
End If
End Sub
Anzeige