Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige