VBA Wert merken und Aktion durchfuehren

[Bamane]

Hallo,

ich möchte einen Wert aus Tabelle 1 in Tabelle 2 suchen und wenn dieser vorhanden ist, soll der Wert daneben ausgegeben bzw. gemerkt werden. Mit diesem Wert soll dann eine Aktion in einem anderen Workbook durchgeführt werden. 

Ich bekomme bei dem ersten Schritt, den Wert zu merken, folgende Fehlermeldung: "object doesn't support this property or method" .

Dabei wird die folgende Zeile gelb markiert.

Code:

CodeVal = Worksheets("OVL-Import CRB").rng2.Offset(0, -1).Value

Mein Code dazu ist folgender:

Code:

   Sub uebertragen()
   
   Dim rn1, rng2 As Range
   Dim lastrow As Long
   Dim CodeVal As Variant
   
   lastrow = Sheets("OVL-Import CRB").Cells(Rows.Count, 2).End(xlUp).Row
   
       For Each rng1 In Sheets("Control").Range("D4")
       
           Set rng2 = Sheets("OVL-Import CRB").Range("B:B").Find(What:=rng1, lookat:=xlWhole)
   
               If rng1.Offset(0, 0) = rng2.Offset(0, 0) Then
                   
                   CodeVal = Worksheets("OVL-Import CRB").rng2.Offset(0, -1).Value
               
               MsgBox "Done!" & CodeVal
               
               End If
           
       Next rng1
   
   End Sub

Ich freue mich für jeden Tipp. Vielen Dank und 
beste Gruesse
Bamane

[Kuwer]

Hallo Bamane,

CodeVal = rng2.Offset(0, -1).Value

Gruß Uwe

[Bamane]

Hallo Bamane,

CodeVal = rng2.Offset(0, -1).Value

Gruß Uwe

Vielen Dank Uwe, es funktioniert. :)