Wenn Wert dann Zelle kopieren
04.08.2015 13:55:17
anna
ich hab eine kurze Frage. Mein Makro klappt nur ab und an aber nicht durchgängig.
Eigentlich soll es so funktionieren, dass wenn in einer Zelle in der Spalte k "erledigt" steht die ganze Zeile in das Tabellenblatt "Erledigt" kopiert wird. Zuvor würde ich gern einen bestimmten Bereich im Tabellenblatt "Erledigt" leeren.
Mein Code schaut wie folgt aus:
Sub Erledigt()
Dim i As Long, suchCol As Long
Dim strSearch As String
Dim srcWks As Worksheet, tarWks As Worksheet
Worksheet("Erledig").Range("a4:200").Clear
Set srcWks = Worksheets("Offene Punkte")
Set tarWks = Worksheets("Erledigt")
suchCol = 11
strSearch = "erledigt"
With srcWks
For i = 4 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
Die Übertragung der Daten funktioniert nur ab und an und gelöscht werden soll nur einmal zu Beginn, sich aber nicht in der Schleife wiederholen.
Sieht jemand meinen Fehler?
Vielen Dank
Anna