Hey,
ich hoffe jemand kann mir weiterhelfen. Ich möchte 2 Spalten auf gleiche Werte vergleichen. Wenn die Werte gleich sind, sollen die Werte von der benachbarten Zelle kopiert und in einer anderen Spalte eingfügt werden.
Mein Code lautt wie folgt:
Dim helo
For counter = 1 To 100
If Worksheets("Saldo").Cells(counter + 10, 16) = Worksheets("Auswertung").Cells(counter + 1, 2) Then
Worksheets("Saldo").Cells(counter + 10, 17).Copy
helo = helo + 1
Worksheets("Auswertung").Cells(helo, 3).PasteSpecial
End If
Next
Leider tut sich aber nichts. Ich weiß nicht was ich da falsch mache. Für jede Hilfe wäre ich sehr dankbar.
Liebe Grüße
|