bei Listobjects ändert sich fast alles. Da kann mann auf deren Objekte zugreifen und muß eben nicht Anfang und Ende suchen.
Das Ausschalten von Screenupdating und automatische Calculation wäre hier noch erwähnenswert.
dim i as Long
'vorraussetzung die hilfszeile steht allein und ist deckungsgleich der Datentabelle
for each rng in wks.Range("B8").CurrentRegion
i = i+1
Select rng.value
case suchwort1: call funktion1(Listobjects(1).Listcolumns(i).DataBodyRange.SpecialCells(xlCellTypeVisible))
case suchwort2: call funktion2(Listobjects(1).Listcolumns(i).DataBodyRange.SpecialCells(xlCellTypeVisible))
usw. ....
end select
next
|