Abfragen von Zellen aus einer Matrix
29.03.2007 10:20:00
Zellen
ich will eine Tabelle mit Hilfe einer Matrix auswerten.
Es gibt 2 Spalten, die mit verschiedenen Nummer belegt sind.
In einer Matrix will ich abfragen ob die Kombination vorhanden ist.
Ich habe mir das so vorgestellt. (Für die erste Kriterium)
Sub matrixabfrage()
Range("V150").Select
For i = 1 To 31
If Worksheets("inalfa_daten").Cells(149 + i, 21).Value = Worksheets("inalfa_daten").Cells(11, 5) _
.Value Then
Else
If Worksheets("inalfa_daten").Cells(149, 22).Value = Worksheets("inalfa_daten").Cells(12, 5). _
Value Then
ActiveCell.Value = ActiveCell.Value + 1
Else
End If
ActiveCell.Offset(1, 0).Activate
End If
Next i
End Sub
Das ganze geht über 30 verschiedene Zahlen (Matrix)
und über 150 Spaltenpaare.
Vielen Dank für die Unterstützung
Gruß
Chris
Anzeige