Herbers Excel/VBA-Archiv

Sub Worksheet_Change

• Sub Worksheet_Change von Raphael vom 19.09.2014 11:47:29
• AW: Sub Worksheet_Change - von Hajo_Zi am 19.09.2014 12:03:23
• AW: Sub Worksheet_Change - von Matthias L am 19.09.2014 12:06:32
  • Das 2. If/End If kannst Du löschen ... - von Matthias L am 19.09.2014 12:11:30
    • AW: Das 2. If/End If kannst Du löschen ... - von Raphael am 19.09.2014 12:18:40

Betrifft: Sub Worksheet_Change von: Raphael
Geschrieben am: 19.09.2014 11:47:29

Einen schönen guten Mittag,

ich habe ein Problem und kann leider nicht rausfinden warum.....

Ich möchte wenn In in Celle C2 durch eine Gültigkeitsliste einen Anderen Wert auswähle, das dann in R3 Überprüft wird ob da 0 steht. wenn da 0 steht soll der Bereich R:T ausgeblendet werden... aber irgedwie schein das nciht zu funktionieren.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "C2" Then
If Range("R3").Value = 0 Then

    Columns("R:T").Select
    Selection.EntireColumn.Hidden = True
    
    Else
    
    Columns("R:T").Select
    Selection.EntireColumn.Hidden = False
    
    End If
    End If
End Sub

Beste Grüße

raphael

Betrifft: AW: Sub Worksheet_Change von: Hajo_Zi
Geschrieben am: 19.09.2014 12:03:23

Hallo raphael,

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address(False, False) = "C2" Then
        Columns("R:T").EntireColumn.Hidden = Range("R3").Value = 0
    End If
End Sub

Betrifft: AW: Sub Worksheet_Change von: Matthias L
Geschrieben am: 19.09.2014 12:06:32

Hallo

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then
 If Range("R3").Value = "0" Then
  Columns("R:T").EntireColumn.Hidden = IIf(Range("R3").Value = "0", 1, 0)
 End If
End If
End Sub

Einblenden willst Du dann ja manuell.

Gruß Matthias

Betrifft: Das 2. If/End If kannst Du löschen ... von: Matthias L
Geschrieben am: 19.09.2014 12:11:30

Hallo

... hatte ich nur vergessen rauszunehmen

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then
 Columns("R:T").EntireColumn.Hidden = IIf(Range("R3").Value = "0", 1, 0)
End If
End Sub

Gruß Matthias

Betrifft: AW: Das 2. If/End If kannst Du löschen ... von: Raphael
Geschrieben am: 19.09.2014 12:18:40

cool! Danke das ist was ich brauche! euch nen schönen Freitag!