doppelte Inhalte suchen, falls....

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: doppelte Inhalte suchen, falls....
von: Markus Schwarz
Geschrieben am: 27.10.2003 11:58:44

Hallo Forum!

Folgendes Problem versuche ich gerade zu lösen:
Ich habe eine Tabelle mit zwei Spalten.
1. Spalte enthält Artikelnummern
2. Spalte enthält eine Produktionsressource.

Nun möchte ich alle Artikelnummern raussuchen lassen,
die nicht eindeutig einer Ressource zugeteilt sind.

123 R1
123 R1
155 R2
155 R2
155 R3

Im o.g. Beispiel soll Excel Artikel 155 mit R2+3 raussuchen

Danke für Eure Hilfe

Markus Schwarz

Bild


Betrifft: AW: doppelte Inhalte suchen, falls....
von: Beni
Geschrieben am: 27.10.2003 21:27:13

Hallo Markus,
dieses Makro markiert und sortiert ab zeile 2 nach Spalte A+B und sucht bei gleichen Art.Nr nach ungleichen Ressourcen.
Gruss Beni


Sub doppelte_suchen()
r = Cells(65536, 1).End(xlUp).Row '<<<< sucht die letzte Zeile
c = Cells(1, 256).End(xlToLeft).Column '<<<< sucht die letzte Spalte
Range(Cells(2, 1), Cells(r, c)).Select
    Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Key2:=ActiveCell. _
        Offset(0, 1).Range("A1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom _
        :=1, MatchCase:=False, Orientation:=xlTopToBottom
[A2].Select
For i = 2 To r
If Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 2) <> Cells(i + 1, 2) Then
MsgBox Cells(i, 1).Address & " " & Cells(i + 1, 1).Address
End If
Next i
End Sub



Bild


Betrifft: AW: doppelte Inhalte suchen, falls....
von: Beni
Geschrieben am: 27.10.2003 21:27:26

Hallo Markus,
dieses Makro markiert und sortiert ab zeile 2 nach Spalte A+B und sucht bei gleichen Art.Nr nach ungleichen Ressourcen.
Gruss Beni


Sub doppelte_suchen()
r = Cells(65536, 1).End(xlUp).Row '<<<< sucht die letzte Zeile
c = Cells(1, 256).End(xlToLeft).Column '<<<< sucht die letzte Spalte
Range(Cells(2, 1), Cells(r, c)).Select
    Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Key2:=ActiveCell. _
        Offset(0, 1).Range("A1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom _
        :=1, MatchCase:=False, Orientation:=xlTopToBottom
[A2].Select
For i = 2 To r
If Cells(i, 1) = Cells(i + 1, 1) And Cells(i, 2) <> Cells(i + 1, 2) Then
MsgBox Cells(i, 1).Address & " " & Cells(i + 1, 1).Address
End If
Next i
End Sub



Bild


Betrifft: AW: doppelte Inhalte suchen, falls....
von: Markus
Geschrieben am: 31.10.2003 11:22:36

Danke für die zügige Hilfe.
Leider ist etwas dazwischen gekommen, und ich kann das Makro erst nächste Woche einbinden.

Vielen Dank,
Markus Schwarz


 Bild

Beiträge aus den Excel-Beispielen zum Thema " doppelte Inhalte suchen, falls...."