Zeilen Kopieren wenn, bei Änderungen nur diese
25.08.2017 14:55:44
Lenny
Habe mir ein Makro zusammengebastelt, das mir ein Tabellenblatt (Tabelle1) durchsucht und wenn in der Spalte N der Wert x steht, die Zeile kopiert und in das Tabellenblatt2 einfügt. Das funktioniert!
Zusätzlich soll das Makro bei Änderungen das Prozedere wiederholen. Das funktioniert leider nicht so wie ich mir das vorgestellt habe. Anstatt nur die Änderungen in die Tabelle2 zu kopieren, werden alle Treffer erneut in die Tabelle kopiert.
Wie kann ich verhindert, dass das geschieht? Es sollen ja Zeilen kopiert werden in den sich der Wert in Spalte N geändert hat kopiert werden.
Hier mal mein Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, suchCol As Long
Dim strSearch As String
Dim srcWks As Worksheet, tarWks As Worksheet
'srcWks wo gesucht werden soll
Set srcWks = Worksheets("Tabelle1")
'tarWks wo hinkopiert werden soll
Set tarWks = Worksheets("Tabelle2")
'z.B 14 = Spalte N
suchCol = 14
'strSearch = was gesucht werden soll
strSearch = "x"
With srcWks
For i = 1 To .Cells(Rows.Count, suchCol).End(xlUp).Row
If .Cells(i, suchCol).Text = strSearch Then
Rows(i).Copy Destination:=tarWks.Cells(tarWks.Cells(Rows.Count, 1).End(xlUp). _
Row + 1, 1)
End If
Next i
End With
End Sub
Gruss Lenny
Anzeige