Doppelt in einer Spalte

Walter · 2006-03-26T10:59:02+00:00

Guten Morgen, wie kriege ich das hin, das man in der Spalte rot etc. makiert wenn ein Name, oder auch eine Nr. doppelt ist. Die Datei ist sehr groß (für meine Verhältnisse) kann man das per Makro durchführen ? gruß walter

Hallo
Wenn du die mehrfachen sowieso löschen willst, warum dann erst ausdrucken ?
So werden dir die mehrfachen ausgewählt.

Public Sub test()
Dim rng As Range
Dim bereich As Range
Dim dummy As String
Dim dummy_Bereich As Range
Set bereich = Range("C1:C1000") 'Bereich der durchsucht wird
For Each rng In bereich
    If Application.CountIf(bereich, rng) > 1 Then
        rng.Interior.ColorIndex = 6
        If dummy_Bereich Is Nothing Then
            Set dummy_Bereich = rng
            Else
            Set dummy_Bereich = Union(dummy_Bereich, rng)
        End If
        dummy = dummy & rng.Text & " --> Zeile " & rng.Row & Chr(13)
    End If
Next
MsgBox dummy
dummy_Bereich.Select
End Sub

Löschen kannst du jetzt manuell über das kontextmenu rechte Maus.
Wenn du das wirklich ausgedruckt haben möchtest:

Public Sub drucken()
    Dim rng As Range
    Dim bereich As Range
    Dim dummy As String
    Dim neues_Blatt As Worksheet
    Dim L As Long
    Dim merkalarm As Boolean
merkalarm = Application.DisplayAlerts
L = 1
Set neues_Blatt = Worksheets.Add(after:=Sheets(Sheets.Count))
Set bereich = Range("C1:C1000") 'Bereich der durchsucht wird
For Each rng In bereich
    If Application.CountIf(bereich, rng) > 1 Then
        rng.Interior.ColorIndex = 6
        neues_Blatt.Cells(L, 1) = rng.Text & " --> Zeile " & rng.Row
        L = L + 1
        dummy = dummy & rng.Text & " --> Zeile " & rng.Row & Chr(13)
    End If
Next
MsgBox dummy
Application.DisplayAlerts = False
With neues_Blatt
    .PrintOut
    .Delete
End With
Application.DisplayAlerts = merkalarm
End Sub

ransi

Hallo zusammen,
ich stehe vor meiner ersten grossen Herausforderung in Excel: Makros!
Ich bekam eine Tabelle mit zwei Registerblaettern. In beiden Registern sind Auftragsnummer mit Kosten aufgelistet. Im Grunde sollten die beiden Register identisch sein (d.h. die eine Auftragsnummer mit Kosten xy findet sich auch wieder in der 2. Registertabelle). Das ist aber nur in der Theorie so. Denn Mitarbeiter machen Fehler bei der Eingabe von Preisen etc.
Das ist die Vorgeschichte.
Ich soll jetzt ein Makro aufzeichnen, das
1. dieselben Auftragsnummer in Spalte A z. B. findet
2. dann noch vergleicht, ob die Kosten in Spalte E z. B. identisch sind
3. dann diese Zellen automatisch rausloeschen (dabei ist egal ob sich die Daten noch getrennt voneinander in den Reg. blaettern befinden oder ob man sie bereits in eine Tabelle gebracht hat und vorsortiert.)
4. Ergebnis = es bleiben nur die Auftragsnummern = Problemfaelle mit unterschiedlichen Preisen.
Das Ding soll bald fertig sein. Momentan bin ich in Australien (Zeitverschiebung +10 Stunden) und es ist Freitag. Vielleicht hat ja jemand Zeit am WE.
Viele Gruesse und DANKE
Verena

Forumthread: Doppelt in einer Spalte

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Doppelt in einer Spalte

Forumthread: Doppelt in einer Spalte

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread