Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ComboBox mit verschiedenen ListFillRanges?

ComboBox mit verschiedenen ListFillRanges?
Stefan
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

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

Betreff
Benutzer
Anzeige
als String übergeben
13.11.2009 11:33:34
Tino
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
da fehlt noch der Doppelbunkt.
13.11.2009 11:39:19
Tino
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
Anzeige
und noch was :-(
13.11.2009 11:42:04
Tino
Hallo,
die if müsste so aussehen.
If Range("d5").value = "Company GmbH" Then
Gruß Tino
AW: als String übergeben
13.11.2009 11:41:50
Stefan
Hallo Tino,
bekomme dann aber schon bei der "Company GmbH" einen Fehler beim kompilieren
Muss ich vielleicht vorher noch D5 als irgendwas definieren?
AW: ComboBox mit verschiedenen ListFillRanges?
13.11.2009 11:44:26
Beverly
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



Anzeige
AW: ComboBox mit verschiedenen ListFillRanges?
13.11.2009 11:56:50
Stefan
Was soll ich sagen?
Ihr seit die BESTEN!!
Funktioniert..
Vielen Dank
Grüße Stefan

142 Forumthreads zu ähnlichen Themen


Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...

Moin moin,
mal eine Frage zu der Combobox. Und zwar versuche ich diese gerade über die Eigenschaftem der Box zu befüllen. Nun stehen die Daten für die Box in den Felden C4 bis F4. Wenn ich nun die Range C4:F4 im Feld ListFillRange angebe, kann man in der ComboBox nur den Eintrag von C4 a...

Guten Tag,
ich habe folgendes Problem:
In einem Excel Arbeitsblatt ( [Bearbeiten.xls]Tabelle1 )möchte ich durch eine Combobox einen Datensatz vorauswählen, der dann in LinkCell [Bearbeiten.xls]Tabelle1!C3 ausgegeben wird und ich weitere Daten aus der Quelldatei hierdurch über
=SVER...

Hallo,
ich habe Grafiken, die lokal in einem Verzeichnis lagen, seither so geladen:
If Range("L4").Value = "red" Then
Set pct = ActiveSheet.Pictures.Insert("C:\Daten\Grafiken\Rot2.jpg")
pct.Left = Range("BS5").Left
pct.Top = Range("BS5").Top + 5
pct.Height = 63
pct.W...
TabelleX.Range("A1")

Links zu Excel-Dialogen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige