mit x verschiedene daten sammeln
17.03.2021 15:16:42
Florian
Er funktioniert auch.
Leider überschreibt er mir die Zellen von den anderen Tabellenblättern.
ich möchte hier ein fortlaufendes Ergebnis haben.
Sprich es wird nix mehr überschrieben.
Danke :)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
ZeileMax = .UsedRange.Rows.Count
n = 2
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 10).Value = "x" Then
.Rows(Zeile).Copy Destination:=Tabelle215.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Anzeige