Thema Datum  Von Nutzer Rating
Antwort
08.11.2012 11:22:06 Steffi
NotSolved
13.11.2012 14:02:20 Steffi
NotSolved
Rot Doppelte Werte auslesen
 21.11.2012 11:50:41 Lutz
Solved
21.11.2012 14:19:02 Steffi
NotSolved

Ansicht des Beitrags:
Von:
Lutz		 Datum:
21.11.2012 11:50:41		 Views:
960		 Rating:
     
Antwort:
 Nein
Thema:
Doppelte Werte auslesen

Hallo Steffi,

mit folgendem Code sollte das gehen

Public Sub FindDoubles()
    Dim B_Col As Range
    Dim D_Col As Range
    Dim Found As Range
    Dim cell As Range
    Dim sh As Worksheet
    Set sh = ActiveSheet
    sh.Columns("D").ClearContents
    Set B_Col = Range("B1:B" & sh.UsedRange.Rows.Count)
    Set D_Col = Range("D1")
    For Each cell In B_Col
        If cell.Value <> "" Then
            Set Found = B_Col.find(What:=cell.Value, After:=Evaluate(cell.Address), LookAt:=xlWhole)
            While Not Found Is Nothing And Found.Address <> cell.Address
                If CheckEntry(cell.Value, D_Col.row) Then
                    D_Col.Value = cell.Value
                    Set D_Col = D_Col.Offset(1, 0)
                    Found.Characters(1, Len(Found.Value)).Font.Color = RGB(255, 0, 0)
                End If
                Set Found = B_Col.FindNext(Evaluate(Found.Address))
            Wend
        End If
    Next
End Sub
Public Function CheckEntry(entry, row As Integer) As Boolean
    Dim rg As Range
    Dim fd As Range
    CheckEntry = False
    Set rg = ActiveSheet.Range("D1:D" & row)
    Set fd = rg.find(entry, , , xlWhole)
    If fd Is Nothing Then CheckEntry = True
End Function

Grüße Lutz

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
08.11.2012 11:22:06 Steffi
NotSolved
13.11.2012 14:02:20 Steffi
NotSolved
Rot Doppelte Werte auslesen
 21.11.2012 11:50:41 Lutz
Solved
21.11.2012 14:19:02 Steffi
NotSolved