Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Mehrfachargumente finden per Makro

Mehrfachargumente finden per Makro
24.02.2005 11:35:10
Rainer
Hallo!
Ich kämpf mit einem Problem, dass mir sehr viel Arbeit verursacht.
Ich bekomm eine Auswertung in Form einer Excel-Tabelle. Diese enthält zirka 10.000 Einträge in Form von Namen und zugehöriger Telefonnummer in Spalten. Dabei gibts aber sehr viele Mehrfachnennungen (Ist aufgrund der Abfrage nicht anders möglich) Diese Mehrfachargumente sollen nun aussortiert werden. Kann man das per makro machen? Mir fehlen die Ideen. ich will über dieses Makro Datensätze, die doppelt oder öfter vorkommen, wobei die Rufnummer das Suchkriterium sein soll finden und im Idealfall bis auf einen Eintrag auch löschen lassen.
Bitte um Eure Hilfe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrfachargumente finden per Makro
Oliver
Hi,
das geht sogar ohne VBA:
1. Spezialfilter auf Spalte mit Telnr. anwenden, dabei keine Duplikate Häkchen setzen
2. Mit SVerweis die restlichen gewünschten Informationen daneben schreiben
Vielleicht gehts sogar noch einfacher, aber so würd ich es machen (wenn ohne VBA)
Grüße
Oli
AW: Mehrfachargumente finden per Makro
Heino

Sub DoppelteWeg()
' Doppelte Werte löschen
'Die 6 steht für Spalte E wo meine doppelten Werte stehen.
Dim i, iRows As Long
iRows = Cells(Cells.Rows.Count, 6).End(xlUp).Row
For i = iRows To 1 Step -1
If WorksheetFunction.CountIf(Columns(6), Cells(i, 6)) > 1 Then
Rows(i).Delete
End If
Next i
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige