Zeilen ausblenden und einfärben
21.05.2013 13:59:29
dolan
Ich habe folgendes Problem. In einer Tabelle sollen zum einen Zeilen ausgeblendet werden und zum anderen (zur anschließenden Überprüfung) Zellen eingefärbt werden. Beides wenn es geht auf einem Button.
Es sollen zum einen alle Zeilen in Spalte K ausgeblendet werden, deren Wert Zellen in K rot markiert werden, wenn deren Gegenstück in P =0 ist. Sprich wenn Zelle K10 z.B. 45 ist und P10 = 0, soll K10 nicht ausgeblendet werden und rot eingefärbt werden.
Zum Ausblenden verwende ich folgendes Makro, was auch funktioniert:
Private Sub Ausblenden_Click()
Dim K As Range
For Each K In Range("k4:k1200")
If K.Value > 40 Then
K.EntireRow.Hidden = False
Else
K.EntireRow.Hidden = True
End If
Next K
End Sub
Kann ich meine Ideen, wie oben beschrieben umsetzen oder müsste dafür ein neuer Button/ein neues Makro her?
Grüße
Dolan