Mir gehen langsam die Ideen aus. Der folgende Code soll alle Werte kleiner 0 enfernen, sind aber keine Werte kleiner 0 enthalten kommt der Laufzeitfehler 1004 was verständlich ist. Hast du eine Idee den Code so zu gestalten, das dieser trotzdem dieser keine Fehlermeldung anzeigt unabhängig davon ob diese bestimmten Werte enthalten sind oder nicht?
Sub Werte_aus_Tabelle1_entfernen()
Dim i As Long
i = 1
Do While Cells(i, "A").Value = 0
i = i + 1
Loop
Range(Cells(i, "A"), Cells(i, "A").End(xlDown)).ClearContents
Range(Cells(i, "I"), Cells(i, "I").End(xlDown)).ClearContents
End Sub
|