Hallo
weiß jemand wo mein Fehler liegt?
Die Fehlermeldung kommt immer bei
If Tabelle1.Range("A" & i) = "" Then --> Fehler 2029
es soll in diesem Code überprüft werden ob in Spalte A Text oder Zahl steht und wenn Text enthalten ist soll dieser hinter den Text in Spalte H kopiert werden und die entstandene leere Zeile soll gelöscht werden.
Sub Formatieren()
Cells.Replace What:="#name?", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' Bemerkungen in eine Zelle schreiben
For i = Range("A65536").End(xlUp).Row To 2 Step (-1)
If Tabelle1.Range("A" & i) = "" Then
Tabelle1.Range("A" & i).EntireRow.Delete
End If
If Not IsNumeric(Tabelle1.Range("A" & i)) Then
Tabelle1.Range("H" & i - 1).Value = Tabelle1.Range("H" & i - 1).Value & " /// " & Tabelle1.Range("A" & i).Value
Tabelle1.Range("A" & i).EntireRow.Delete
End If
Next
Gruß Steffi |