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

Doppelten Wert finden

Forumthread: Doppelten Wert finden

Doppelten Wert finden
30.08.2006 18: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 18:42:40
Hugo
Hallo Hartmut,
schau Dir doch nochmal die Parameterreihenfolge von Countif an.
hugo
AW: Doppelten Wert finden
30.08.2006 18: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 18: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

Forumthreads zu verwandten Themen

Funktion aus mehrere Schaltflächen ausdehnen
Glen
Hallo liebe Leute
Ich habe hier im Forum für mein Anliegen eine Super Lösung (von Chris) erhalten die einwandfrei funktioniert.
So läuft das Makro:
wenn die Schaltfläche3 gedrückt wird, erscheint nach 5 Sek. die MsgBox "Meldung_Anlieferung". Brauche ich auch so!
meine Frage ist nun:...
21.01.2004 11:46:05
Thread-ID: 367778
2 Beiträge
Objektvariable nicht definiert
Klaus B aus D
Hallo,

eine nachgebaute Youtube-Datei von Kai Weissmann "Tabelle durchsuchen und Wert ausgeben | Excel VBA" funktioniert mit diesem Code problemlos:
Option Explicit

Sub TabelleDurchsuchen()

' Variabe dimensionieren
Dim rng As Range

' Tabelle durchsuchen u....
14.11.2024 01:47:15
Thread-ID: 1996594
13 Beiträge
Anzeige
Module und Userforms kopieen
Marcel

Hallo alle zusammen,
hab da ein kleines Problem, mit folgendem kleinen Text. Ich versuche aus einer bestehenden dabei z.B. mit dem Namen ana.xls im Pfad C:\ alle Module und Userforms zu exportieren und sie in eine Datei mit dem NAmen ana2.xls zu importieren.
Dafür habe ich folgendes V...
18.09.2007 15:58:02
Thread-ID: 908385
1 Beitrag
VBA unload me und Formular.show anders
Michael

Ich zm zweiten Heute!
Das nächste Problem was ich nicht alleine gelöst bekomme ist, dass ich das unload me und dann Formular.show am Ende anders gelöst haben möcht.
Da Franz aus diesem Forum mir schrieb, Zitat: "Das ist nicht ideal, da diese Aktionen in einander geschachtelt werden. Be...
27.04.2016 20:36:18
Thread-ID: 1490707
2 Beiträge
Werte aus UserForm-Fenster einem Blatt ausgeben
Sophie

Hallo!
Ich hatte schon einmal diese Frage gestellt.
Ich würde gerne per Knopf eine UserForm aufrufen lassen, in der man Paar Zahlen eingeben muss. Diese Zahlen sollen in ein Blatt in bestimmte Zelle übernommen werden.
Dazu gibt es folgendes Code. Nur leider bringt VBA folgende Fehle...
18.05.2006 18:22:55
Thread-ID: 765530
6 Beiträge
Anzeige
Leere zellen VBA vs Excel
KVikLine

Hallo zusammen,
bin gerade dabei ein Add-in zu schreiben für eine Excel-Datei, die wir regelmäßig bekommen. Diese muss ein wenig aufpoliert werden, damit diese brauchbar ist.
Muss bei mehr als 420 Spalten (größer 89.000 Zeilen) mit „Text in Spalten“ also via TextToColumns umwandeln.
...
14.08.2018 13:49:57
Thread-ID: 1639311
5 Beiträge
Eingabemaske (UserForm) mit abhängigen ComboBoxen
Markus

Liebes Forum,
Anliegen:
Ich möchte die UserForm1 als Eingabemaske für das Tabelleblatt nutzen. Die ComboBoxen 1 und 2 sind voneinander abhängig. Sobald man ComboBox1 und 2 ausgewählt hat, füllen sich die ComboBoxen 3 und 4 und die TextBox1 automatisch. Die Werte befinden sich alle in...
25.11.2017 20:25:16
Thread-ID: 1593584
6 Beiträge
Fehler in Macro
Benny
Hallo Forum,
einen schönen guten Abend wünsche ich in die Runde.
Ich habe ein Problem mit unten stehenden Code.
Wenn ich mit der rechten Maustaste in eine der Zellen G9:G39 in Tabelle1 klicke und in der Tabelle2 Zelle B8 befindet sich kein Wert, bricht das Macro mit der VBA-Fehlermeldung...
01.03.2004 20:20:50
Thread-ID: 391032
4 Beiträge
Daten aus MS-Query mit Variablen Werten
Dirk

Hallo zusammen,
als Anfänger stehe ich vor folgendem Problem: Ich möchte per VBA aus Excel mit einem variablen Wert, der in einer Textbox eingetragen wird, externe Daten über MS-Query einlesen und in der Excel-Tabelle wieder ausgeben. Der variable Wert ist h1. Wird anstatt der Variablen ein...
13.08.2002 09:12:59
Thread-ID: 147806
2 Beiträge
Aktive Zelle in Userform ausgeben
Silvan

Hallo Peter, Hallo andere VBA-Cracks,
bin immer noch an meinem Problem mit der Ausgabe der aktiven Zelle in einer Userform. Dank Peter funktioniert es wie gewollt in einer Messagebox.
Kann mir jemand erklären wie ich den funktionierenden Code einzusetzen habe, dass dieser in der Userfor...
06.12.2017 21:19:35
Thread-ID: 1595783
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum