Ausblenden von zeilen
08.11.2007 13:57:48
zeilen
In einer Tabelle möchte ich leer Zellen ausblenden. Die Tabelle sieht wie folgt aus.
spalteA----SpalteB------SpalteC------SpalteD
Test--------250-----------leer-----------leer
Test--------300-----------3000---------leer
Test--------300-----------leer-----------5000
Test--------5200---------leer------------leer
Habe schon einen Ansatz der wie folgt aussieht
Sub ausblenden()
Dim rng As Range
Dim wert As String
Dim zelle As Object
Set rng = ActiveSheet.Range("c1:c10")
For Each zelle In rng
wert = zelle.Value
If wert = "" or wert= "0" Then Rows(zelle.row).Hidden = True
Next zelle
End Sub
geht auch gut. Möchte aber dass die Spalten C und D überprüft werden und wenn beide Zellen leer sind soll die Zeile ausgeblendet werden.
Wer kann mir helfen
Anzeige