Office: VBA .Find Laufzeitfehler 91

Hallo Zusammen,
Ich habe das Problem, das mir der folgende Code immer den Fehler ausgibt:
„Laufzeitfehler 91:
Objektvariable oder With-Blockvariable nicht festgelegt“

Der Code soll die 5 Kriterien (Spalte B,C,G,H,I => Daher die Spaltenindizes von 2,3,7,8,9) der aktiven Zeile mit allen anderen Zeilen vergleichen. Wenn eine Zelle alle 5 anderen Kriterien der Aktiven Zeile ebenfalls erfüllt, soll eine MsgBox eine Warnung ausgeben, dass kontrolliert werden soll ob diese gefunden Zelle, die ebenfalls alle Kriterien erfüllt, nicht schon die gewünschte Eingabe ist. Sodass im Datenpool Werte nicht doppelt vorhanden sind.
Das After in jeder Suche habe ich eingefügt, da die Suchen ja sonst immer auf die ganze Spalte gehen. Wenn ich mit der ersten Suche aber schon in Zeile 48 bin, muss die 2te Suche nicht wieder von 0 anfangen, da hier Kriterium 1 ja schon nicht erfüllt ist.

Der Zähler x soll gewährleisten, dass die Suche auch weitere Werte findet die nach dem 1ten gefundenen Wert nachfolgen.

Bitte um kurze Hilfe bin verwirrt...^^

Private Sub CommandButton3_Click()
Dim x, Spalte_3, Spalte_4, Spalte_5 As Double
Dim Spalte_1, Spalte_2 As String


Spalte_1 = Cells(ActiveCell.Row, 2)
Spalte_2 = Cells(ActiveCell.Row, 3)
Spalte_3 = Cells(ActiveCell.Row, 7)
Spalte_4 = Cells(ActiveCell.Row, 8)
Spalte_5 = Cells(ActiveCell.Row, 9)

Dim c, d, e, f, g As Range
x = 4

Do While g.Row 0
Set c = ActiveSheet.Range("B:B").Find(What:=Spalte_1, After:=Cells(x, 2))
Set d = ActiveSheet.Range("C:C").Find(What:=Spalte_2, After:=Cells(c.Row, 3))
Set e = ActiveSheet.Range("G:G").Find(What:=Spalte_3, After:=Cells(d.Row, 7))
Set f = ActiveSheet.Range("H:H").Find(What:=Spalte_4, After:=Cells(e.Row, 8))
Set g = ActiveSheet.Range("I:I").Find(What:=Spalte_5, After:=Cells(f.Row, 9))
If Not g Is Nothing Then
MsgBox "Maß ist bereits in der Zeile: " & g.Row & " vorhanden!" & vbCrLf & "Überpüfen Sie ob keine doppelte Bemaßung vorliegt."
Else
Exit Sub
End If
x = g.Row
Loop

End Sub

:)

 

Hi End Sub,

an dieser Stelle hier:
Code:

definierst Du nur g als Range. Alles anderen Variablen sind vom Typ Variant. Du bist hier in VBA, da muss der Typ für jede Variable extra angegeben werden.

Für die Zukunft: Es ist immer hilfreich zu erwähnen, in welcher Zeile genau der Debugger meckert.

 

Vielen Dank schon einmal.

Habe den Code, einmal so abgeändert.
Der Debugger, schaltet mir an der Fett markierten Stelle auf Nothing. Danach springt er in den Exit Sub Strang.

Die Werte darüber für c (Bsp."1234-5678") und d ("SHIM") findet er wunderbar. Aber Kriterium e wird auf ominöse Weise nicht gefunden.
Das witzige dabei, wenn ich eine Zelle im Datenpool markiere die 2 Zeilen höher liegt, wird e ("0,25") noch richtig gefunden aber er steigt dann bei Variable f="Nothing" aus.

Gruß Salazar

Code:

 

Ok habe gerade herausgefunden (Was ich persönlich echt lächerlich finde), dass die Find Funktion auf die angezeigten Excel-Werte geht.

Gibt man also einen Zellenwert von Bsp. 13,795 manuell ein und lässt Excel 2 Dezimalstellen anzeigen, somit 13,80. Kann die Funktion .Find den Wert nicht mehr finden.

Klickt man die Zeile an, steht natürlich immer noch 13,795 drin. Der .Find Befehl findet das ganze nur nicht?!

Stelle ich auf 3 Kommastellen in Excel funktioniert die VBA wunderbar.


Kann man das ganze irgendwie umgehen?
In meiner Variable Spalte_3 ist der richtige Wert mit 13,795 drin (laut Debugger), nur meine .Find Funktion kann nur den Wert 13,80 finden.
Gibt es hier Einstellungsmöglichkeiten der .Find Funktion? Um nach dem korrekten Zellenwert und nicht dem angezeigten Wert zu suchen?

 

Hallo Salazar,

nutze Application.Match().

Beispiele findest Du im Netz, auch hier im Forum.

Grüße
EarlFred

 

Ok Vielen Dank alle Zusammen!!!!!

Habe noch gemerkt, dass "LookIn:=xlFormulas" direkt die Formeln anschaut in Excel.
Dann funktioniert alles.

Vielen Dank!!!
P.S.
Das mit Match probiere ich nachher mal noch aus.