Ich möchte ein an sich simples Makro schreiben:
Wenn in einem Feld ein bestimmter Wert erscheint, soll die ganze Zeile ausgeblendet werden. Dazu benutze ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H2:H1250")) Is "x" Then
For Each Target In Target
Target.Offset(-10, 1).EntireRow.Hidden = Target = 0
Next Target
End If
End Sub
Funktioniert aber nicht, obwohl es sollte. Help pls.
@Grimm @SurFiN @ramius usw
Wenn in einem Feld ein bestimmter Wert erscheint, soll die ganze Zeile ausgeblendet werden. Dazu benutze ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H2:H1250")) Is "x" Then
For Each Target In Target
Target.Offset(-10, 1).EntireRow.Hidden = Target = 0
Next Target
End If
End Sub
Funktioniert aber nicht, obwohl es sollte. Help pls.
@Grimm @SurFiN @ramius usw
we do not sow