Microsoft Excel

Herbers Excel/VBA-Archiv

doppelte einträge finden

Betrifft: doppelte einträge finden von: chris b
Geschrieben am: 26.08.2004 20:13:29

Hallo Vbler,
ich habe eine Datei in der untereinander in Spalte 1 Werte stehen
z.b
a
b
a
c
usw..

wie kann ich durch ein Makro herausfinden wie viele verschiedene Werte vorhanden sind ?
Also es soll nicht die doppelten zählen sondern mir in eine Extra Spalte nur einmal alle Werte eintragen.
Hier in dem kleinen Beispiel wäre es
a
b
c

und das zweite a nicht mehr also nur einmal jede Zahl die vorkommt.
Danke für eure Hilfe

  


Betrifft: AW: doppelte einträge finden von: Ulf
Geschrieben am: 26.08.2004 20:14:41

Spezialfilter ohne Duplikate

Ulf


  


Betrifft: AW: doppelte einträge finden von: Uduuh
Geschrieben am: 26.08.2004 20:24:12

Hallo,
siehe auch
http://www.excelformeln.de/formeln.html?welcher=42

Gruß aus'm Pott
Udo


  


Betrifft: AW: doppelte einträge finden von: chris b
Geschrieben am: 26.08.2004 20:40:50

Danke, aber benötige das ganze in VBA !


  


Betrifft: AW: doppelte einträge finden von: Ramses
Geschrieben am: 26.08.2004 20:58:10

Hallo

wo liegt das Problem, das in englisch, bzw. VBA zu übersetzen ?
Du musst doch der Einfachheit halber nur die Worksheet.Functions verwenden ?

Gruss Rainer


  


Betrifft: AW: doppelte einträge finden von: chris b
Geschrieben am: 27.08.2004 00:59:35

Schaffe ich leider nicht :(


  


Betrifft: AW: doppelte einträge finden von: nighty
Geschrieben am: 27.08.2004 16:03:37

hi chris :)

wie gewuenscht :)

tab1 spalte a wird abgetastet und tab2 spalte die darstellung

gruss nighty

Option Explicit
Sub liste_erstellen()
With Worksheets(2)
Dim zaehler1 As Long
Dim zaehler2 As Long
Dim zaehler3 As Boolean
Dim wert1 As Variant
.Range("A1:A65535").Clear
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
wert1 = Cells(zaehler1, 1).Value
For zaehler2 = 1 To Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
If wert1 = .Cells(zaehler2, 1).Value Then zaehler3 = True
Next zaehler2
If zaehler3 = False Then
Sheets(2).Cells(Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = wert1
End If
zaehler3 = False
Next zaehler1
End With
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "doppelte einträge finden"