|
Guten morgen liebes VBA-Forum,
ich versuche nach verschiedenen aktivierten Autofiltern die 10 ersten sichtbaren Zeilennummern rauszubekommen.
Das klappt auch, aber nicht immer, obwohl die Datei in der gesucht wird immer die gleiche ist und nur die "Auftragsnummer" (eines von mehreren Filterkriterien) nach der ich vorher Filter eine andere ist.
Fehler: Laufzeitfehler 1004 - Die Methode Range für das Objekt _Global ist fehlgeschlagen.
Code habe ich im Internet gefunden....
Set wksA = ActiveSheet
lngNaechsteZeile = 1
For i = 1 To 10
lngZeile = lngNaechsteZeile 'Nächste mit Autofilter gefilterte Zeile Nach dieser suchen
Set rngW = wksA.Cells(1, 1) 'diese Zelle A1 muß unbedingt einen Text enthalten und sichtbar sein
If Intersect(Range(rngW.SpecialCells(xlCellTypeVisible).Address), wksA.Columns(1), wksA.UsedRange, wksA.Range(wksA.Rows(lngZeile + 1), wksA.Rows(wksA.Rows.Count))) Is Nothing Then
Exit For
Else
lngNaechsteZeile = Intersect(Range(rngW.SpecialCells(xlCellTypeVisible).Address), wksA.Columns(1),wksA.UsedRange, wksA.Range(wksA.Rows(lngZeile + 1), wksA.Rows(wksA.Rows.Count))).Row
MsgBox lngNaechsteZeile
End If
.......'hier folgt noch etwas .Value und in einer anderen Datei dann das Einsetzen der ausgelesenen Werte........
Next i
Jemand eine Idee ? Ich verstehs leider nicht :( Danke schonmal und beste Grüße, Robin
|