SUB ändern
09.01.2003 21:40:59
Thellmann
Durch mein kleines Makro kann ich Spalten in Excel vergleichen.
AUS SPALTE A WERDEN ALLE
INHALTE,DIE NICHT IN SPALTE B
SIND, IN SPALTE C KOPIERT
Ich benötige eine Änderung und zwar wie folgt:
AUS SPALTE A WERDEN ALLE
INHALTE,DIE IN SPALTE B
SIND, IN SPALTE C KOPIERT.
Sub VergleichenKopieren()
Dim v As Variant
Dim lRowL As Long, lRow As Long
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 1 To lRowL
v = Application.Match(Cells(lRow, 1).Value, Columns(2), 0)
If IsError(v) Then
Cells(lRow, 3).Value = Cells(lRow, 1).Value
End If
Next lRow
End Sub
Wer kann meinen Wunsch realisieren.
MFG
Gisela Thellmann