Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

abhängige Comboboxen, "" ignorieren

Forumthread: abhängige Comboboxen, "" ignorieren

abhängige Comboboxen, "" ignorieren
13.08.2018 14:34:57
Chris
Guten Tag,
ich habe 2 voneinander abhängige Comboboxen, welcher aber leider mit überflüssigen Leerzellen gefüllt werden.
Ich habe schon probiert irgendwie
"If .....Value "" Then"
Und "If Not IsEmpty" einzubauen, aber ich scheitere daran.
Beispieldatei:
https://www.herber.de/bbs/user/123307.xlsm
Danke im Voraus für eure mögliche Hilfe!
Gruß,
Chris
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: abhängige Comboboxen, "" ignorieren
13.08.2018 14:52:38
{Boris}
Hi Chris,
wenn es nicht tausende von Einträgen sind:
Option Explicit
Private Sub ComboBox_Site_Click()
Dim C As Range, iCol As Integer
iCol = ComboBox_Site.ListIndex + 1
Me.ComboBox_LS.Clear
For Each C In Range(Cells(2, iCol), Cells(20, iCol)) 'Die 20 steht für: bis Zeile 20 - bei  _
Bedarf ausreichend erweitern
If C  "" Then
Me.ComboBox_LS.AddItem Sheets(2).Cells(C.Row, iCol)
End If
Next C
End Sub
VG, Boris
Anzeige
AW: abhängige Comboboxen, "" ignorieren
13.08.2018 15:08:40
Chris
Hallo Boris,
SUPER - danke Dir, das ging echt schnell!!!!
Das funktioniert wunderbar, nur ein Problemchen habe ich...
Mein Userform öffne ich in Sheet3 und nicht wie im Beispiel in Sheet2 (Tab1).
Der Codeteil bzgl. " """ bezieht sich irgendwie immer auf die Tabelle die gerade aktiv ist, wie kann ich das noch anpassen?
Gruß,
Chris
Anzeige
AW: abhängige Comboboxen, "" ignorieren
13.08.2018 15:34:01
EtoPHG
Hallo Chris,
Was macht das für einen Sinn, die Quelldaten nochmals in Tab1 aufzuführen?
Warum nicht gleich so: 
Option Explicit
Private Sub ComboBox_Site_Click()
Dim i As Long
ComboBox_LS.Clear
With Worksheets("Quelle")
For i = 2 To .Cells(.Rows.Count, ComboBox_Site.ListIndex + 1).End(xlUp).Row
ComboBox_LS.AddItem .Cells(i, ComboBox_Site.ListIndex + 1)
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
With Worksheets("Quelle")
For i = 1 To WorksheetFunction.CountA(.Rows(1))
ComboBox_Site.AddItem .Cells(1, i)
Next
ComboBox_Site.ListIndex = 0
End With
End Sub
Gruess Hansueli
Anzeige
AW: abhängige Comboboxen, "" ignorieren
13.08.2018 16:44:18
Chris
Hallo Hansueli,
danke für deinen Post.
Die Daten werden vorher gefiltert und geordnet, daher habe ich als Bezug "Tab1" angegeben - damit es an die tatsächliche Situation ran kommt.
Deine Codes funktionieren daher nicht, denn bei mir liegen in der Ausgangssituation keine manuellen Eingaben vor.
Gruß,
Chris
Anzeige
AW: abhängige Comboboxen, "" ignorieren
13.08.2018 17:07:10
{Boris}
Hi,
dann musst Du das Blatt explizit mit referenzieren: 
Private Sub ComboBox_Site_Click()
Dim C As Range, iCol As Integer
iCol = ComboBox_Site.ListIndex + 1
Me.ComboBox_LS.Clear
With Worksheets("Tab1")
For Each C In .Range(.Cells(2, iCol), .Cells(20, iCol))
If C  "" Then
Me.ComboBox_LS.AddItem .Cells(C.Row, iCol)
End If
Next C
End With
End Sub
VG, Boris
Anzeige
AW: abhängige Comboboxen, "" ignorieren
13.08.2018 17:20:38
Chris
Hi Boris,
jetzt ist es perfekt! Danke nochmals!
Gruß,
Chris

Forumthreads zu verwandten Themen

Alle Inhalte in Comboboxen löschen
Frank

Hallo!
Ich habe mehrere Comboboxen in ein Sheet eingebaut. Leider bleibt darin immer die letzte Auswahl stehen. In meiner Userform konnte ich mit "Claer all" alle Eingaben entfernen. gibt es einen solchen Befehl auch für die Comboboxen im Sheet?
Gruß Frank
15.08.2008 11:24:32
Thread-ID: 1002119
2 Beiträge
Anzeige
Comboboxen wie Autofilter
Klaus

Hallo zusammen
Ich habe eine Userform mit mehreren Comboboxen. Nun sollen in der ersten Combobox die Werte aus Tabelle1 A:A ohne Duplikate ausgelesen werden und nach einer Auswahl der Autofilter in Spalte A gesetzt werden. in der zweiten Combobox sollen dann die Werte aus Tabelle1 B:B ausge...
31.10.2008 09:39:00
Thread-ID: 1020780
2 Beiträge
Spez. Dropdown-Zuordnungen in Comboboxen
Lenhard

Moin Moin Excellianer!!
Alle Ausführungen habe ich auch direkt in meine Beispieldatei reingeschrieben.
Aber hier auch noch mal:
Im Dropdown der ComboBox1 sollen als Liste die Einträge der Zeile 1 von links nach rechts aus der Tabelle1 erscheinen (Kategorie A, Kategorie B, Kategorie...
09.12.2008 11:24:55
Thread-ID: 1031295
5 Beiträge
Comboboxen Spalten Anzahl
gp

Hallo Zusammen,
ist die Anzahl der Spalten von ComboBoxen begrenzt?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
26.01.2009 11:08:00
Thread-ID: 1043791
5 Beiträge
Anzeige
48 Comboboxen mit einem Code formatieren?
Ann-Katrin

Hi,
ich möchte allen Comboboxen innerhalb einer UF das Stundenformat
"hh:mm" zuweisen.
Bislang habe ich die Boxen einzeln angesprochen.
Private Sub ComboBox1_Change() ComboBox1 = Format(ComboBox1, "hh:mm") End Sub
Da sich in der UF 48 Comboboxen befinden, möchte ich Frage...
08.02.2009 18:07:00
Thread-ID: 1048395
17 Beiträge
zwei comboboxen auslesen
Dee

Hi Ihr,
Ich habe zwei Kategorien mit ComboBoxen (Deutschland, Amerika), welche bei unregelmäßige Nummer tragen
Deutschland (ComboBox 2/6/7/10/13)
Amerika (ComboBox 5/8/9/11/12)
Beide können jeweils mit yes und no belegt sein. Ich möchte mir jetzt die einzelnen Fälle in einem Te...
22.04.2009 19:14:52
Thread-ID: 1070463
8 Beiträge
Comboboxen Kuriositäten
Volti

Hallo zusammen,
habe schwere Probleme mit den Comboboxen aus der Toolbox, die wie mir scheint, nach jedem Update immer schlimmer werden.
1. Resizingprobleme: Es kommt verstärkt vor, dass der angezeigte Inhalt im Auswahlfeld nach Verlassen der Seite (z.B. kurzzeitig anderes Programm wie...
02.06.2009 10:45:10
Thread-ID: 1078566
3 Beiträge
Comboboxen formatieren
Ludicla

Hey Profis,
wie müßte ein Code aussehen der mehrere Comboboxen formatiert?
ich hab an die 100 Stück - sicher es geht auch einzelen
ich schaff keinen einfachen Code und mach alles einzeln.
Gruss Ludicla.
04.06.2009 14:58:16
Thread-ID: 1079162
7 Beiträge
Comboboxen für abhängige Auswahlen?
Claudia

Liebes Forum,
ich habe eine Tabelle mit drei Spalten. Die darin enthaltenen Infos werden von Spalte 1 zu 3 immer feiner. Z.B. steht in Spalte 1 "Wilde Tiere" und "Zahme Tiere". In Spalte 2 dann die jeweils zugehörigen Einträge "Tiger" (natürlich Wilde Tiere) und "Hase" (Zahme Tiere). Und in...
19.06.2009 09:53:10
Thread-ID: 1082797
6 Beiträge
Auswahl bei Comboboxen
Quantum

Hallo,
da ich zu viele Daten habe, würde ich gerne mit einer zusätzlichen Combobox die Auswahl in der anderen Combobox beschränken auf Daten aus einen bestimmten Bereich.
In der ersten Spalte, ab der 4 Zelle steht die Gruppenzugehörigkeit, wenn ich in der Combobox4 die Gruppe wähle, w...
22.06.2009 09:16:16
Thread-ID: 1083369
19 Beiträge
Tabelle mit 2 Comboboxen auslesen
Chris

Hallo,
ich würde gerne einen Wert aus einer Tabelle mit Hilfe von 2 Comboboxen auslesen um ihn dann weiter zu verwenden. Vom Prinzip her, hab ich eine Box für die Zeile und eine für die Spalte. Nur hab ich keinen Plan wie ich am besten daraus die EINE Variable mache.
Mir würden ein paar...
24.06.2009 09:41:28
Thread-ID: 1083992
3 Beiträge
Gleiche Ereignisse für alle UF-Comboboxen
Martin

Hallo liebe Excel-Gemeinde,
ich verwende für alle Comboboxen und Textboxen in einer UserForm den gleichen Code für das "Enter" und das "Exit"-Ereignis:
Private Sub ComboBox36_Enter() ComboBox36.BackColor = &H80FFFF ComboBox36.BorderStyle = fmBorderStyleSingle End Sub
Privat...
02.07.2009 13:29:56
Thread-ID: 1085947
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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