VBA - Zeilen ausblenden wenn Bedingung erfüllt ist
26.08.2017 08:45:24
niklas
ich würde mich freuen, wenn ihr mir bei folgendem Problem helfen könntet:
Ich habe ein Tabellenblatt. In diesem Tabellenblatt kann man unter der Zelle AW9 eine Zahl zwischen 1 und 3 auswählen. Je nach dem welche Zahl ich auswähle, erscheint in der Spalte O in den jeweiligen Zeilen das Wort "ausblenden".
Beispiel: Wenn ich die Zahl 1 auswähle, dann erscheint in den Zeilen 15 bis 17 in der Spalte O das Wort "ausblenden", wenn ich die Zahl 2 auswähle, dann erscheint in den Zeilen 22 bis 27 in der Spalte O das Wort "ausblenden".
Das Makro soll jetzt letztendlich jede Zeile, in der Spalte O, in der das Wort "ausblenden" steht, ausblenden.
Das habe ich auch - nach langen recherchieren und ausprobieren - mit folgendem makro hinbekommen:
Sub ausblenden()
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 15).End(xlUp).Row
If Cells(i, 15).Value = "ausblenden" Then
Rows(i).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
Range("j8").Select
End Sub
Mein Problem besteht jetzt darin, dass wenn ich danach die Zahl 2 auswähle und das makro ausführe, ich erst per Hand alle Zeilen einblenden muss, damit mir excel dann die richtigen Zeilen wieder ausblendet.
Anbei habe ich meine Testdatei mal angefügt.
Ich hoffe ihr versteht mein Problem und könnt mir weiterhelfen!
Viele Grüße
Niklas
https://www.herber.de/bbs/user/115780.xlsm