ich möchte wie untenstehend diverse Zeilen aus einem Protokoll übertragen, wenn die Spalte G auf erledigt gesetzt ist. Allerdings steht in Spalte H nach Datum sortiert viel Text.
Das nachfolgende Makro funktioniert soweit, allerdings überträgt das Makro die Textzeilen aus Spalte H nicht korrekt.
Kann mir da jemand weiterhelfen?
Sub ZeilenUebetragen_MG()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("Protokoll")
Set tarWks = Worksheets("Protokoll erledigt")
With srcWks
For i = 1 To .Cells(.Rows.Count, 7).End(xlUp).Row
If .Cells(i, 7).Value = "erledigt" Then
tLR = tarWks.Cells(Rows.Count, 7).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 8)).Value = srcWks.Range(srcWks.Cells(i, 1), _
_
_
srcWks.Cells(i, 7)).Value
End With
End If
Next i
End With
For zelle = 60000 To 2 Step -1
If Cells(zelle, 7).Value = "erledigt" Then
Rows(zelle).Delete
End If
Next
End Sub
https://www.herber.de/bbs/user/128950.xlsm
Gruß Stefan