Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Werte in mehreren Zellen suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ TextBox
Bild

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

Bild

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
Bild

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

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

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
Bild
Excel-Beispiele zum Thema " Werte in mehreren Zellen suchen"
Druck aus mehreren Tabellenblättern auf eine Druckseite Daten von mehreren Blättern auf ein Druckblatt
Werte in mehreren Spalten sortieren Den selben Bereichsnamen in mehreren Tabellenblättern
Tabelle nach mehreren Kriterien summieren Auswahl von Zellen in mehreren Zeilen verhinden
Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen Benannte Bereich aus mehreren Arbeitsmappen importieren
Filtern über VBA nach mehreren Kriterien Kosten nach mehreren Kriterien erfassen