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