Bereichangabe in Find-Funktion
01.08.2018 21:57:30
monnlight
habe folgenden Code:
Dim rngFinden As Range
Dim rngFinden as Range
Dim intLast As Integer
With Sheets("Zielmolekül")
intLast = .Cells(100, 1).End(xlUp).Row
Set rngFinden = .Range(Cells(100, 1), Cells(100, intlast)).Find(what:="Brom")
End With
MsgBox rngFinden.adress
Ich möchte folgendes erreichen: Es soll die Zelle mit dem Text "Brom" im Bereich A1 bis zur letzten Zelle in Spalte A, in der ein Text steht, gesucht werden. Beim Ausführen bekomme ich jedoch den Fehler, dass eine Objektvariabel oder with-Blockvariable nicht festgelegt wurde. Ich vermute der FEhler liegt in der ANgabe des Zellenbereiches, aber ich wüsste nicht, wie ich den Bereich sonst angeben könnte.Hoffe ihr könnt mir helfen,
beste grüße