Zeilennummern suchen und sortieren über VBA

Ich habe ein Exceltabelle in der in Spalte VPLZ die Werte öfters vorkommt.
Die Häufigkeit des Vorkommens wird bereits in der Letzten Spalte per Zählenwenn ermittelt.
Zeile; Postl cod; City; VPLZ; Entfer; Ort; Menge; VPLZ Anzahl
312; 10117; Berlin; 10787; 3,37; Berlin; 102; 4
429; 10623; Berlin; 10787; 1,09; Berlin; 102; 4
650; 10719; Berlin; 10787; 1,61; Berlin; 102; 4
903; 10789; Berlin; 10787; 0,72; Berlin; 102; 4
543; 10623; Berlin; 12103; 5,77; Berlin; 47; 3
714; 10719; Berlin; 12103; 4,67; Berlin; 47; 3
956; 10789; Berlin; 12103; 4,77; Berlin; 47; 3
Nun möchte ich per VBA alle Zeilen auslesen, die den Wert z.b. 10787 enthalten.
Die Zeilennummern sollen dann aufsteigend nach der Entfernung einer Variablen zugewiesen werden.
Eine Sortierung der Grundtabelle sollte nicht erfolgen.
Ergebnis sollte sein bei dem Wert 10787
Variablel(1) = 903; Variable(2) = 429; Variable(3) = 650; Variable(4) = 312
Ergebnis sollte sein bei dem Wert 12103
Variable(1) = 714; Variable(2) = 956; Variable(3) = 956
Die gesamtzahl der Einträge in der Tabelle liegt bei 6000 Zeilen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus Berger,
hier mal ein Beispiel, wie so was ausschauen könnte:


Sub sucher()
Dim rSuche As Range, rFinde As Range
Dim arrZeile() As Long, strErste As String
Dim lngspalte As Long, lngLauf As Long
Set rFinde = Range("A:A") ' suchrange
Set rSuche = rFinde.Find(what:=Range("C1").Value, LookAt:=xlWhole, LookIn:=xlValues) '  _
Suchterminus / Suchstring in C1
x = 0
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do ' Suchschleife
'MsgBox rSuche.Row
ReDim Preserve arrZeile(x) ' Einlesen Array
arrZeile(x) = rSuche.Row
x = x + 1
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
MsgBox "Suchstring wurde nicht gefunden!"
Exit sub
End If
Set rFinde = Nothing
Set rSuche = Nothing
For lngLauf = LBound(arrZeile()) To UBound(arrZeile()) ' Arrayinhalt widergeben
MsgBox arrZeile(lngLauf)
Next lngLauf
End Sub

bei diesem Beispiel-Makro stehen die Suchbegriffe in Spalte A und der Suchstring in C1.
Gruß
Chris

Beliebteste Forumthreads (12 Monate)

Zeilennummern suchen und sortieren über VBA

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilennummern suchen und sortieren über VBA

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread