Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1352to1356
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
Inhaltsverzeichnis

Konzentrat

Konzentrat
03.04.2014 08:13:13
Lorenz
Hallo liebe Excelfreund,
habe mal wieder ein Problem und bin deshalb wie immer gerne in diesem kompetenten Forum.
Wie kann ich folgendes bewerkstelligen
(z.B. Quelle = Spalte A - Ergebnis = Spalte B):
Quelle Ergebnis
A A
A B
B C
C D
A E
D F
D G
E
A
C
B
A
F
G
Möchte in der Ergebnis-Spalte nur jeweils einmal vorkommende Werte der Quell-Spalte!
Für Eure Hilfe vielen Dank im Voraus.
Viele Grüße, Lorenz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Konzentrat
03.04.2014 08:39:22
Matthias
Hallo
Kopiere einfach die Werte von Spalte A nach Spalte B
Dann markierst Du Spalte B
und wählst

  • Daten

  • Duplikate entfernen


Das wars dann schon ;-)
Gruß Matthias

AW: Konzentrat
03.04.2014 11:25:36
Lorenz
Hallo Matthias, vielen Dank für Deine rasche Antwort.
Habe mich leider etwas unpräzise ausgdrückt.
Hätte das Ergebnis gerne in "Echtzeit" automatisch!

AW: Konzentrat
03.04.2014 11:44:13
Rudi
Hallo,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oDic As Object, arrQ, i As Long
If Target.Column = 1 And Target.Count = 1 Then
On Error GoTo ERRHDL
Application.EnableEvents = False
Set oDic = CreateObject("Scripting.dictionary")
arrQ = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For i = 1 To UBound(arrQ)
oDic(arrQ(i, 1)) = 0
Next
With Columns(2)
.ClearContents
.Cells(1, 1).Resize(oDic.Count) = _
WorksheetFunction.Transpose(oDic.keys)
End With
End If
ERRHDL:
Application.EnableEvents = True
End Sub

Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige