In einer Tabelle muss ich einen Bereich definieren, den ich anschliessend durchsuchen will.
For x = 1 To lRow
WertA = Cells(x, 10)
WertB = Cells(x, 15)
'Code unbekannt
Set Bereich = Range(Cells(Zeile?, 2), Cells(Zeile?, 2))
For Start = 0 To 13
Kürzel = Array("BS", "OL", "LZ", "ZUE", "ZG", "GD", "SCHW", "BRU", "FL", "AL", "ER", "GOE", "AI", "AP", "FA", "LAV", "BIA", "CAST", "BEL", "GIU", "LAM", "LG", "MEN", "CHI")
For Each c In Bereich
If c = Kürzel(Start) Then
usw.
Der Bereich befindet sich irgendwo in Spalte C und ergibt sich aus Spalten A und B.
Beispiel:
A B C
2313 15 BRU
2313 15 BS
2313 15 FL
2313 15 GD
2313 15 LZ
2313 15 OL
2313 15 SCHW
Der Bereich Spalte C, in welchem in Spalten A = 2313 und Spalte B = 15 steht, muss mit
Set Bereich = Range(Cells(Zeile?, 2), Cells(Zeile?, 2))
definiert werden, um anschiessend durchsuchen zu können. Die Zeilen mit gleichen Einträgen in A und B sind immer zusammenhängend.
Vielen Dank und Gruss
Gregor