Doppelte Werte

Forumthread: Doppelte Werte
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Doppelte Werte

Doppelte Werte

27.09.2006 01:56:21

peter

Hallo,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Doppelte Werte

27.09.2006 02:16:28

chris
AW: Doppelte Werte

27.09.2006 02:22:27

Daniel
Danke euch beiden

27.09.2006 02:42:33

Peter

AW: Doppelte Werte

27.09.2006 02:16:28

chris

Hallo Peter, versuchs mal so.


Sub Vergleich()
Dim rng As Range
For Each rng In Sheets("Tabelle1").Range("A1:A20")
For Each cb In Selection
If rng.Value = cb.Value Then
rng.Value = ""
End If
Next
Next rng
End Sub

gruß Chris

AW: Doppelte Werte

27.09.2006 02:22:27

Daniel

Hallo
probiers mal so:


Sub Vergleich()
Dim rng As Range
For Each rng In Sheets("Tabelle1").Range("A1:A20")
If worksheetfunction.countif(selection, rng.Value)>0 then
rng.Value = ""
End If
Next rng
End Sub

Ich verwende die Excel-Funktion ZählenWenn, um festzustellen ob der Wert im selektierten Zellbereich vorhanden ist.
Gruß, Daniel
(achtung: nicht getestet, ggf Rechtschreibfehler vorhanden)

Danke euch beiden

27.09.2006 02:42:33

Peter

es funktionieren beide Makros...Danke
mfg peter