Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelten Wert finden

Forumthread: Doppelten Wert finden

Doppelten Wert finden
30.08.2006 16:40:07
Hartmut_M
Hallo, bin heute etwas überarbeitet und finde den Fehler im VBA Code nicht.
Ich möchte in Spalte A herausfinden, ob ein Wert doppelt ist und dann eine Nachricht ausgeben. Der Code lautet:

Sub doppelt()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Range("A1:A10")
If Application.WorksheetFunction.CountIf(Zelle, Range("A1:A100")) > 1 Then MsgBox "Duplikat"
Next Zelle
End Sub

Ich erhalte immer die Meldung "Typen unverträglich" Wer kann mit weiterhelfen?
Danke für jede Hilfe.
Hartmut
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelten Wert finden
30.08.2006 16:42:40
Hugo
Hallo Hartmut,
schau Dir doch nochmal die Parameterreihenfolge von Countif an.
hugo
AW: Doppelten Wert finden
30.08.2006 16:44:51
UweD
Hallo Hartmut
du hast die Argumente vertauscht.
so gehts

Sub doppelt()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Range("A1:A10")
If Application.WorksheetFunction.CountIf(Range("A1:A100"), Zelle) > 1 Then MsgBox "Duplikat:   " & Zelle.Value
Next Zelle
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
Es funktioniert ;-)
30.08.2006 16:54:01
Hartmut_M
Hallo Hugo und Uwe,
vielen Dank für Eure Hilfe.
Habe heute den Wald vor lauter Bäumen nicht gesehen.
Läuft jetzt alles einwandfrei.
Gruß Hartmut
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige