Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox gefilterte Liste ohne doppelte Anzei

Combobox gefilterte Liste ohne doppelte Anzei
06.09.2006 19:56:35
Wolfgang
Hallo ,
ich habe hier zwei Makros mit dem 1.Makro wird die gefiltere Liste
in der ComboBox angezeigt.
Im 2. Makro werden die doppelten Einträge der Liste nicht in der ComboBox mit Angezeigt
Die ComboBox steht in einer Userform.
Meine Frage ist jetzt kann man die beiden Makros so verbinden das eben nur gefilterte und ohne doppelten Einträge in der ComboBox angezeigt werden?
Dim lngZeile As Integer
For lngZeile = 2 To wks3.Cells(65536, 5).End(xlUp).Row
If Not Rows(lngZeile).Hidden Then ComboBox7.AddItem wks3.Cells(lngZeile, 5)
Next
Dim iZeile As Long
For iZeile = 2 To wks3.Range("E65536").End(xlUp).Row
If WorksheetFunction.CountIf(wks3.Range("E2:E" & iZeile), wks3.Cells(iZeile, 5)) = 1 Then _
ComboBox7.AddItem wks3.Cells(iZeile, 5)
Next iZeile
Vielen Dank für die Hilfe
Gruß Wolfgang

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox gefilterte Liste ohne doppelte Anzei
06.09.2006 20:07:44
Leo
Hi,
Option Explicit

Sub machs()
'Zeilen immer as Long!
Dim lngZeile As Long
For lngZeile = 2 To wks3.Cells(Rows.Count, 5).End(xlUp).Row
If Not Rows(lngZeile).Hidden Then
If WorksheetFunction.CountIf(wks3.Range("E2:E" & iZeile), wks3.Cells(iZeile, 5)) = 1 Then _
ComboBox7.AddItem wks3.Cells(iZeile, 5)
End If
Next
End Sub

mfg Leo
AW: Combobox gefilterte Liste ohne doppelte Anzei
06.09.2006 20:21:49
Wolfgang
Hallo Leo,
Danke für Deine Unterstützung.
Aber leider zeigt die ComboBox jetzt gar nichts an.
Vieleicht noch einen anderen Tipp wie das Makro umgestellt werden kann?
Vielen Dank für die Hilfe
Gruß Wolfgang
Anzeige
AW: Combobox gefilterte Liste ohne doppelte Anzei
06.09.2006 21:48:42
Brunito
Hallo Wolfgang,
weiß nicht, ob dir das weiterhilft, aber ich hab so mit der ComboBox gelöst, damit nix doppelt angezeigt wird.

Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Set frm = UserForm2
Application.ScreenUpdating = False
With frm.ComboBox1
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
Dim colCombo As New Collection
On Error Resume Next
For i = 5 To iMax
Err.Clear
colCombo.Add Cells(i, 6).Text, "MB" & Cells(i, 6).Text
If Err = 0 Then .AddItem Cells(i, 6).Text
Next i
End With
End Sub

Hofentlich hilft es dir
Gruß
Brunito
Anzeige
AW: Combobox gefilterte Liste ohne doppelte Anzei
06.09.2006 21:49:50
Uduuh
Hallo,
dicker Fehler!
Option Explicit

Sub machs()
'Zeilen immer as Long!
Dim lngZeile As Long
For lngZeile = 2 To wks3.Cells(Rows.Count, 5).End(xlUp).Row
If Not Rows(lngZeile).Hidden and _
WorksheetFunction.CountIf(wks3.Range("E2:E" & lngZeile), wks3.Cells(lngZeile, 5)) = 1 Then
ComboBox7.AddItem wks3.Cells(lngZeile, 5)
End If
Next
End Sub

Gruß aus’m Pott
Udo

AW: And es Funktioniert; Danke Udo
06.09.2006 22:07:50
Wolfgang
Hallo Udo,
Kleiner Fehler aber.... so ein and
Vielen Dank für Deine Hilfe Udo
Auch Dir Brunito danke ich Dir für Deine Unterstützung
Gruß Wolfgang
Anzeige
AW: And es Funktioniert; Danke Udo
06.09.2006 23:55:27
Uduuh
Hallo,
es war nicht das And, es war iZeile anstatt lngZeile.
Gruß aus’m Pott
Udo

AW: oT. Stimmt Danke Udo
07.09.2006 05:39:37
Wolfgang
.

301 Forumthreads zu ähnlichen Themen

Variable Gültigkeitsliste ohne doppelte Werte
Susi

Hallo liebe Excel-Freunde,
ich möchte gerne aus einer Datentabelle den Inhalt einer Spalte für eine Auswertung über eine Variable Gültigkeitsliste ziehen.
Zur Verdeutlichung hier ein einfaches Spiel-Beispiel:
Spalte A Spalte B
Äpfel 10
Äpfel 20
Birnen...
28.11.2008 10:08:27
Thread-ID: 1028603
5 Beiträge
Anzeige
Gültigkeite - Liste ohne doppelte Werte
susi

Hallo,
ich habe eine kleines, eher optisch unschönes Problem. In einer Tabelle wird von den Nutzern auf dem ersten TB eine Liste mit Werte al la ABC1000; ABC1010 ... eingetragen. Nun können sich aber diese Werte auch wiederholen. Auf einem zweiten TB habe ich eine Spalte die sich über DATEN...
13.08.2009 07:57:25
Thread-ID: 1095462
2 Beiträge
(Spezial-) Formel für dyn. Liste ohne Duplikate
Reinhard

Hallo Wissende,
Auf http://excelformeln.de/formeln.html?welcher=194 steht zwar der Satz:
"Es gibt Array-Formeln ohne Hilfsspalte für überschaubare Bereiche."
Der nützt mir aber nix, bräuchte ich dies Arrayformeln, wobei die vielleicht nicht ausreichen weil mein Anliegen ist speziell...
14.10.2009 23:08:51
Thread-ID: 1109696
6 Beiträge
Anzeige
Zählen von Zellen ohne doppelte / mehrfache Werte | Herbers Excel-Forum
Julia
Hey Leute,
ich habe eine vorgefertigte Excel-Datei bekommen und muss in einem neuen Tabellenblatt die Anzahl der Daten zählen.
Die Daten befinden sich auf dem Tabellenblatt "VZ-KVs" im Bereich von "Z10S2:Z1009S2" (ist in einer Spalte).
Bei den Daten handelt es sich um Text mit Zahlen u...
08.02.2010 20:29:07
Thread-ID: 1136852
6 Beiträge
Liste ohne doppelte Texte
Frank

Hallo zusammen,
ich habe hier ein Beispiel, daß aus einer Liste mit Werten (Spalte A) die doppelten Einträge entfernt. Per Formel in Spalte M.
Funktioniert das auch, wenn in Spalte A statt Werten Texte enthalten sind?
Hier die Datei: https://www.herber.de/bbs/user/68821.xls
Vie...
30.03.2010 15:08:58
Thread-ID: 1149381
6 Beiträge
Liste ohne Duplikate in andere Tabelle
Lutz

Hallo Excel-Profis,
ich habe ein Makro ergoogelt und angepasst.
Sub Test() Dim meTab1 As Worksheet, meTab2 As Worksheet Dim FilterBereich As Range, loLetze As Long Set meTab1 = Sheets("Mitarbeiter") 'Tabellenname Quelle Set meTab2 = Sheets("VerfügbarMA") 'Tabellenname Ziel With Applica...
30.04.2010 10:50:56
Thread-ID: 1154663
5 Beiträge
Spalte mit doppelten Werten ohne diese Doppelten
Nora

Hi,
Ich habe eine Spalte mit vielen Strings. Manche sind doppelt oder dreifach oder ....
Ich brauche in der Spalte daneben eine Liste von all diesen Werten, wobei jeder Wert nur einmal auftreten darf.Nora
07.05.2002 10:39:17
Thread-ID: 119107
3 Beiträge
Liste ohne doppelte Werte
ing.grohn

Hallo Forum,
mit Daten Gültigkeit kann ich verhindern, daß doppelte Eintragungen vorkommen:
Einstellungen Benutzerdefiniert und dann z.B =UND(ISTZAHL(H1);ZÄHLENWENN($H$1:$H$30;H1)
ich habe hierzu ein Makro aufgezeichnet: With Selection.Validation .Delete .Add Type:=xlValidateCustom...
18.10.2010 19:34:20
Thread-ID: 1182959
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
1
5
4
5
5
4
2
3
1
4
2
5
2
10
2
2
7
7
1
1
3
9
3