Typen unverträglich

Hallo ihr lieben, ich habe in meine Code leider ein kleines Problem, finde aber den Fehler nicht bzw weiß es nicht besser:


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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
ich würde mich auch der Vermutung von onur anschließen, irgendwo steckt ein Fehlerwert in einer der Zellen. Das kann auf jeden Fall den beschriebenen Fehler verursachen.
du kannst das ja selber prüfen. Wenn der Fehler auftritt, dann hält der code ja an dieser Stelle an und du kannst dir anschauen, welchen Wert die Variable i hat (Zeilennummer) und was in der betroffenen Zelle steht.
auch sollte man, wenn der Fehler in einer Schleife (For-Next) auftritt, ob dies bereits beim ersten Durchlauf (i = Startwert) oder erst später auftritt.
Tritt der Fehler nicht sofort beim ersten Umlauf aus, liegt die Ursache in der Regel beim verarbeiteten Zellinhalt und nicht am Code. (wobei der Code ggf angepasst werden kann, um auch untypische Inhalte fehlerfrei zu verarbeiten)
eine möglichkeit der Anpassung wäre, das .Value durch .Text zu ersetzen. Hier ist die Ausgabe immer ein Text, auch bei einem Fehler bekommst du dann nicht einen Fehlerwert, sondern den entsprechenden Fehlertext, aber als normalen Text.
Gruß Daniel

Sub Makro1() Dim lastRow As Long, lastArchiv As Long Dim mzz As Worksheet, archiv As Worksheet 'Definieren des Quell- und Zielblatts Set mzz = ThisWorkbook.Sheets("mzz_1") Set archiv = ThisWorkbook.Sheets("Archiv") 'Definieren des letzten benutzten Zeilen in Spalte AJ auf dem Quellblatt lastRow = mzz.Cells(Rows.Count, "J").End(xlUp).Row lastArchiv = archiv.Cells(Rows.Count, "A").End(xlUp).Row 'Kopieren der relevanten Zeilen auf das Zielblatt und Löschen der originalen Zeilen For i = lastRow To 1 Step -1 If IsError(mzz.Cells(i, "J")) Then MsgBox "Formelfehler in Zeile " & i ElseIf Len(mzz.Cells(i, "J")) > 2 Then lastArchiv = lastArchiv + 1 mzz.Rows(i).Copy archiv.Rows(lastArchiv).PasteSpecial xlPasteValues mzz.Rows(i).Delete End If Next i Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread