Thema Datum  Von Nutzer Rating
Antwort
Rot ersten 10 Zeilennummern nach Autofilter
08.10.2021 06:47:09 Robin
Solved
08.10.2021 07:31:23 Robin
NotSolved
08.10.2021 07:56:54 Mase
NotSolved
08.10.2021 08:26:32 robin
NotSolved
08.10.2021 09:33:54 Mase
NotSolved
08.10.2021 09:39:38 robin
NotSolved
08.10.2021 10:20:39 Mase
NotSolved
08.10.2021 10:40:51 Robin
NotSolved
08.10.2021 11:00:17 Mase
NotSolved
08.10.2021 11:16:18 Robin
NotSolved
08.10.2021 11:25:17 Mase
NotSolved
08.10.2021 11:56:41 Robin
NotSolved
19.10.2021 13:01:32 robin
NotSolved
19.10.2021 14:29:53 Mase
NotSolved
19.10.2021 14:52:23 Robin
NotSolved
08.10.2021 10:00:56 robin
NotSolved

Ansicht des Beitrags:
Von:
Robin
Datum:
08.10.2021 06:47:09
Views:
196
Rating: Antwort:
 Nein
Thema:
ersten 10 Zeilennummern nach Autofilter

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ersten 10 Zeilennummern nach Autofilter
08.10.2021 06:47:09 Robin
Solved
08.10.2021 07:31:23 Robin
NotSolved
08.10.2021 07:56:54 Mase
NotSolved
08.10.2021 08:26:32 robin
NotSolved
08.10.2021 09:33:54 Mase
NotSolved
08.10.2021 09:39:38 robin
NotSolved
08.10.2021 10:20:39 Mase
NotSolved
08.10.2021 10:40:51 Robin
NotSolved
08.10.2021 11:00:17 Mase
NotSolved
08.10.2021 11:16:18 Robin
NotSolved
08.10.2021 11:25:17 Mase
NotSolved
08.10.2021 11:56:41 Robin
NotSolved
19.10.2021 13:01:32 robin
NotSolved
19.10.2021 14:29:53 Mase
NotSolved
19.10.2021 14:52:23 Robin
NotSolved
08.10.2021 10:00:56 robin
NotSolved