Mach ne Sicherung von Deiner Mappe.
Dann filterst Deine Daten von Hand.
Ich unterstelle mit nachfolgem Code, dass die Daten ab A1 in der Tabelle vorliegen.
(Und zwar sowohl vertikal als auch horizontal aneinanderliegend.)
Jetzt führst folgenden Code aus:
Dim rng As Excel.Range
Set rng = Range("A1").CurrentRegion
MsgBox Intersect(rng, rng.SpecialCells(xlCellTypeVisible), rng.Offset(1, 0)).Address
Der oben gezeigte Code, erzeugt eine Messagebox, welche Dir den gefilterten Bereich bzw dessen Adresse ausgibt.
Sag Bescheid, wenn soweit alles klappt und klar ist.
|