alle Zeilen mit "x" ausblenden

Question

Hallo zusammen,

Im Arbeitsblatt 2 sollen alle Zeilen die ein „x“ in Spalte A enthalten ausgeblendet werden. Mit dieser Formel funktioniert es nur, wenn ich das „x“ direkt Eingebe.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Cells(Target.Row, 1) = "x" Then
Rows(Target.Row).EntireRow.Hidden = True
End If
End If
End Sub

Wenn ich aber über eine Funktion von Arbeitsblatt 1 aus das „x“ auf Arbeitsblatt 2 setze (z.B. =wenn(Arbeitsblatt1!A1=““;“x“), funktioniert es nicht.

Danke im Voraus
Gruß
Jupp

Answer 1

Bei mir läuft es mit = gar nicht.

Gruß
Jupp

Answer 2

Hi Jupp,

der Code befindet sich im Codemodul Tabelle1, in Tabelle2 A1 steht die Formel =WENN(Tabelle1!A1=0;"x"; Tabelle1!A1).

Ich gebe in Tabelle1 A1 "x" ein -> in Tabelle2 A1 steht jetzt x und Zeile 1 ist ausgeblendet. Ich gebe in Tabelle1 A1 eine Zahl <> 0 ein -> in Tabelle2 A1 steht nun die Zahl und die Zeile ist eingeblendet. Ich gebe in Tabelle1 A1 die Ziffer 0 ein -> in Tabelle2 A1 steht "x" und die Zeile ist eingeblendet. Daraus ergibt sich, dass deine Formelbedingung in Tabelle2 falsch ist.

Das Ganze sollte auch ohne Formel in Tabelle2 gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then
With Worksheets("Tabelle2")
.Cells(Target.Row, 1) = Target
.Rows(Target.Row).EntireRow.Hidden = Target = "x"
End With
End If
End If
End Sub

Bis später,
Karin

Answer 3

Vielen Dank Karin, spielt wie verrückt!

Gruß
Jupp