Makro "Zeilen ausblenden" fixieren?
22.08.2013 09:22:59
David
Ich habe folgenden Makro (mit Hilfe des Forums, insbeseondere "Luschi", siehe auch "makro funzt net") gebaut und stehe dabei vor einem erneuten Problem. Aber hier erst mal der Makro:
Sub Zeilenausblenden1()
Dim iZeile As Long
For iZeile = 9 To 49
If Cells(iZeile, "AJ") = 0 Then
Rows(iZeile).EntireRow.Hidden = True
Else
Rows(iZeile).EntireRow.Hidden = False
End If
Next iZeile
End Sub
Die Zellen 9 bis 49 kann ich "zusammenklappen". Dafür habe ich am linken Rand der Tabelle, also außerhalb, einen Zellenverbund gemacht, den man mit einem + oder - zeichen zusammen klappen kann. Wenn ich nun den Makro installiere und er mir zb nur die Zeilen 14 bis 40 anzeigt weil AJ dort 0 ist, funktioniert zunächst alles tadellos. Wenn ich nun den Zeilenverbund mit dem "-" button schließe, also alle zeilen von 9 bis 49 (bis auf eine summenzeile) ausblende sorge ich dafür das ich den makro deaktiviere, denn wenn ich die zeilen mit dem "+" button wider einblende sind alle zeilen von 9 bis 49 wieder zu sehen obwohl nach AJ nur die Zeilen 14 bis 40 zu sehen sein müssten.
wie kann ich den makro jetzt so umbauen, dass er trotz meiner aktionen mit dem "+-" button aktiv bleibt?
vielen dank
gruß,
david
Anzeige