Verstreute leere Zellen automatisch löschen

[apfelschorle]

Hallo Atilla,


die Daten sind aus einer selbstgebauten "Matrix" entstanden und für die nächsten Schritte, ist es einfacher ohne die ganzen leeren Zellen zu arbeiten.

Viele Grüße

[Kuwer]

Hallo,

die Daten sind aus einer selbstgebauten "Matrix" entstanden ...

ist schon seltsam, wie sowas entstehen kann. Aber lösen würde ich es dann so:

Sub LeerzellenLoeschen()
  With ActiveSheet.UsedRange
    .Value = .Value
    .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
  End With
End Sub

Gruß Uwe