Werte aus einer liste nur einmal anzeigen

Hallo,
also irgendwie will Excel nicht mehr so wie ich es will.
In Spalte R stehen Werte, die sich teilweise wiederholen.
Jetzt will ich in Spalte S eine Liste erstellen lassen, die die Werte auf der Basis der Spalte R NUR einmal angibt.
Die angegebenen Matrix-Formeln erzeugen genau diese Anfrage. Leider klappt das in meiner Datei nicht mehr, weil höchstwahrscheinlich zu viele Verknüpfungen existieren:
{=WENN(SUMME(WENN($R$3:$R$278="";0;1/ZÄHLENWENN($R$3:$R$278;$R$3:$R$278))) &lt ZEILE(A1);"";INDIREKT("R"&KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(R$3;;;ZEILE($1:$276));$R$3:$R$278)=1;ZEILE($R$3:$R$278));ZEILE(A1))))}
oder
{=WENN(ZEILE()-1 &gt SUMME(1/ZÄHLENWENN($R$3:$R$278;$R$3:$R$278));"";INDEX($R$3:$R$278;KKLEINSTE(WENN(HÄUFIGKEIT(VERGLEICH($R$3:$R$278;$R$3:$R$278;0);VERGLEICH($R$3:$R$278;$R$3:$R$278;0)) &gt 0;ZEILE($R$3:$R$278)-1);ZEILE()-1)))}
funktionieren beide nicht.
Mit spezialfilter klappt das leider auch nicht.
gibt es nicht ne möglichkeit über nen Makro so eine Liste zu erzeugen?
Kann mir irgendwer helfen?
das wäre traumhaft.
lg
petra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
die Formel ist sicherlich sehr interessant, aber das ist ein Fall für VBA (vorallem, weil es einen Befehl dafür gibt. Man muß sich nur was einfallen lassen, wie man die automatische aktualisierung ähnlich wie bei Formeln hinbekommt.
ich habe mal versucht, dein Problem mit einem kleinen Event-eesteuerten makro zu lösen:
https://www.herber.de/bbs/user/31077.xls
jetzt wird jedesmal, wenn du in der Liste die entsprechene Spalte änderst, die Liste ohne Duplikate neu aktualisiert.
In der neuen Liste stehen die Echtwerte, ohne Formeln.
Damit das ganze funktioniert, muß folgendes erfüllt sein:
1. in der Zelle 1 der Urspungsspalte muß der Wert "xxx1" stehen
2. in der Zelle 1 der Zielspalte muß der Wert "xxx2" stehen
3. der Wert "xxx2" darf in der ersten Reihe nur genau 1x vorkommen
4. in der Urspungspspalte dürfen keine Leerzellen vorhanden sein, da nur der Bereich bis zur ersten Leerzelle durchsucht wird.
Ein paar Nachteile gegenüber der Formellösung hat diese Lösung natürlich auch:
- das ganze geht nur, wenn die Daten ab Reihe 2 lückenlos nach unten geschrieben sind. (ansonsten wird der Code aufwendiger)
- der Aktualisierung wird nur gestartet, wenn direkt in der Ursprungsspalte was geändert wird, bestehen die Daten aus Formeln und ändern sich aufgrund von Berechnungen, wird keine Aktualisierung ausgelöst
Hier jetzt der Code, er muß in das Klassenmodul des jeweiligen Sheets geschrieben werden
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ziel As Range
If Cells(1, Target.Column).Value <> "xxx1" Then Exit Sub
If Application.WorksheetFunction.CountIf(Rows(1), "xxx2") <> 1 Then
MsgBox ("Kein EINdeutiger Zielbereich vorhanden ('xxx2' in Reihe 1)")
Exit Sub
End If
Set Ziel = Rows(1).Find(what:="xxx2").Offset(1, 0)
Range(Cells(2, Target.Column), Cells(2, Target.Column).End(xlDown)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Ziel, Unique:=True
End Sub

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Werte aus einer liste nur einmal anzeigen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

57 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus einer liste nur einmal anzeigen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

57 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread