Office: (Office 2010) Problem beim suchen und finden mit der Formel

Hallo Zusammen,

ich habe ein Problem mit der folgenden Formel

Code:

Sub Schaltfläche3_Klicken()

Dim rng As Range
Dim zeile As Long
If Worksheets("Abschluss").Range("D13") > 0 Then

    Set rng = Worksheets("Übersischt").Range("H5:H50000").Find(Worksheets("Abschluss").Range("D13").Value)
    If rng Is Nothing Then
    MsgBox "Fehler"
    Exit Sub
    End If
    'rng.Offset(0, 20).Value = "XXX"
    MsgBox "gefunden"
Else
MsgBox "Keine Eingabe"
End If

End Sub

Wenn ich die Werte in die Tabelle schreibe klappt es wunderbar. Da die Werte durch eine Formel kommen klappt es nicht mehr.
Kann mir jemand dabei helfen das Problem zu lösen und mir erklären warum das so ein Problem für diesen Code ist?

Vielen Dank

Habt einen schönen tag und bleibt alle Gesund


Gruß Michael

 

Hola,

wenn du ein Problem mit einer Formel hast, dann solltest du uns die auch nennen.

Gruß,
steve1da

 

Hallo steve1da,

nicht mir der Formel scheisse verschrieben. Ich habe nur das Problem mit dem Code wenn in den Zellen die abgefragt werden eine Formel steht.
Sobald in der Zelle die abgefragt wird eine Formel steht bekomme ich nur die Meldung aus der MsgBox "Fehler".

Kann ich irgendwie die Überschrift ändern?

Gruß Michael

 

Hola,

ok. Du schreibst per Hand einen Wert in die Zelle, das Makro klappt.
Du lässt den Wert bei Formel in die Zelle eintragen, das Makro gibt einen Fehler aus.
Und die Formel nennst du nicht weil.....?

Gruß,
steve1da

 

Hallo steve1da,

Sorry total vergessen.

Hier nun die Fromel

Code:

=WENN(C5>0;WENN(Daten!G3>0;Daten!G3;);)

Diese gibt mir einfach nur eine Zahl aus dem Tabellenblatt "Daten" diese Zahl wäre anhand der Formel 498001654787.
Wenn ich nun die Zahl direkt ein Tippe bzw. den Code auf das Tabellenblatt "Daten" änder geht es. Aber es muss in der "Übersicht" sein da noch andere tabellenblätter Daten davon brauchen.
Gruß Michael

 

Hola,

die zweite Wenn Formel hat kein Sonst. Was steht genau in Daten!G3? Inkl Format bitte.

Gruß,
steve1da

 

Hallo Steve,

Beide Wenn Formeln haben kein sonst. Einfach nur diese Zahl 498001654787.

Gruß Michael

 

Hallo Steve1da,

Das Format vergessen. Das wäre Zahl die Kommastellen sind auf 0 gestellt so wie in Daten so wie in der Übersicht da die Zahlen sonst so ausehen 4,98002E+11

Gruß Michael

 

Hola,

=istzahl(Daten!G3)
Was kommt da raus?

Gruß,
steve1da

 

Halo Steve1da,
Wenn ich die Formel eingebe kommt WAHR raus.


Gruß Michael

 

Hallo nochmal in die Runde

Ich habe den Code nochmal getestet und die Tabelle "Übersicht" ohne Formel gemacht da funktioniert der Code ohne Probleme. Nur sobald es das Ergebnis einer Formel ist findet er nichts und daher der Fehler, der ja kommt, wenn nichts gefunden wurde durch die Msgbox. Nur wie kann ich den Code nun auch für Werte nutzen, die aus Formeln kommen?

Gruß Michael

 

Hallo zusammen,

Thema Erledigt

Code:

Sub Schaltfläche3_Klicken()

Dim rng As Range
Dim zeile As Long

If Worksheets("Abschluss").Range("D13") > 0 Then

    Set rng = Worksheets("Übersischt").Range("H5:H50000").Find(Worksheets("Abschluss").Range("D13"), LookIn:=xlValues, LookAt:=xlWhole)
    If rng Is Nothing Then
    MsgBox "Fehler"
    Exit Sub
    End If
    rng.Offset(0, 20).Value = "XXX"
    'MsgBox "gefunden"
Else
MsgBox "Keine Eingabe"
End If

End Sub

Nun klappt es wie es soll

Erst hatte ich es so

Code:

Set rng = Worksheets("Übersischt").Range("H5:H50000").Find(Worksheets("Abschluss").Range("D13").Value)

Habe nun auch die ganze Zeit weiter gegoogelt und dies dann gefunden und es dann so gemacht.

Code:

Set rng = Worksheets("Übersischt").Range("H5:H50000").Find(Worksheets("Abschluss").Range("D13"), LookIn:=xlValues, LookAt:=xlWhole)

Und siehe da es klappt.

Gruß Michael