ich habe 2 Tabellen, und möchte Daten aus der zweiten in die erste Kopieren.
Relevante Spalten:
Tabelle A
Spalte B :Nr.
Spalte C :X
Spalte W :km
Spalte X :Datum
Tabelle B:
Spalte A :Nr.
Spalte B :Datum
Spalte C :km
nun habe ich folgenden Code:
Dim Z As Integer
Dim Zz As Integer
Dim i As Integer
Dim ii As Integer
Z = Sheets("Einlesen").UsedRange.Rows.Count
Zz = Sheets("Anlagen").UsedRange.Rows.Count
For i = 6 To Z
Sheets("Einlesen").Cells(1, 1) = i
For ii = 7 To Zz
Sheets("Einlesen").Cells(1, 2) = ii
If Sheets("Anlagen").Cells(ii, 2) = Sheets("Einlesen").Cells(i, 2)
And Sheets("Anlagen").Cells(ii, 3) = "x" Then
'Sheets("Anlagen").Cells(ii, 23) = Sheets("Einlesen").Cells(i, 3)
'Sheets("Anlagen").Cells(ii, 24) = Sheets("Einlesen").Cells(i, 2)
End If
Next ii
Next i
Leider wird aber nichts kopiert. Kann mir da jemand helfen?
Danke
Frank