Doppelte Werte
26.09.2006 23:56:21
peter
ich hab schon die Suche durchstöbert,aber ohne Erfolg.
Ich habe in A1:A20 einige Zahlen stehen.Nun makiere ich einen anderen Bereich,und wenn dort die gleichen Zahlen stehen,sollen sie in der Spalte A gelöscht werden.Meine Versuche sahen bisher so aus:
Sub Vergleich()
Dim rng As Range
For Each rng In Sheets("Tabelle1").Range("A1:A20")
If rng.Value = Selection.Value Then
rng.Value = ""
End If
Next rng
End Sub
Das klappt aber leider nicht.Kann mir da wer helfen?
Vielen Dank im vorraus.
mfg Peter
Anzeige