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

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

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)
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige