Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in mehreren Zellen suchen

Werte in mehreren Zellen suchen
03.12.2003 12:18:47
dominik
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ß!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in mehreren Zellen suchen
03.12.2003 13:00:51
Nike
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
AW: Werte in mehreren Zellen suchen
03.12.2003 13:20:45
dominik
Ja, danke für den Tipp!
es funktioniert aber immer noch nicht!
AW: Werte in mehreren Zellen suchen-Funktioniert
03.12.2003 13:28:20
dominik
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!
AW: Werte in mehreren Zellen suchen
03.12.2003 13:27:07
Nike
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
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige