in erste freie zeile kopieren
11.12.2021 01:25:59
Steilpilot
ich hoffe ihr könnt mir helfen, mein Problem zu lösen. Ich nutze den folgenden Code und möchte verhindern, das die Zeilen im Tabellenblatt
"Sicherung_Kommentar" dabei überschrieben werden. Mir fehlt die Bedingung, das er in das Tabellenblatt in die erste freie Zeile von Spalte A kopiert. Ich zermarter mir schon seit Tagen den Kopf, bekomme es einfach nicht hin. Falls mir jemand helfen kann, wäre ich sehr sehr dankbar.
hier der Code:
`
Sub CopyValues()
Dim lRow As Long, lRowL As Long, lRowT As Long
lRowL = Cells(Rows.Count, 17).End(xlUp).Row
lRowT = 1
For lRow = 2 To lRowL
If Not IsEmpty(Cells(lRow, 17)) Then
lRowT = lRowT + 1
Worksheets("Sicherung_Komentar").Rows(lRowT).Value = Rows(lRow).Value
End If
Next lRow
End Sub
Vielen Dank im Voraus,
Der Steilpilot
Anzeige