Zeile auf anderes Blatt verschieben
14.06.2014 22:11:05
Andreas
hallo, habe im forum nachfolgenden code gefunden. was muss ich denn abändern, um das ganze wie folgt zu machen:
- wenn man bei einer zeile in der letzten spalte (z. B. Spalte D) ein X setzt, soll automatisch genau diese ganze Zeile auf ein anderes Tabellenblatt verschoben werden, und zwar dort immer in die nächste freie zeile.
weiss jemand rat?
Sub Copy_x()
Dim i As Long, suchCol As Long
Dim strSearch As String
Dim srcWks As Worksheet, tarWks As Worksheet
'Tabellennamen anpassen
'srcWks wo gesucht werden soll
Set srcWks = Worksheets("Tabelle1")
'tarWks wo hinkopiert werden soll
Set tarWks = Worksheets("Tabelle2")
'8 = Spalte H
suchCol = 8
'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