Filter-Ergebnisse ohne Titel löschen (VBA)
10.10.2017 18:20:31
Markus
ich möchte gerne per VBA die Ergebnisse eines dynamisch gefilterten Blattes löschen.
Bisher habe ich dafür folgenden Code, der grundsätzlich auch funktioniert.
Kann mir jemand sagen, was ich hier noch ändern muss, damit auch folgendes gegeben ist ?
1) Wie erreiche ich, dass Zeile 1, d.h. die Titel des Filters generell nicht gelöscht werden (ich hatte hier evtl. an Offset gedacht) ?
2) Wie verhindere ich eine Fehlermeldung, wenn der Filter keine Ergebnisse liefert, d.h. wenn nach dem Filtern nur Zeile 1 bzw. die Titel zu sehen sind ?
Mein Code:
With varTargetSheet
.Range("A:Z").SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Cells.AutoFilter
End With
Markus
Anzeige