Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen vergleichen

Forumthread: Zeilen vergleichen

Zeilen vergleichen
Ferdinand
Hallo Zusammen
Bin auf eure Hilfe angewiesen
Ich habe eine Tabelle ( B18:K118 ). Es soll verglichen werden ob in den Zeilen der Spalten E,F,K
die gleichen Einträge vorhanden sind. Sind mehr als 4 gleiche Einträge vorhanden soll dies einer msgBox
angezeigt werden.
Besten Dank im Vorraus
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Gleiche Einträge pro Begriff ?
30.11.2009 12:50:21
NoNet
Hallo Ferdinand,
wie ist das zu verstehen ? - Soll die Msgbox nur dann angezeigt werden, wenn mind. 4 verschiedene Werte mehrfach vorhanden sind, oder auch wenn z.B: 1 Begriff 4-fach enthalten ist oder 2 Begriffe je zweimal ?
Hier schonmal ein Lösungsansatz - es werden ALLE mehrfach vorhandenen Zellen gezählt :
Sub DoppelteWerteFinden()
Dim rngBereich As Range, rngZelle As Range
Dim intAnz As Integer, strZellen As String
Set rngBereich = [E18:F118,K18:K118]
For Each rngZelle In rngBereich
If (Application.CountIf(rngBereich.Areas(1), rngZelle.Value) + _
Application.CountIf(rngBereich.Areas(2), rngZelle.Value)) > 1 Then
intAnz = intAnz + 1
strZellen = strZellen & rngZelle.Address & vbLf
End If
Next
If intAnz > 0 Then
MsgBox "Doppelte Werte in folgenden " & intAnz & " Zellen gefunden : " & _
vbLf & vbLf & strZellen, vbOKOnly, "Mehr als 4 redundante Werte in Bereich"
End If
End Sub
Gruß, NoNet
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige