Holger schrieb am 04.03.2009 11:42:08:
Hallo Holger,
es handelt sich bei g und h um zwei Suchkriterien (Gewicht und Bauteil), die jedoch numerischen Werten zugeordnet sind, da sonst immer "Typen unverträglich" als Fehlermeldung kam.
Hast du vielleicht noch eine Idee wie ich die Suche dann bei dem gefundenen Kriterium anhalte???
Viele Grüße,
David
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 |