Hat jemand zufällig schon mal ein Makro um....



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Hat jemand zufällig schon mal ein Makro um....
von: Niko
Geschrieben am: 26.06.2002 - 10:21:54

...um aus einer Spalte alle Wörter auszulesen und sie in eine andere Tabelle oder Sheet wieder auszugeben, dabei aber alle doppelten rauslöscht?
Verlange von keinem mir das Makro zu schreiben würde mich jedoch freuen wenn vielleicht jemand so ein Makro schon hat (in etwa)
thanks in advance
Niko

nach oben   nach unten

Re: Hat jemand zufällig schon mal ein Makro um....
von: @lex
Geschrieben am: 26.06.2002 - 10:43:20

Hallo Niko !
Ganz auf die Schnelle, ohne groß zu testen und zu prüfen
Die Spalte ins neue Sheet kopieren.
Danach Sortieren und folgendes Makro :


Sub Test()
dim iRow, iCount as Integer
iRow = Cells(Rows.Count,1).End(xlup).Row
For iCount = 1 to iRow 
If Cells(iCount,1).Value = Cells(iCount+1).Value Then
Rows(iCount+1).Delete
End If
Next iCount

VG,
Alex

nach oben   nach unten

Re: Hat jemand zufällig schon mal ein Makro um....
von: Niko
Geschrieben am: 26.06.2002 - 10:54:55

hmm.. hab die Spalte sortiert und Marko ausgeführt aber da tut sich nichts.....:-(
nach oben   nach unten

Re: Hat jemand zufällig schon mal ein Makro um....
von: @lex
Geschrieben am: 26.06.2002 - 11:25:29

Ja :
If Cells(iCount,1).Value = Cells(iCount+1,1).Value Then

Versuchs mal hiermit.

Alex

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Dezimaltrennzeichen umschalten"