Re: ComboBox2-Liste in Abhängigkeit von Combobox1-Liste anzeigen
  Home FAQ Contact Sign in
microsoft.public.de.excel only
 
Advanced search
POPULAR GROUPS

more...

 Up
Re: ComboBox2-Liste in Abhängigkeit von Combobox1-Liste anzeigen         

Group: microsoft.public.de.excel · Group Profile
Author: Matthiasgarbe
Date: May 14, 2008 02:21

On 14 Mai, 10:27, "Wolfgang Habernoll" online.de> wrote:
> Hallo
>
> schrieb im Newsbeitragnews:c4a85211-dd67-4b88-aa9e-7209883bdb21@a1g2000hsb.googlegroups.com...
>
>
>
>
>
>>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
no comments
diggit! del.icio.us! reddit!