| Re: ComboBox2-Liste in Abhängigkeit von Combobox1-Liste anzeigen |
|
 |
|
 |
|
 |
|
 |
Group: microsoft.public.de.excel · Group Profile
Author: MatthiasgarbeMatthiasgarbe Date: May 14, 2008 02:21
On 14 Mai, 10:27, "Wolfgang Habernoll"
online.de> wrote:
>>Hallo,
>>ich habe folgendes Problem. Ich möchte in einer ComboBox einen
>>bestimmten Wert aus einer Liste z. B. "A" aus der Liste A:2 bis A4 (wo
>>A,B)drinsteht auswählen. Darauf aufbauend möchte ich in einer zweiten
>>ComboBox den Bereich 1-9 (steht in denselben Tabellenblatt wie die
>>Liste für die erste ComboBox, nur in B2:B10). Ich habe bis jetzt
>>folgenden Code in VBA geschrieben:
>>Private Sub ComboBox1_Change()
>> Â Select Case (ComboBox1.Text)
>> Â Â Â Case Is = "A"
>> Â Â Â Â ComboBox2.Text = Sheets("Tabelle2").Range("B2")
>> Â Â Â Case Is = "B"
>> Â Â Â Â ComboBox2.Text = Sheets("Tabelle2").Range("A2")
>> Â End Select
>>End Sub
>>Jetzt möchte ich für den Range statt einer einzelnen Zelle einen
>>Zellbezug (wie oben beschrieben B2:B10) haben.
>>Hat jemand eine Lösung?
>
> nimm nicht die Text sondern die RowSource Eigenschaft etwa so
>
> Userform1.ComboBox2.RowSource = "Tabelle2!B2:B10"
>
> --
> mfG
> Wolfgang Habernoll
>
> [ Win XP Home SP-2 , Â XL2002 ]- Zitierten Text ausblenden -
>
> - Zitierten Text anzeigen -
Hallo,
wenn ich den Code so eingebe,
Private Sub ComboBox1_Change()
Select Case (ComboBox1.Text)
Case Is = "A"
Userform1.ComboBox2.RowSource = "Tabelle2!A2:A16"
Case Is = "B"
Userform1.ComboBox2.RowSource = "Tabelle2!B2:B3"
End Select
End Sub
bekomme ich die Fehlermeldung "Laufzeitfehler 438"
Was mach ich falsch?
Viele Grüße
Matthias
|