Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen zusammenfassen

Zeilen zusammenfassen
13.11.2002 13:38:02
Peter/Berlin
Hallo Excel-Fans, ich habe folgendes Excel-Problem:
Es sollen Wiederholungen ausgesiebt werden.
In Spalte A stehen untereinander die aufgeführten Werte,
in Spalte B soll dieselbe Liste ohne Wiederholungen stehen.
A B
1 1
1 2
2 3
2 4
2 6
3
3
4
6

Wie kommt man von Spalte A (9 Werte) durch Aussieben der Wiederholungswerte zur Liste in Spalte B (5 Werte)?
Wer kann mir weiterhelfen?
Gruss
Peter aus Berlin




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

Betreff
Datum
Anwender
Anzeige
Re: Zeilen zusammenfassen
13.11.2002 13:49:11
Rainer Wilfling
Lieber Peter!

Dazu verwendest du den Spezialfilter. Menü Daten - Filter - Spezialfilter. Dort das Häkchen vor "Keine Duplikate" setzten. Wenn die alte Spalte vorhanden bleiben soll, "An eine andere Stelle kopieren" auswählen.

Liebe Grüße aus Graz
Rainer

Re: Zeilen zusammenfassen
13.11.2002 13:54:19
Carlos Sanchez
Probier mal das hier:

Sub check_and_copy()
Dim x As Integer, y As Integer
y = 1
x = 1
Sheets(1).Cells(y, 2).Value = Sheets(1).Cells(x, 1).Value
For x = 2 To 12
If Sheets(1).Cells(x, 1).Value <> Sheets(1).Cells(y, 2).Value Then
y = y + 1
Sheets(1).Cells(y, 2).Value = Sheets(1).Cells(x, 1).Value
End If
Next x
End Sub


Natürlich noch entsprechend anpassen
Gruß
Carl

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige