|
Hallo,
ich habe hier ein Sheet, mit insgesamt ca 17.000 Zeilen. In diesen Zeilen habe ich in zwei verschiedenen Spalten verschiedene Zahlen stehen, welche durch ein Komma getrennt sind, z.B. 7100,7200,7500.
In einem anderen Tabellenblatt habe ich wiederum die Zahlen stehen, die in in diesen Zellen gefunden werden sollen, z.b.
7100
7200
usw.
Ich hab nun versucht die Zellen aus dem Worksheet beider Spalten in einem Array einzulesen und diese dann jeweils gegen die aktuelle Zahl in einer For Schleife zu prüfen, immer wenn es einen Match gibt soll in einer Spalte das Wort "Ja" geschrieben werden.
Leider sind meine Kentnisse nicht so ausgeprägt, könnte mir da einer weiterhelfen? Oder verfolge ich hier einen komplett falschen Ansatz?
Dim betroffeneZahl As Long
Dim Spalte1array
Dim Datenmenge As Worksheet
Dim GesuchteZahlen
Dim ZahlSuch As Long
Dim Spalte2array
Spalte1array = Range("E2:E16530")
Spalte2array = Range("D2:D16530")
Set Datenmenge = Worksheets("Datenmenge")
Set GesuchteZahlen = Worksheets("GesuchteZahlen")
For i = 2 To 25
ZahlSuch = GesuchteZahlen.Cells(i, 1).Value
For Spalte1array = 1 To UBound(Spalte1array)
If Spalte1array(Spalte1array).Value = ZahlSuch Then
Datenmenge.Cells(2, 12).Value = "Ja"
End If
Next Spalte1array
Next i
End Sub
|