| Von |
echo.beach |
| Am |
04. August 2008 um 11:26:04 |
| Frage |
Hi ihr Lieben,
also ich fange gerade erst an VBA zu versuchen und
schon bin ich verzweifelt.
Ich habe eine Tabelle B:K bis Zeile 75 und ich
möchte die Zeilen ausblenden in denen von z.B.
B4 bis K4 (usw) wirklich nichts enthalten ist.
Außer: Formeln.
Bis jetzt habe ich folgendes:
Sub LeereZeilenAusblenden()
Dim Markierung As Range, Wert As String
Set Markierung = ActiveSheet.Range("C2:C15")
For Each Zelle In Markierung
Wert = Zelle.Value
If Wert = "" Or Wert = "0" And ' wenn irgendein wert in der zeile nicht leer' Then Rows(Zelle.Row).Hidden = False
If Wert = "" Or Wert = "0" Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub
Ich wäre euch wirklich dankbar für einen Hinweis bzw.
eine Lösung.
Danke! :) |
|
Zum Seitenanfang