Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

doppelte Inhalte suchen, falls....

doppelte Inhalte suchen, falls....
27.10.2003 11:58:44
Markus Schwarz
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte Inhalte suchen, falls....
27.10.2003 21:27:13
Beni
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

Anzeige
AW: doppelte Inhalte suchen, falls....
27.10.2003 21:27:26
Beni
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

Anzeige
AW: doppelte Inhalte suchen, falls....
31.10.2003 11:22:36
Markus
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige