Guten Morgen die VBA Profis,
ich habe folgendes Problem:
Ich will in dem Tabellenblatt 1 alle Zeilen, in denen das Wort "Completed" vorkommt auschneiden und in ein anderes Tabellenblatt kopieren. (Tabellenblatt 2). ---> Comletet steht in der excel immer in der spalte "J"
Hab da schon ein wenig was hinbekommen, dass problem ist aber, dass er beim ersten mal ausführen nicht direkt alle mit completed übernimmt. Desweiteren überschreibt er die alten in Tabellenblatt 2 einfach, wenn in Tabellenblatt 1 neue hinzukommen und ich das makro noch einmal ausführe. Hier sollte das script, in die erste leere Zeile springen von Tabellenblatt2 und die Zeile hier rein kopieren. Das funktioniert noch nicht...
Wäre nett, wenn mir hier jemand helfen könnte.
Sub CopyValues()
Dim lRow As Long, lRowL As Long, lRowT As Long
lRowL = Cells(Rows.Count, 10).End(xlUp).Row
lRowT = 1
dValue = "completed"
For lRow = 2 To lRowL ' Schleife ab Zeile 2 starten
If Not IsEmpty(Cells(lRow, 10)) Then ' Wenn in der aktuellen Zeile, die Spalte J etwas drin steht mache folgendes:
If Cells(lRow, 10).Value = dValue Then ' Wenn in der atuellen Zeile, in der Spalte J "completed" vorkommt, mache folgendes:
lRowT = lRowT + 1 '
lastrow = Worksheets("Solved Issues").Range("d65536").End(xlUp).Row
Worksheets("Solved Issues").Rows(lastrow).Value = Rows(lRow).Value ' Werte in das andere Tabellenblat schreiben
Rows(lRow).EntireRow.Delete
End If
End If
Next lRow
End Sub |