VBA: ComboBox Zllbereich zuweisen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

MOin!
Also für deine 3 Cb wäre das hier der Code. Willst du das im Code wirklich mit den festen additem lassen? Das lässt sich dann aber schwer warten. Besser wäre es, du liest die Daten direkt aus dem Blatt in die CB. Dann brauchst du das nur im Blatt ändern und der Code geht trotzdem. Evtl. wäre dann auch ein andere Blattaufbau besser - um es anzupassen. Ist aber nur eine Idee. HIer mal der Code:

Private Sub CB_Modelart_Change()
Dim bereich
' 3. Gruppe, hier wird die Untergruppe Model Ausgewählt
Me.CB_Model.Clear
With Worksheets("Tabelle1")
Select Case Me.CB_Modelart
Case "B&B Rollartor"
bereich = Range("B5:B19")
Case "B&B Rollstuhl"
bereich = .Range("B22:B35")
'Zellbereich "Tabelle1!B22:B35"
Case "B&B Pflegerollstuhl"
bereich = .Range("B22:B35")
'Zellbereich "Tabelle1!B38:B47"
Case "Inv. Rollartor"
bereich = .Range("B22:B35")
'Zellbereich "Tabelle1!C5:C19"
Case "Inv. Rollstuhl"
bereich = .Range("B22:B35")
'Zellbereich "Tabelle1!C22:C35"
Case "Inv. Pflegerollstuhl"
bereich = .Range("B22:B35")
'Zellbereich "Tabelle1!C38:C47"
Case "SM Rollartor"
bereich = .Range("D5:D19")
'Zellbereich "Tabelle1!D5:D19"
Case "SM Rollstuhl"
bereich = .Range("D22:D35")
'Zellbereich "Tabelle1!D22:D35"
Case "SM Pflegerollstuhl"
bereich = .Range("D38:D47")
'Zellbereich "Tabelle1!D38:D47"
'Case ...
End Select
End With
If Not IsEmpty(bereich) Then Me.CB_Model.List = Application.Transpose(bereich)
End Sub

Private Sub CB_Bauform_Change() ' 4. Gruppe, hier wird die Untergruppe Model Ausgewählt Dim zeile As Long, spalte As Long Me.CB_Model.Clear If Me.CB_Bauform.ListIndex = -1 Then Exit Sub spalte = 2 + Me.CB_Lieferand.ListIndex * 18 + Me.CB_Hersteller.ListIndex * 6 + Me. _ CB_Modelart.ListIndex * 2 + Me.CB_Bauform.ListIndex * 1 With Worksheets("Strehlow") zeile = .Cells(.Rows.Count, spalte).End(xlUp).Row Me.CB_Model.List = Application.Transpose(.Range(.Cells(6, spalte), .Cells(zeile, spalte))) End With End Sub

Private Sub CB_Bauform_Change() ' 4. Gruppe, hier wird die Untergruppe Model Ausgewählt Dim zeile As Long, spalte As Long Me.CB_Model.Clear If Me.CB_Bauform.ListIndex = -1 Then Exit Sub spalte = 2 + Me.CB_Lieferand.ListIndex * 18 + Me.CB_Hersteller.ListIndex * 6 + Me. _ CB_Modelart.ListIndex * 2 + Me.CB_Bauform.ListIndex * 1 With Worksheets("Strehlow") zeile = .Cells(.Rows.Count, spalte).End(xlUp).Row If zeile = 5 Then Exit Sub 'nix eingetragen If zeile = 6 Then Me.CB_Model.AddItem .Cells(zeile, spalte) 'nur ein Wert Else Me.CB_Model.List = Application.Transpose(.Range(.Cells(6, spalte), .Cells(zeile, spalte) _ )) End If End With End Sub

Hallo Matthias,
ich habe die Tabelle wie folgt neu Aufgebaut.
Die Unterkategorie nach Model-Art ist jetzt die Leistungsart mit zwei Spalten (Kassenleistung u. Privatleistung).
Unter den jeweiligen Leistungen sind nun die die Model-Bauarten untereinander mit den dazugehörigen Modellen.
Das mit den unterschiedlichen Werten sollte auch gehen. Kannst da an Stelle der Leerzeile als Trenner auch ein xxxxx etc. eintragen.
Die Modelle werden mit Trenner getrennt, ebenso habe Ich die Bezeichnung Rollator in RO (SM) umbenannt ebenso bei den zwei anderen. Ich Hab die UF so gelassen mit 5 CB´s.
Würde das sonst für die CB direkt aus der Tabelle einlesen.
Was meinst du damit, werden die Daten dann nicht mehr Errechnet?
Und letzte Frage. Ist für die Kassen- bzw. Privatleistungen schon eine CB da?
Nein, diese ComboBox-Verschachtelung soll andere CB´s ersetzen.
Bei denen Lese Ich die Daten jeweils einzeln über SourceRow ein oh. die Zugehörigkeit.
Daher Ich hatte Problem die Modelle von den jeweiligen Herstellern u. Lieferanten zu Unterscheiden.
Da könnte man an Stelle einer CB auch zwei Listboxen einfügen.
Links für Kassen und rechts für Privatleistungen.
Ich würde die CB´s bevorzugen, da Sie weniger Platz brauchen.
Ich habe eine Datenbank für Hilfsmittel vor einiger Zeit erstellt, diese ComboBoxen sind dafür da die Modelle der der jeweiligen Herstelle auszuwählen.
Hier meine aktualisierte Mappe
https://www.herber.de/bbs/user/135289.xlsm
Gruß Charly

Beliebteste Forumthreads (12 Monate)

VBA: ComboBox Zllbereich zuweisen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: ComboBox Zllbereich zuweisen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread