Office: Bestimmte Zeilen in einer Auflistung deaktivieren

Ich habe mich jetzt ganz genau an deine Beschreibung aus deinem letzte Beitrag gehalten:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(False, False) = "C11" Then
      Rows("71:74").Hidden = UCase(Target) = "NEIN"
   End If
End Sub

Bis später,
Karin

 

Hallo Karin,

danke für deine Geduld, ist mir fast schon peinlich - das funktioniert jetzt bestens. Wenn jetzt noch die ausgeblendeten Reihen 71-74 wie schon beschrieben wenn Sie ausgeblendet sind nicht zur Summe dazu addiert werden ist es perfekt.

 

Erweitere den Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(False, False) = "C11" Then
      Rows("71:74").Hidden = UCase(Target) = "NEIN"
[COLOR=#ff0000]      If UCase(Target) = "NEIN" Then
         Range("E76") = Application.Sum(Range("E23:E70"))
         Range("G76") = Application.Sum(Range("G23:G70"))
         Range("I76") = Application.Sum(Range("I23:I70"))
         Range("K76") = Application.Sum(Range("K23:K70"))
         Range("M76") = Application.Sum(Range("M23:M70"))
      ElseIf UCase(Target) = "JA" Then
         Range("E76") = Application.Sum(Range("E23:E74"))
         Range("G76") = Application.Sum(Range("G23:G74"))
         Range("I76") = Application.Sum(Range("I23:I74"))
         Range("K76") = Application.Sum(Range("K23:K74"))
         Range("M76") = Application.Sum(Range("M23:M74"))
      End If[/COLOR]
   End If
End Sub

Bis später,
Karin

 

Hallo Karin, besten Dank genau so soll es funktionieren - einwandfrei!

LG

/closed