Typen unverträglich
16.01.2023 15:20:57
T
Sub Makro1()
'Definieren des Quell- und Zielblatts
Dim mzz As Worksheet, archiv As Worksheet
Set mzz = ThisWorkbook.Sheets("mzz_1")
Set archiv = ThisWorkbook.Sheets("Archiv")
'Definieren des letzten benutzten Zeilen in Spalte AJ auf dem Quellblatt
Dim lastRow As Long
lastRow = mzz.Cells(mzz.Rows.Count, "AJ").End(xlUp).Row
'Kopieren der relevanten Zeilen auf das Zielblatt und Löschen der originalen Zeilen
For i = lastRow To 1 Step -1
If Len(mzz.Cells(i, "AJ").Value) > 2 Then
mzz.Rows(i).Copy
archiv.Rows(archiv.Cells(archiv.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues
mzz.Rows(i).Delete
End If
Next i
End Sub
Folgende Zeile macht Probleme (Heißt nicht, das die danach nicht auch noch Probleme machen würden.....):
If Len(mzz.Cells(i, "AJ").Value) > 2 Then
Wäre super wenn mir einer sagen könnte, wo das Problem liegt.Danke euch!