Doppelt in einer Spalte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Test() Dim rng As Range Dim bereich As Range, Wiederholung() As Boolean Set bereich = Range("C1:C1000") 'Bereich der durchsucht wird ReDim Wiederholung(bereich.Row To bereich.Row + bereich.Rows.Count - 1) For Each rng In bereich If Application.CountIf(bereich, rng) > 1 Then rng.Interior.ColorIndex = 6 If Wiederholung(rng.Row) = True Then GoTo NextZelle Boxtext = "Begriff: " & rng.Value & vbLf & "gefunden in Zeilen: " & rng.Row For I = rng.Row + 1 To bereich.Row + bereich.Rows.Count - 1 If rng.Value = bereich(I, 1) Then Boxtext = Boxtext & ", " & I Wiederholung(I) = True End If Next I MsgBox Boxtext End If NextZelle: Next rng End Sub

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

Sub vergleich() Dim i As Integer, j As Integer Dim k As Integer, l As Integer Dim wks1 As Worksheet, wks2 As Worksheet Set wks1 = Worksheets(1) 'Tabelle 1 Set wks2 = Worksheets(2) 'Tabelle 2 i = Worksheets(1).Range("A65536").End(xlUp).Row 'Benutzter Bereich Spalte a Tabelle 1 j = Worksheets(2).Range("A65536").End(xlUp).Row 'Benutzter Bereich Spalte a Tabelle 2 For k = 1 To i For l = 1 To j If wks1.Range("A" & k).Value = wks2.Range("A" & l).Value Then If wks1.Range("E" & k).Value = wks2.Range("E" & l).Value Then wks2.Range("A" & l).EntireRow.Delete End If End If Next l Next k End Sub

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelt in einer Spalte

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

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread