Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
cbo füllen - keine duplikate / leere Einträge - sortieren
zurück: Inhalte in verschiedene Blätter übernehmen weiter: Fehler beim Auslesen des AD Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Killersocke
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 13:21
Rufname:

cbo füllen - keine duplikate / leere Einträge - sortieren - cbo füllen - keine duplikate / leere Einträge - sortieren

Nach oben
       Version: Office 2003

Hallo alle zusammen, ich fühle über folgenden Code eine cbo für meine form. Quelle ist ein Excelsheet (wenns eine elegantere Lösung als meine gibt dann immer her damit ;) ^^)

Code:

For eintrag = 2 To Worksheets("Problemgerät").Range("A65536").End(xlUp).Row
    If WorksheetFunction.CountIf(Worksheets("Problemgerät"). _
    Range("A2:A" & eintrag), Worksheets("Problemgerät"). _
    Cells(eintrag, 1)) = 1 Then _
        cboAlarmgeraet.AddItem Worksheets("Problemgerät").Cells(eintrag, 1)
    Next eintrag


so das klappt ohne Probleme nur das blöde ist das ich auch leere felder habe was er mir dann auch in die cbo aufnimmt (es werden keine duplikate in die cbo aufgenommen) außerdem hätte ich gerne noch das das was in meiner cbo steht nach dem hinzufügen noch sortiert wird Smile

kann mir da jemand weiterhelfen? oder en denkanstoß geben? wäre echt super Smile

gruß Killersocke
bin erstma in Mittag also Mahlzeit
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 13:29
Rufname:


AW: cbo füllen - keine duplikate / leere Einträge - sortiere - AW: cbo füllen - keine duplikate / leere Einträge - sortiere

Nach oben
       Version: Office 2003

Hi,

einmal blöd gefragt: Warum trennst Du eigentlich immer zwischen dem Object?

Code:
    If WorksheetFunction.CountIf(Worksheets("Problemgerät"). _
    Range("A2:A" & eintrag), Worksheets("Problemgerät").


geht doch so

Code:
    If WorksheetFunction.CountIf(Worksheets("Problemgerät").Range("A2:A" & eintrag) _
, Worksheets("Problemgerät").


viel übersichtlicher

_________________
Rückmeldung wäre nett.

Gruß Stefan
Killersocke
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 14:00
Rufname:

AW: cbo füllen - keine duplikate / leere Einträge - sortiere - AW: cbo füllen - keine duplikate / leere Einträge - sortiere

Nach oben
       Version: Office 2003

kp warum ich das da trenne, wahrscheinlich weils so noch auf meinen wildschirm passt^^ aber das war ja auch net meine frage Razz
stefan onken
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 14:11
Rufname:
Wohnort: hamburg

AW: cbo füllen - keine duplikate / leere Einträge - sortiere - AW: cbo füllen - keine duplikate / leere Einträge - sortiere

Nach oben
       Version: Office 2003

hallo,
eine Liste ohne Duplikate und sortiert geht mittels


Daten/Filter/Spezialfilter ->Keine Duplikate, dann sortieren

Collection
http://spreadsheetpage.com/index.php/tip/filling_a_listbox_with_unique_items/

oder mit dem Scripting.Dictionary-Objekt
http://www.office-loesung.de/ftopic142856_0_0_asc.php

Gruß
stefan
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 14:12
Rufname:

AW: cbo füllen - keine duplikate / leere Einträge - sortiere - AW: cbo füllen - keine duplikate / leere Einträge - sortiere

Nach oben
       Version: Office 2003

Code:
With Worksheets("Problemgerät")
   For eintrag = 2 To .Range("A65536").End(xlUp).Row
       If WorksheetFunction.CountIf(.Range("A2:A" & eintrag) _
       , .Cells(eintrag, 1)) = 1 And .Cells(eintrag, 1) <> "" Then _
           cboAlarmgeraet.AddItem .Cells(eintrag, 1)
   Next eintrag
End With


zum Sortieren: Sortier die Spalte vorher oder befülle ein Array und sortier das
http://www.online-excel.de/excel/singsel_vba.php?f=24

_________________
Rückmeldung wäre nett.

Gruß Stefan
xlDominik
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 14:31
Rufname: Dominik

Re: cbo füllen - keine duplikate / leere Einträge - sortiere - Re: cbo füllen - keine duplikate / leere Einträge - sortiere

Nach oben
       Version: Office 2003

Hallo Killersocke,

ist zwar nicht die Antwort auf Deine Frage, aber in Hinblick darauf, dass Excel ab Version 2007 mehr als 65535 Zeilen hat, würde ich die letzte Zeile in Spalte A wie folgt suchen:

Worksheets("Problemgerät").Cells(Rows.Count,1).End(xlUp).Row

Hinweise auf Spezialfilter, Collection und Dictionary hast Du ja schon weiter oben erhalten...

Gruß,
Dominik.
Killersocke
Im Profil kannst Du frei den Rang ändern


Verfasst am:
07. Jul 2010, 15:00
Rufname:


AW: cbo füllen - keine duplikate / leere Einträge - sortiere - AW: cbo füllen - keine duplikate / leere Einträge - sortiere

Nach oben
       Version: Office 2003

hey super funzt wunderbar! das mit dem sortieren ist mir jetzt bissi zu viel arbeit aber war ja auch net gefordert ;) wenns net so viel gewesen wäre hätte ichs noch gemacht aber trotzdem danke

gruß Killersocke

--CLOSE--
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Sortieren nach Datum? 2 mayerlanski 593 18. Okt 2005, 10:26
mayerlanski Sortieren nach Datum?
Keine neuen Beiträge Excel Formeln: Spalten sortieren aufgrund Feldfarbe???? 5 Hanjo 1510 06. Okt 2005, 12:09
Gast Spalten sortieren aufgrund Feldfarbe????
Keine neuen Beiträge Excel Formeln: Chronlogisch Sortieren 1 Blubberbernd 1092 04. Okt 2005, 16:16
KlauDiA Chronlogisch Sortieren
Keine neuen Beiträge Excel Formeln: Automatisches sortieren 1 Sorti 1396 07. Sep 2005, 19:44
fl618 Automatisches sortieren
Keine neuen Beiträge Excel Formeln: dreistellige zahlen in einer tabelle sortieren 4 konti_007 1089 19. Jul 2005, 09:47
Gast dreistellige zahlen in einer tabelle sortieren
Keine neuen Beiträge Excel Formeln: Tabelle nach einem Teil einer Zelle sortieren 14 Holzhuhn 1386 15. Jul 2005, 15:39
Holzhuhn Tabelle nach einem Teil einer Zelle sortieren
Keine neuen Beiträge Excel Formeln: Aus Liste A nur jene Einträge anzeigen, die nicht in Liste B 8 landau666 687 30. März 2005, 15:16
fridgenep Aus Liste A nur jene Einträge anzeigen, die nicht in Liste B
Keine neuen Beiträge Excel Formeln: Tabelle nach Rang sortieren 4 Gast 1786 26. Feb 2005, 17:27
Gast Tabelle nach Rang sortieren
Keine neuen Beiträge Excel Formeln: Bei Kassabuch getätigte Einträge sperren - geht das? 3 Juergen Sadi 695 20. Feb 2005, 18:51
ae Bei Kassabuch getätigte Einträge sperren - geht das?
Keine neuen Beiträge Excel Formeln: Sortieren in Excel 4 roli 1695 06. Feb 2005, 18:40
roli Sortieren in Excel
Keine neuen Beiträge Excel Formeln: Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K 1 diaphone 3407 28. Jan 2005, 09:53
SapceBird Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K
Keine neuen Beiträge Excel Formeln: Spalten Sortieren 23 Fireball8 3108 07. Jan 2005, 18:40
fridgenep Spalten Sortieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps