Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte in mehreren Zellen suchen

Forumthread: 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ß!
Anzeige

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!
Anzeige
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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige