13.03.2017, 21:43
Hallo,
ich würde gerne bei Übereinstimmung des Werts in der dritten Zeile einer bestimmten Spalte in Tabelle "Test" mit dem Wert in Zelle "C11" in der Tabelle "Test01" den Wert in der vierten Zeile der jeweiligen Spalte in Tabelle "Test" in Zelle "E11" in Tabelle "Test01" übernehmen. Unten angegeben ist der Code, der derzeit jedoch leider nicht funktioniert. Wer kann mir da weiterhelfen und entdeckt den derzeit noch falschen Eintrag im Code!?
ich würde gerne bei Übereinstimmung des Werts in der dritten Zeile einer bestimmten Spalte in Tabelle "Test" mit dem Wert in Zelle "C11" in der Tabelle "Test01" den Wert in der vierten Zeile der jeweiligen Spalte in Tabelle "Test" in Zelle "E11" in Tabelle "Test01" übernehmen. Unten angegeben ist der Code, der derzeit jedoch leider nicht funktioniert. Wer kann mir da weiterhelfen und entdeckt den derzeit noch falschen Eintrag im Code!?
Code:
Sub Test()
Dim LoL_2 As Integer
Dim x1 As Integer
Dim ws2 As Worksheet
Set ws2 = Worksheets("Test")
With Worksheets("Test01")
LoL_2 = ws2.Cells(3, 256).End(xlToLeft).Column
For x1 = 1 To LoL_2
If ws2.Rows("3" & x1) = .Range("C11") Then
.Range("E11") = ws2.Rows("4" & x1)
End If
Next
End With
End Sub