Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1788to1792
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro soll doppelte Werte suchen

Makro soll doppelte Werte suchen
01.11.2020 16:34:42
Christian
Hallo, ich gebe zu ich habe nicht viel Ahnung von VBA aber ich versuche mich mal
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target  "" Then
If WorksheetFunction.CountIf(Columns(1), Target) > 1 Then
MsgBox "Doppelt"
End If
End If
End Sub
Mein Ziel ist recht einfach, wenn ich einen Text in Spalte E einfüge, soll geprüft werden ob der Text bereits in dieser Spalte steht und wenn ja die Meldung ausgegeben werden.
Allerdings wenn ich den Text von E2 nach E3 kopiere, passiert nichts, wo ist mein Fehler?
Vielen Dank
Christian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro soll doppelte Werte suchen
01.11.2020 16:42:02
Hajo_Zi
Hallo Christian
Du trägst in Spalte E ein prüftst aber in Spalte A.

Columns(5) denke ich...
01.11.2020 16:45:23
Helmut
AW: Makro soll doppelte Werte suchen
01.11.2020 20:46:36
GerdL
Moin, ja! 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Intersect(Target, Columns(5)) Is Nothing Then
For Each C In Intersect(Target, Columns(5))
If WorksheetFunction.CountIf(C.EntireColumn, C) > 1 Then
MsgBox WorksheetFunction.CountIf(C.EntireColumn, C) & " mal!"
End If
Exit For
Next
End If
End Sub

Gruß Gerd
AW: Makro soll doppelte Werte suchen
01.11.2020 20:52:35
Daniel
Hi
das geht im Prinzip auch ohne Makro.
erstelle für die Spalte E die Gültigkeitsprüfung mit der Einstellung "Benutzerdefiniert" mit der Formel: =ZählenWenn(E:E;E1)=1
E1 sollte dabei die aktive Zelle sein (bzw du musst die Formel hier für die Aktive Zelle schreiben)
den Meldungstext kannst du dann im Reiter Fehlermeldung eingeben.
Gruß Daniel
Anzeige

249 Forumthreads zu ähnlichen Themen

Bedingte Formatierung - Datenbalken bei neg Werten
Gianleandro

Ich suche nach einer Möglichkeit die Datenbalken bei der bedingten Formatierung auch für negative Werte zu nutzen. Dabei schwebt mir eine Art Spielgelung der Datenbalken bei negativen Werten vor.
Wer hat dazu eine Idee?
https://www.herber.de/bbs/user/55283.xlsx
09.09.2008 14:22:24
Thread-ID: 1008498
3 Beiträge
Anzeige
Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Wert finden und relativen Bereich markieren
Luca-Darius

Hallo, ich suche nach einer Lösung für das folgende Problem einer Toto-Auswertung/13er-Wette.
Ich will zum Beispiel in den Zeilen 1, 15 und 29 (im Bereich A1:AJ1,A15:AJ15,A29:AJ29) nach Zellen suchen, die den Buchstaben X enthalten. Alle Zellen in dem genannten Bereich enthalten entweder de...
23.03.2009 18:44:39
Thread-ID: 1063012
5 Beiträge
Anzeige
Formel für doppelte Werte in einer Liste...
Jessi

Hallo zusammen,
habe ein Problem, aber sicherlich ein nicht unzulösendes für Euch:
Ich habe eine Liste mit mehren Einträgen in einer Spalte z.B.
A
B
C
A
A
B
D
Z
Ich möchte nun die Spalte durchsuchen nach allen vorhanden UNTERSCHIEDLICHEN Einträgen, so...
17.06.2009 17:28:50
Thread-ID: 1082326
2 Beiträge
Bedingte Formatierung mit mehreren Werten
Thorsten

Liebe Excel-Gurus,
ich benötige Hilfe bei folgendem Problem.
In der angehängten Tabelle möchte ich gerne, dass die Zeile bzw. das LAS und FAL
sich farblich verändern sobald in irgendeinem der oberen Fraktionen der Wert
Farbe (grün), Farbe (weiß) oder Farbe (braun) ausgewählt wir...
13.07.2009 17:09:04
Thread-ID: 1088289
2 Beiträge
Doppelte Werte + unterschiedliche Schreibweisen
Marcel

Hallo,
gibt es eine Möglichkeit, neben den bekannten Funktionen wie
- Bedingte Formatierung (ZÄHLENWENN($A$1;$A$18;A1)Größer1)
- WENN(VERGLEICH(A4;A:A;0)=ZEILE();"";"Doppelt")
sich doppelte Einträge eder Zellen einer Spalte Anzeigen zu lassen (10.000 Datensätze), wenn unterschie...
22.07.2009 13:47:42
Thread-ID: 1090530
7 Beiträge
Doppelte Werte, abhängig von aktiver Zelle, finden
aktiver

Hallo,
auch nach stundenlanger Suche konnte ich folgendes Problem bisher nicht lösen:
In meinem Tabellenblatt kommen verschiedene Zelleinträge mehrfach vor.
Nun soll, wenn sich der Cursor in einer Zelle befindet, deren Inhalt in der Tabelle nochmals (oder mehrmals) vorkommt, diese Z...
09.08.2009 13:52:48
Thread-ID: 1094515
12 Beiträge
identische Einträge farblich markieren
BartekBartek

Hallo zusammen,
ich moechte um fachkundige Hilfe bezüglich folgender Aufgabenstellung bitten:
Ich habe 5 Spalten. IJede Spalte ist für je ein Produkt vorgesehen und in jeder Spalte sind Teilenummern des Produktes aufgelistet.
Nun möchte ich via macro folgendes erreichen:
Wenn In...
08.09.2009 05:33:33
Thread-ID: 1101143
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
10
4
4
3
1
1
6
11
3
2
7
8
15
7
8
5
3
2
4
7
2
5
3
2