Hallo David,
g und h sind leer, do dass mit
Worksheets("Analysetool").Cells(9, 4).Value = g
und
Worksheets("Analysetool").Cells(19, 4).Value = h
auch diese Zellen leer sind. Willst danach suchen? Oder wolltest du vielleicht g und h öffentlich deklarieren? Oder sollte es
g=Worksheets("Analysetool").Cells(9, 4).Value
und
h= Worksheets("Analysetool").Cells(19, 4).Value
heißen?
Gruß
Holger
David schrieb am 04.03.2009 10:10:25:
Kann mir jmd. sagen warum das folgende Programm nicht bei meinen Suchkriterien stoppt und diese rausschreibt, sondern immer durch alle Werte rattert???
Vielen Dank!!!
VG,
David
Sub Projekt()
Const Zeile = 217
Const Spalte = 22
Dim g, h, j, k, l, m As Variant
Dim Suche(Zeile, Spalte) As Variant
For i = 1 To Zeile Step 1
For j = 1 To Spalte Step 1
Worksheets("Analysetool").Cells(9, 4).Value = g
Worksheets("Analysetool").Cells(19, 4).Value = h
Suche(i, j) = Worksheets("Auswertung").Cells(i, j)
If Suche(i, j) = g Then
If Suche(i, j) = h Then
k = Worksheets("Auswertung").Cells(i, 2)
Worksheets("Analysetool").Cells(9, 9).Value = Worksheets("Auswertung").Cells(i, 2).Value
l = Worksheets("Auswertung").Cells(i, 10)
Worksheets("Analysetool").Cells(11, 9).Value = Worksheets("Auswertung").Cells(i, 10).Value
m = Worksheets("Auswertung").Cells(i, 19)
Worksheets("Analysetool").Cells(21, 9).Value = Worksheets("Auswertung").Cells(i, 19).Value
End If
End If
Next
Next |