Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler 91 bei Range Offset
 10.03.2022 15:50:55 MobaMarc
NotSolved
10.03.2022 16:05:43 Gast 7465
NotSolved

Ansicht des Beitrags:
Von:
MobaMarc		 Datum:
10.03.2022 15:50:55		 Views:
599		 Rating:
     
Antwort:
  Ja
Thema:
Fehler 91 bei Range Offset

Hallo zusammen, 

ich suche eine bestimmte Nummer in einer Datenbank via Range und Find. 

Allerdings möchte ich nicht direkt in der Ergebniszelle sondern in der Zelle 2 Spalten rechts etwas ausführen. Ich stoße immer wieder auf Fehler 91. 

Ich habe mir den Code immer weiter zerbröselt und die Ursache an folgender Stelle gefunden. 

Dim Rng As Range
Dim x as Long 
Reihe = Sheets("SILO").[A65536].End(xlUp).Row
RPIV = Sheets("PIVROH").[A65536].End(xlUp).Row

For x = 2 To Reihe
Set Rng = Worksheets("PIVROH").Range("A5:A" & RPIV).Find(Worksheets("SILO").Cells(x, 1))

If Not Rng Is Nothing Then _
    MsgBox Rng

Next x

Hier spuckt der das Ergebnis zuverlässig aus. Mache ich das ganze mit Offset kommt der Fehler 91 

If Not Rng Is Nothing Then _
    MsgBox = Rng.Offset(0, 2)

Hat jemand eine Idee? 

Ich hatte in einer früheren Version die If Abfrage umgedreht also; If Rng ist Nothing then nichts Else Code oben. Auch dies macht keinen Unterschied. 

Viele Grüße

Marc 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler 91 bei Range Offset
 10.03.2022 15:50:55 MobaMarc
NotSolved
10.03.2022 16:05:43 Gast 7465
NotSolved