Makro anpassen - Zeile ausblenden wenn Wert
22.01.2018 13:02:29
Andreas
ich würde folgendes benötigen. Ich habe eine Excel als Arbeits/Aufgabenpaket. In Spalte N wird ok eingetragen wenn die Aufgabe erlegdigt ist. Insgesamt handelt es sich um mehrere Hundert Aufgaben, also mehrere hundert Zeilen.
Man kann Makros finden, welche einem nach eintragen eines Wertes eine Range ausblenden.
Private Sub Worksheet_Calculate()
Dim rngZelle As Range
On eror GoTo Errorhandler
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each rngZelle In Range("N6:N15")
With rngZelle
.EntireRow.Hidden = (.Value = 0)
End With
Next rngZelle
Errorhandler:
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
Gruß Andreas