3 Comboboxen, verknüpft , mit Auswahleinschränkung

Hallo
Ich habe noch ein neues Problem. Und hoffe ihr könnt mir wiedermal helfen.
In meiner Tabelle gibt es 3 Spalten mit ca 70 Zeilen. Darin stehen Werte zb. Nr | Name | Kostenstelle
ich habe 3 Comboboxen, die diese Werte anzeigen, und nun möchte ich das ganze so verknüpfen, dass ich bei auswahl von Box 1 , die beiden anderen Boxen mit dem dazugehörigen Wert (also dem der in der Tabelle mit in der selben Zeile steht) gefüllt werden. Es ist aber Leider so, dass die Werte aus Spalte 1 eindeutig die Werte in Spalte 2 und 3 festlegen, die Werte aus Spalte 2 und 3 jedoch nur die auswahl in Spalte 1 bzw Spalte 2/3 einschränken können. Wie kann ich dieses Problem lösen?
Desweiteren wäre es sehr nützlich , wenn die Comboboxen durch Eingabe von Textstücken, die auch in den Spalten vorkommen, gefiltert würden.
Das Problem ist aber nicht ganz so wichtig wie das andere.
Bis dann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
für die 3. ComboBox (die 2. analog, nur dass dort in Spalte B gesucht werden muss):


Private Sub cboMaschListe_Change()
Dim raZelle As Range
With Worksheets("Maschinen")
Set raZelle = .Range("C2:C" & IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)).Find(cboMaschListe, lookat:= _
xlWhole)
txtKostenst = .Cells(raZelle.Row, 4)
End With
End Sub

Ich würde aber an deiner Stelle die Auswahl in den ComboBoxen 2 und 3 bereits nach der Auswahl in der 1. ComboBox auf die Maschinen einschränken, die nur in der gewählten Halle vorhanden sind


Private Sub cboHalle_Change()
Dim raZelle As Range
Dim loZeile As Long
With Worksheets("Maschinen")
Set raZelle = .Range("A1:A" & IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)).Find(cboHalle, lookat:=xlWhole)
loZeile = raZelle.Row
Do
If .Cells(loZeile, 1)  raZelle Then Exit Do
loZeile = loZeile + 1
Loop
cboMaschListe.RowSource = "Maschinen!" & .Range(.Cells(raZelle.Row, 3), .Cells(loZeile - _
1, 3)).Address
cboMaschNr.RowSource = "Maschinen!" & .Range(.Cells(raZelle.Row, 2), .Cells(loZeile - 1, _
2)).Address
End With
End Sub

Beliebteste Forumthreads (12 Monate)

3 Comboboxen, verknüpft , mit Auswahleinschränkung

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3 Comboboxen, verknüpft , mit Auswahleinschränkung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread