Hallo fedjo
Super Dein VBA Script hat mein Problem schon fast gelöst!
Du hast dies richtig verstanden, bei Übereinstimmung werden die Daten aus der Tabelle 2 Spalte G übernommen jedoch nicht in Spalte A sondern in Tabelle 1 Spalte M, das habe ich bereits angepasst :-),
nun habe ich jedoch noch das Problem das die Werte ab der Stelle wo eine Zeile keine übereinstimmung hat, die Werte versetzt zurückgegeben werden. Also jeweils um eine Zeile tiefer.
Hier mal ein Beispiel:
T1/T2 Zeile A6 in beiden Tabellen der gleiche Wert dann wird der Wert korrekt zurückgeben
T1/T2 Zeile A7 ungleicher Wert also in T1 ist der Eintrag nicht vorhanden bzw. unterschiedlich zu T2 nun wird der zugehörige Wert um eine Zeile versetzt zurückgegeben.
Hier noch Dein Script mit meinen Anpassungen:
Option Explicit
Sub Zwei_Spalten_vergleichen()
Dim T1 As Long
Dim T2 As Long
Dim L1 As Long ' Spalte A
Dim L2 As Long ' Spalte B
With Worksheets("Test")
L1 = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
End With
With Worksheets("EingabeBetriebskst")
L2 = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
End With
For T1 = 1 To L1 ' Schleife Spalte A
For T2 = 1 To L2 ' Schleife Spalte B
If Worksheets("Test").Cells(T1, 1) <> "" Then
If Worksheets("Test").Cells(T1, 1) = Worksheets("EingabeBetriebskst").Cells(T2, 1) Then
Worksheets("Test").Cells(T2, 13) = Worksheets("EingabeBetriebskst").Cells(T2, 7)
End If
End If
Next T2
Next T1
End Sub
Wenn ich wüsst wie ich das Excel Sheet hochladen könnte wäre es wahrscheinlich einfacher dann würdest Du mein Problem gleich sehen :-) schon mal Besten Dank!
Und wenn ich Dich heute nicht mehr hören sollte einen guten Rutsch in's 2012
Grüsse
HenryV
