Thema Datum  Von Nutzer Rating
Antwort
21.06.2017 17:41:51 Tom
Solved
Blau Bedingte Formatierung Doppelte Werte MsgBox Ausgabe
 21.06.2017 19:56:16 BigBen
NotSolved
21.06.2017 20:22:11 Tom
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
21.06.2017 19:56:16		 Views:
569		 Rating:
     
Antwort:
  Ja
Thema:
Bedingte Formatierung Doppelte Werte MsgBox Ausgabe

Hallo,

vielleicht hilft dieser Code weiter:

Sub FindNextDuplicateValueInActiveColumn()
    Dim wsh As Worksheet
    Dim rngSearch As Range
    Dim rngActive As Range
    Dim iCnt As Integer
    Dim rng As Range
    Set wsh = ActiveSheet
    
    Set rngActive = Selection
    Set rngSearch = Intersect(rngActive.EntireColumn, wsh.UsedRange)
    Set rngSearch = wsh.Range(rngActive.Cells(1, 1).Address & ":" & Right(rngSearch.Address, Len(rngSearch.Address) - InStr(rngSearch.Address, ":")))
    For Each rng In rngSearch.Cells
        iCnt = WorksheetFunction.CountIf(rngSearch, rng.Value)
        If iCnt > 1 Then
            rng.Select
            Application.StatusBar = """" & rng.Value & """ ist " & iCnt & " mal in der Spalte vorhanden!"
            Exit For
        End If
    Next
End Sub

Vor der Ausführung muss die Markierung in der zu überprüfende Spalte gesetzt werden. Es werden ausschließlich Werte unterhalb der Markierung geprüft.

LG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.06.2017 17:41:51 Tom
Solved
Blau Bedingte Formatierung Doppelte Werte MsgBox Ausgabe
 21.06.2017 19:56:16 BigBen
NotSolved
21.06.2017 20:22:11 Tom
NotSolved