ich habe mich in letzter Zeit beruflich sehr viel mit Excel beschäftigt und versuche mich nun auch in VBA zurechtzufinden, um diverse Funktionen umsetzen zu können.
Aktuelles Ziel:
Ich möchte Zeilen (hier:14-33) ausblenden, wenn in einem bestimmten Feld (hier:N10) ein Wert auf 0 sinkt.
aktueller Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Range("N10").Value = 0 Then
Rows("14:33").Select
Selection.EntireRow.Hidden = True
Else
Rows("14:33").Select
Selection.EntireRow.Hidden = False
End If
End Sub
aktuelle Probleme:
- Zeilen werden ausgeblendet, auch wenn man einen anderen Wert als 0 eingibt
- Zeilen werden nicht wieder eingeblendet
- Änderungen in der Zielzelle über ein Formularsteuerelement werden nicht berücksichtigt
Für Eure Hilfe wäre ich sehr dankbar