28.06.2018, 16:08
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.
Mein Code dazu ist folgender:
Ich freue mich für jeden Tipp. Vielen Dank und
beste Gruesse
Bamane
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).ValueMein 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 SubIch freue mich für jeden Tipp. Vielen Dank und
beste Gruesse
Bamane