Ich benötige mit meinen bescheidenen VBA-Kenntnissen Hilfe um einen VBA-Code fertigzustellen.
Es soll eine Schleife auf Spalte A in Sheet "db" durchlaufen werden und dabei die Werte in Spalte A in Sheet "lm" gefunden werden. Wenn ein Wert gefunden wird, soll diese Zeile nach rechts bis Spalte 11 durchsucht werden, ob Zellen farbig markiert sind. Falls ja, dann sind Werte, Zellformate und Kommentare dieser Zellen zurück in Sheet "db" zu schreiben und zwar unter genau in der Zeile des gefundenen Suchbegriffs und der jeweiligen Spalte.
Mein Code läuft zwar problemlos durch, macht aber nicht was er soll...
Vielen Dank
Sub Vergleich2()
Dim rngQuelle As Range
Dim rngZiel As Range
Dim i As Integer
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = ActiveWorkbook.Worksheets("lm") 'Quelle
Set wksZ = ActiveWorkbook.Worksheets("db") 'Ziel
With ThisWorkbook.Sheets("db")
For Each rngZiel In Range("A2:A" & .Cells(.Rows.Count, 2).End(xlUp).Row)
On Error Resume Next
Set rngQuelle = ThisWorkbook.Sheets("lm").Range("A:A").Find(what = rngZiel, lookat:=xlWhole)
On Error GoTo 0
If Not rngQuelle Is Nothing Then
For i = 1 To 11
If wksQ.Cells(rngQuelle, i).Interior.ColorIndex 2 Then
wksQ.Range(rngQuelle).Copy
wksZ.Range(rngZiel).PasteSpecial Paste:=xlPasteValues
Else
Exit Sub
End If
Next i
End If
Next 'rngziel
End With
End Sub