Supportnet / Forum / Tabellenkalkulation
Problem mit Einblenden von Zeilen
Frage
Hallo Leute,
ich blende mit folgendem Makro sämtliche Zeilen aus, die einen Wert ungleich von 0 haben.
Sub Stückliste()
Dim i As Long
Dim z as Long
Active.Sheet.UsedRange.Select
z = Selection.Rows.Count
For i = 1 to z
If Cells(i, 5).Value = "0" _
Then Rows(i).EntireRow.Hidden = True
Next i
End Sub
Funktioniert soweit prima.
Nun kommt es dazu, dass in den ausgeblendeten Zellen die Werte verändert werden. Diese werden dann aber nicht wieder eingeblendet. Wie kann ich das bewerkstelligen?
Danke für die Hilfe.
Antwort 1 von Flupo
Ganz einfach, du musst
1. dein Makro um einen "Else-Zweig" ergänzen, der "Hidden" wieder auf "false" setzt und
2. das Makro nach jeder Änderung erneut ausführen.
Gruss Flupo
1. dein Makro um einen "Else-Zweig" ergänzen, der "Hidden" wieder auf "false" setzt und
2. das Makro nach jeder Änderung erneut ausführen.
Gruss Flupo