Hallo Zusammen,
ich bin ein VBA-Neuling und krieg's einfach nicht hin, dass er alle befüllten Zeilen durchläuft.
Ich möchte zunächst prüfen, ob die Werte aus dem Reiter "Kampagne_001" Zellen A2 bis letzte gefüllte Zelle in Spalte Ain der Spalte C im Reiter "Prüfung" vorkommen.
Falls nicht sollen die dazugehörigen Werte (Reiter "Kampagne_001") in den Spalten C bis E kopiert (Vergleich erfolgt anhand Wert in Spalte A) und in die erste leere Zelle in Spalte D im Reiter "Prüfung" eingefügt werden.
Hier mein Ansatz:
Sub Datenübertragung()
'
' Datenübertragung Makro
' Tastenkombination: Strg+m
Dim EintragCheck1 As Variant
Dim EintragCheck2 As Variant
Dim Suche As Long
For Suche = 2 To Sheets("Kampagne_001").Cells(Rows.Count, 1).End(xlUp).Row
EintragCheck1 = Sheets("Kampagne_001").Cells(Suche, 1).Value
Application.ScreenUpdating = False
Sheets("Kampagne_001").Range("C2:E2").Copy
Sheets("Prüfung").Activate
Dim leereZeile
leereZeile = Sheets("Prüfung").Cells(Rows.Count, 4).End(xlUp).Row + 1
For I = 2 To Sheets("Prüfung").Cells(Rows.Count, 4).End(xlUp).Row
EintragCheck2 = Sheets("Prüfung").Cells(I, 3).Value
If EintragCheck1 = EintragCheck2 Then
Exit Sub
Else
End If
Next
Next Suche
Sheets("Prüfung").Range("D" & leereZeile).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = True
End Sub
Leider funktioniert die Schleife nicht - es werden nur die Werte in den Zellen C2:E2 aus Reiter "Kampagne_001" kopiert.
Kann jemand helfen?
Liebe Grüße
Ella
|