Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Syntaxfehler Bereich, Find

Forumthread: Syntaxfehler Bereich, Find

Syntaxfehler Bereich, Find
13.02.2025 18:41:43
Marko
Liebe Excelfreunde,
Ich habe wieder mal ein Syntaxproblem und komme einfach nicht hinter meinen Fehler.
Ich möchte innerhalb eines Bereiches eine Zelle suchen (mit VBA) die den Wert der Zelle B150 hat.

An dieser Zeile bastele ich schon ein paar Stunden.
Will/muss aber auch unbedingt mit Cells arbeiten
Lege also den Bereich fest und will darin die Zelle mit dem Zellenwert aus Zelle $B$150 finden.
Er soll mir die Adresse der gefundenen Zelle zurückgeben.
Set rng = ActiveSheet.Range(Cells(1, iLetzte), Cells(100, iLetzte)).Select.Find.(Cells(2, 150).Value)
Bringt mir immer Fehlermeldung Laufzeitfehler 424: Objekt erforderlichen. Kann mir jemand helfen?????????
Danke und viele Grüße
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Syntaxfehler Bereich, Find
13.02.2025 18:56:29
Beverly
Hi Marko,

Set Rng = ActiveSheet.Range(Cells(1, iLetzte), Cells(100, iLetzte)).Find(Cells(2, 150).Value)


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
AW: Syntaxfehler Bereich, Find
13.02.2025 22:59:06
Piet
Hallo Marko

du schreibst, die Zelle B150 ist nicht leer. Was ist denn da genau drin? Eine Formel, oder ein - Zeichen am Anfang ??
Es ist für mich sehr ungewönlich das eine MsgBox mit einfachem Text zum Laufzeitfehler führen kann.

mfg Piet
Anzeige
AW: Syntaxfehler Bereich, Find
14.02.2025 09:59:32
GerdL
Hallo Marko!
Option Explicit


Sub test()

Dim rng As Range

Sheets("2025").Range("B5") = 12.54
Sheets("2025").Range("B5") = Format(Sheets("2025").Range("B5"), "0.00")
Sheets("2025").Range("D1") = 12.54
Sheets("2025").Range("D1") = Format(Sheets("2025").Range("D1"), "0.00")
MsgBox Sheets("2025").Range("B5") = Sheets("2025").Range("D1")


Set rng = Sheets("2025").Range(Sheets("2025").Cells(1, 3), Sheets("2025").Cells(100, 6)). _
Find(Sheets("2025").Cells(5, 2).Value, lookat:=xlWhole, LookIn:=xlValues)

MsgBox rng.Address(external:=True)

End Sub

Gruß Gerd
Anzeige
AW: Syntaxfehler Bereich, Find
13.02.2025 23:24:04
Marko
Hallo Piet,

die Problematik Laufzeitfehler war einem unkorrekten Syntax von mir geschuldet, den Karin heute Nachmittag sofort herausgefunden und behoben hatte.
Die MSG Box hat damit natürlich nichts zu tun.

In der Zelle B150 ist ein Zahlenwert mit zwei Nachkommastellen. Diese Zahl hole ich mir aus einer Namenszelle aus einem anderen Sheet des Workbooks.(=NameX)
Aber auch eine mit Hand eingetragene Zahl in dieser Zelle führt nicht zum Ergebnis. Sobald in dem Bereich eine leere Zelle ist, dann wird mir diese Zelle als Ergebnis präsentiert. VBA hat also wahrscheinlich ein Problem mit (Cells(150, 2).Value

mfG Marko

Anzeige
AW: Syntaxfehler Bereich, Find
13.02.2025 19:02:28
Marko
Hi Karin,

vielen vielen Dank
AW: Syntaxfehler Bereich, Find
13.02.2025 20:31:51
Marko
Liebe Excelfreunde,

Jetzt habe ich mein Syntax Problem von Karin freundlicherweise korrigiert bekommen.

Set Rng = ActiveSheet.Range(Cells(12, iLetzte), Cells(100, iLetzte)).Find(Cells(150, 2).Value)

Trotzdem ich aber nun die Zelle B150 mit einem Wert belegt habe ist mein Excel der Meinung die Zelle B150 ist leer.
Die Formatierung der Zelle B150 ist exakt die Gleiche wie die mit demselben Wert im zu durchsuchenden Bereich. Trotzdem gibt er mir als Ergebnis immer die erste leere Zelle aus die er findet. :-(
Sollte ich lieber heute aufhören, oder hat jemand noch einen Tip was ich hier falsch mache?

LG
Anzeige
AW: Syntaxfehler Bereich, Find
13.02.2025 21:44:34
Beverly
Hi Marko,

ergänze den Code mal wie folgt:

.Find(Cells(2, 150).Value, lookat:=xlWhole, LookIn:=xlValues) 


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
AW: Syntaxfehler Bereich, Find
13.02.2025 22:16:58
Marko
Hi Karin,
Zunächst nochmals vielen Dank für die Hilfe!
Also ich habe nach der Zeile einen F9 Stop gesetzt. Wenn ich nun über die Cells fahre sehe ich überall die richtigen Werte, allerdings bei Cells(2,150) zeigt er mir nichts an. Heißt für mich Zelle = leer. Die Zelle ist aber nicht leer. Leider haben Deine Ergänzungen auch nichts geändert :-(
Hab mal einen Ausschnitt vom Sytax unter 175666.jpg hochgeladen.
vielen Dank
Anzeige
AW: Syntaxfehler Bereich, Find
13.02.2025 23:24:41
Beverly
Hi Marko,

dann lade doch mal deine Mappe hoch, damit man sich den Aufbau ansehen kann.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige