VBA If Frage

Computer: Software & Programmierung Programmierung allgemein
#1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Target.Address „$D$25“ Then Exit Sub
Worksheets(„Calculator“).Visible = IIf(Target.Value = „multifamily house“, -1, 2) Or IIf(Target.Value = „combined commercial residential building“, -1, 2) Or IIf(Target.Value = „office building“, -1, 2) Or IIf(Target.Value = „industrial building“, -1, 2) Or IIf(Target.Value = „shopping center“, -1, 2) Or IIf(Target.Value = „hotel“, -1, 2)
Worksheets(„Rental Income Valuation“).Visible = IIf(Target.Value = „hotel“, -1, 2)

**If Target.Address „$C$63“ Then Exit Sub
Worksheets(" Calculator").Visible = IIf(Target.Value „#“, -1, 2)

End Sub

Wieso funktioniert das zweite If nicht?
Danke für Eure Hilfe.**

#2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Target.Address „$D$25“ Then Exit Sub
…
If Target.Address „$C$63“ Then Exit Sub
Worksheets(" Calculator").Visible = IIf(Target.Value
„#“, -1, 2)
Wieso funktioniert das zweite If nicht?

Hi Felix,
das zweite iF klappt, du meinst das dritte.
Das dritte If funtioniert auch aber „Exit Sub“ wird immer durchgeführt.
Target kann an der Stelle nie „$C$63“ sein wegen dem zweiten If.

Ich würde die ganzen Namen die du abfragst in 6 Zellen in einem neuen Blatt „Hilf“ in A untereinander listen, dann den Code wie nachstehend gezeigt nehmen.

Das Probllem mit dem dritten If ist da aber noch drin da ich nicht erkennen kann was du genau abfragen willst.

Gruß
Reinhard

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim wksRIV As Worksheet, wksH As Worksheet
Set wksRIV = Worksheets("Rental Income Valuation")
Set wksH = Worksheets("Hilf")
If Target.Cells.Count 1 Then Exit Sub
If Target.Address "$D$25" Then Exit Sub
With Worksheets("Calculator")
 wksRIV.Visible = IIf(Application.CountIf(wksH.Columns(1), Target.Value) \> 0, -1, 2)
 If Target.Address "$C$63" Then Exit Sub
 .Visible = IIf(Target.Value "#", -1, 2)
End With
End Sub