Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zeilen vergleichen | Herbers Excel-Forum


Betrifft: Zeilen vergleichen von: Ferdinand
Geschrieben am: 29.11.2009 18:19:10

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

  

Betrifft: Gleiche Einträge pro Begriff ? von: NoNet
Geschrieben am: 30.11.2009 12:50:21

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


Beiträge aus den Excel-Beispielen zum Thema "Zeilen vergleichen"