MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 28.04.2009, 11:38   #1
SeNf
MOF User
MOF User
Standard Excel 2007 - Dropdown - doppelte einträge

in einer liste habe ich doppelte einträge was auch so sein muß, ich möchte diese liste über rowsource einlesen dort aber die doppelten löschen...
wie mach ich das am besten?
Gruß
SeNf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.04.2009, 12:03   #2
NoNet
MOF Koryphäe
MOF Koryphäe
Strahlen Nicht per Rowsource, sondern per Collection-Schleife

Hey,

wenn Du die Listbox mit "RowSource" an einen Tabellenbereich bindest, kannst Du die redundanten Datensätze nicht eliminieren !

Alternative : Lies die Daten aus der Tabelle per FOR...NEXT-Schleife in die Listbox ein. Zum Ausfiltern der redundanten Datensätze verwendest Du am besten eine vorgeschaltete Collection, die über Angabe eines Keys (2.Argument der (Coll.Add-Anweisung) dafür sorgt, dass kein Wert doppelt in die Collection eingetragen werden kann. Anschliessend überträgst Du die (nun eindeutigen !) Werte der Collection in die Listbox.

Hier der konkrete Code, der beim Anzeigen des UserForms ausgeführt wird :
Code:

Private Sub UserForm_Activate()
    Dim coll As New Collection
    Dim lngZ As Long
    
    ListBox1.Clear
    On Error Resume Next 'Fehlerbehandlung einschalten
    For lngz = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'Zeile 2 bis Ende der Spalte A
        'Collection mit Key hinzufügen - falls Key bereits vorhanden : Fehler (wird nicht angezeigt)
        coll.Add Cells(lngz, 1), Cells(lngz, 1)
    Next
    
    For lngz = 0 To coll.Count
        ListBox1.AddItem coll(lngz) 'Daten aus Collection in die Listbox schreiben
    Next
    
    On Error GoTo 0 'Fehlerbehandlung wieder ausschalten
End Sub

__________________

Gruß, NoNet
<hr><table border=0 style="margin-top : -15pt;"><tr><td></td>
<td><font style="font-size: 0.9em">PS: Ein kurzes Feedback auf Antworten von Helfenden halte ich immer für angebracht - der Helfende freut sich darüber !
Übrigens : Hilfreiche und positive Beiträge kann man auch bewerten </font>
</td></tr></table>
<hr><B>TIPP : Für alle Excel-Interessierte...</B>
<a *****"http://www.exceltreffen.de/index.php?page=278" target=_blank><img src="http://excelei.de/wpimages/exceltreffen_logo.jpg">
http://www.exceltreffen.de/index.php?page=278</a>
NoNet ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 29.04.2009, 10:34   #3
SeNf
Threadstarter Threadstarter
MOF User
MOF User
Standard

das geht leider so nicht es passiert gar nichts... :-(
gruß
SeNf ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.05.2009, 06:38   #4
michael_buller
MOF User
MOF User
Standard

Danke war genau das was ich gesucht habe ^^
michael_buller ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:43 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.