Hallo,
ich habe ein sheet mit Daten in mehreren Spalten, die zwischendurch durch leere Zellen unterbrochen werden.
Nun löscht das unten angegebene Script wunderbar die leeren Zellen, bleibt aber nach jeder Löschung stehen, so das ich dieses script mehrmals ausführen muss, damit auch alle leeren Zellen gelöscht werden.
Weis jemand wie man es so gestaltet, das es automatisch alle leeren Zellen löscht ohne dabei stehenzubleiben?
Sub InhaltLoeschen()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim i As Long
Set wksQ = Worksheets("Monitoring") 'Quellblatt
Set wksZ = Worksheets("Ansicht") 'Zielblatt
For i = 1 To wksZ.Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, 1) = "" Then Cells(i, 1).Resize(1, 4).Delete
If Cells(i, 9) = "" Then Cells(i, 9).Resize(1, 10).Delete
'ClearContents
Next i
|