Microsoft Excel

Herbers Excel/VBA-Archiv

Sub Worksheet_Change

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
GrußformelHomepage


  

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!