Herbers Excel-Forum - das Archiv
Werte in mehreren Zellen suchen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Werte in mehreren Zellen suchen
von: dominik
Geschrieben am: 03.12.2003 12:18:47
Möchte gerne wissen in welcher Zeile hinter " Versuchs-Nr.:" eine bestimmte (vorher in Messung1Box eingegebene ) Nummer steht! Dachte an folgendes Makro funktioniert aber so nicht!
Call Dif_Ermitteln
i = 11 + dif
Do Until Sheets("Daten").Cells(i, 1).Value = "Versuchs-Nr.:" And Sheets("Daten").Cells(i, 2).Value = Messung1Box Or i > 1000
i = i + 1
Loop
Cells(5, 2) = i
Excel leifert mir 1001 als Wert für i, obwohl die Zahl in den Zellen steht!
Dank und Gruß!
Betrifft: AW: Werte in mehreren Zellen suchen
von: Nike
Geschrieben am: 03.12.2003 13:00:51
Hi,
die Textbox liefert einen Textstring der aussieht wie eine Zahl,
der ist aber noch keine Zahl, also wenn dann mit
= cdbl(Messung1Box)
in eine Zahl umtüten ;-)
Bye
Nike
Betrifft: AW: Werte in mehreren Zellen suchen
von: dominik
Geschrieben am: 03.12.2003 13:20:45
Ja, danke für den Tipp!
es funktioniert aber immer noch nicht!
Betrifft: AW: Werte in mehreren Zellen suchen-Funktioniert
von: dominik
Geschrieben am: 03.12.2003 13:28:20
es hat doch funktioniert, man kann nur nicht sowas schreiben wie Messung2Box = CDbl(Messung2Box) da Messung2Box nixht als Variable definiert ist. Daher definiere man sich eine Variable z.B. a as variant und dann kann man a = CDbl(Messung2Box) schreiben und damit wie oben weiterarbeiten!
Danke nochmals!
Betrifft: AW: Werte in mehreren Zellen suchen
von: Nike
Geschrieben am: 03.12.2003 13:27:07
Hi,
dann versuchs mal so:
Do Until (Sheets("Daten").Cells(i, 1).Value = "Versuchs-Nr.:" And Sheets("Daten").Cells(i, 2).Value = Messung1Box) Or i > 1000
oder
Sub test()
Call Dif_Ermitteln
i = 11 + dif
Do Until Sheets("Daten").Cells(i, 1).Value = "Versuchs-Nr.:" And Sheets("Daten").Cells(i, 2).Value = Messung1Box
i = i + 1
If i > 1000 Then
Exit Do
End If
Loop
Cells(5, 2) = i
End Sub
Bye
Nike