mit dem nachstehenden Code würde ich erreichen wollen, dass im besagten Tabellenblatt die Leerzeilen gelöscht werden, ohne die Tabelle neu zu sortieren. Der Code läuft auch soweit, bringt dann aber trotzdem eine Fehlermeldung mit dem Hinweis, "Keine Zellen gefunden"; was müßte ich evtl. verändern, damit Fehlermeldung nicht mehr erscheint? - Wie gesagt, eigentlich läuft der Code soweit und löscht auch alle Leerzeilen. - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Sub Leerzeilen()
Sheets("Grunddaten").Activate
ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub