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! :) |
|