Herbers Excel/VBA-Archiv

ComboBox mit verschiedenen ListFillRanges? | Herbers Excel-Forum

• ComboBox mit verschiedenen ListFillRanges? von Stefan vom 13.11.2009 11:29:11
• als String übergeben - von Tino am 13.11.2009 11:33:34
  • da fehlt noch der Doppelbunkt. - von Tino am 13.11.2009 11:39:19
    • und noch was :-( - von Tino am 13.11.2009 11:42:04
  • AW: als String übergeben - von Stefan am 13.11.2009 11:41:50
• AW: ComboBox mit verschiedenen ListFillRanges? - von Beverly am 13.11.2009 11:44:26
  • AW: ComboBox mit verschiedenen ListFillRanges? - von Stefan am 13.11.2009 11:56:50

Betrifft: ComboBox mit verschiedenen ListFillRanges? von: Stefan
Geschrieben am: 13.11.2009 11:29:11

Hallo zusammen,

ich möchte eine ComboBox mit Werten füllen abhängig davon welche Firma vorher gewählt wurde..
Ist sicher ganz einfach, hab aber keinen passenden Beitrag im Forum gefunden..
Tu mich echt immer schwer mit der Syntax..und die Hilfe hat mich auch nicht schlauer gemacht.
Hier mein Ansatz:

'

Private Sub ComboBox1_Change()
    
'    Wenn in Zelle D5 die Firma "Company GmbH" ausgewählt wurde soll auf den Lieferantentamm  _
auf dem
'    Blatt Lieferanten_GmbH zurückgegriffen werden, wurde Firma "Company Techno" gewählt
'    dann auf den Lieferantenstamm auf Blatt Lieferanten_Techno",
'    ist keine Firma ausgewählt soll die Box leer bleiben.

    
    
    '    If Range("d5").Select Is "Company GmbH" Then
    '    ComboBox1.ListFillRange = Lieferanten_GmbH!A2A2000
    '    Else
    '    ComboBox1.ListFillRange = Lieferanten_Techno!A2A2000
    '    End If
    '
    '    End Sub

Betrifft: als String übergeben von: Tino
Geschrieben am: 13.11.2009 11:33:34

Hallo,
die ComboBox1.ListFillRange Eigenschaft will einen String haben also müsste es so gehen.

Nicht getestet:

with Combobox1
    If Range("d5").Select Is "Company GmbH" Then
     .ListFillRange = "Lieferanten_GmbH!A2A2000"
    Else
     .ListFillRange = "Lieferanten_Techno!A2A2000"
    End If
end with

Gruß Tino

Betrifft: da fehlt noch der Doppelbunkt. von: Tino
Geschrieben am: 13.11.2009 11:39:19

Hallo,
bei den Zelladressen, habe ich von Dir so übernommen, sorry

with Combobox1
    If Range("d5").Select Is "Company GmbH" Then
     .ListFillRange = "Lieferanten_GmbH!A2:A2000"
    Else
     .ListFillRange = "Lieferanten_Techno!A2:A2000"
    End If
end with

Gruß Tino

Betrifft: und noch was :-( von: Tino
Geschrieben am: 13.11.2009 11:42:04

Hallo,
die if müsste so aussehen.

If Range("d5").value = "Company GmbH" Then


Gruß Tino

Betrifft: AW: als String übergeben von: Stefan
Geschrieben am: 13.11.2009 11:41:50

Hallo Tino,

bekomme dann aber schon bei der "Company GmbH" einen Fehler beim kompilieren
Muss ich vielleicht vorher noch D5 als irgendwas definieren?

Betrifft: AW: ComboBox mit verschiedenen ListFillRanges? von: Beverly
Geschrieben am: 13.11.2009 11:44:26

Hi Stefan,

Private Sub ComboBox1_GotFocus()
    If Range("D5") = "Company GmbH" Then
        ComboBox1.ListFillRange = "Lieferanten_GmbH!A2:A2000"
    ElseIf Range("D5") = "Company Techno" Then
        ComboBox1.ListFillRange = "Lieferanten_Techno!A2:A2000"
    Else
        ComboBox1.ListFillRange = ""
    End If
End Sub

---

Betrifft: AW: ComboBox mit verschiedenen ListFillRanges? von: Stefan
Geschrieben am: 13.11.2009 11:56:50

Was soll ich sagen???

Ihr seit die BESTEN!!
Funktioniert..

Vielen Dank

Grüße Stefan

Beiträge aus den Excel-Beispielen zum Thema "ComboBox mit verschiedenen ListFillRanges?"