AW: ohne Select
21.12.2007 01:21:00
Daniel
Hi
wenn man davon ausgeht, das du ne ordentliche Tablle hast, dh.
- eine Zeile überschrift
- keine Leerzeilen, keine Leerspalten
- keine weiteren Daten unterhalb der Tabelle,
dann kannst du die Tabelle, bzw die gefilterte Auswahl am einfachsten so selektieren:
Annahme: 1. Zelle der Tabelle sei A1: und Überschrift ist in Zeile 1
Range("A1").currentregion.offset(1,0).specialcells(xlcelltypevisible).delete shift:=xlup
Currentregion erweitert die Auswahl auf die ganze Tabelle
Offset(1,0) verschiebt die Auswahl um 1 nach unten, so daß die Überschrift nicht in der auswahl drin ist.
(dafür ist die Leerzeile unter der Tabelle mit drin, aber das ist kein Problem , wenn keine weitren Daten unterhalb der Tabelle stehen.
Muss die auswahl genau auf die Tabelle eingeschränkt werden, weil drunter doch noch daten Stehen, wird es etwas Komplexer, da der mit currentregion ermittelte Zellbereich um 1 verkleinert werden muss:
Range("A1").currrentregion.offset(1,0).Resize(Range("A1").currentregion.rows.count-1).specialcells(xlcelltypevisible).delete shift:=xlup
in diesem Fall bietet sich die With-Klammer a:
With Range("A1").CurrentRegion
.Offset(1,0).Resize(.Rows.Count-1).specialcells(xlcelltypevisible).delete shift:=xlup
end with