psilo87
Goto Top

Combobox Abfrage in Exceltabelle verknüpft.

Hallo ich bin gerade dabei ein Ordersheet zu bauen mit Excel...

Leider stehe ich vor einigen Problemen...


Ich würde gerne DropdownMenüs mit hilfe von Comboboxen erstellen die untereinander Abhängig sind.

Also:


Schritt 1 Sprache wählen: Deutsch/Englisch oder Japanese


Schritt 2 Modell wählen: Bold 9500 oder Bold 9520 oder Storm 9700

ABER Wenn Japanisch gewählt dann darf nur Storm 9700 ausgewählt werden dürfen
Wenn Deutsch/Englisch dann darf nur Bold 9500 oder Bold 9520


Schritt 3 Subentionierung

Nur eine JA / Nein Abfrage die aber mit der Modellauswahl verknüpft wird, da es nacher noch eine automatisierte Preisausgabe geben soll.


Schritt 4 Tarifauswahl ....

Und noch ein bisschen mehr aber wenn mir jemand vlt beim Anfang helfen könnte schaffe ich den Rest ja evtl von Allein.

Vielen Dank vorab

Content-Key: 141643

Url: https://administrator.de/contentid/141643

Printed on: April 16, 2024 at 20:04 o'clock

Member: Snowman25
Snowman25 Apr 28, 2010 at 11:27:34 (UTC)
Goto Top
Hallo @psilo87,

schau mal:
Excel 2 Dropdown Menüs, 2. in Abhängigkeit zum Ersten

Folgendes Excelsheet mit VBScripts lässt sich dafür wunderbar erweitern:
http://administrator.snowman25.de/combochange.xls
Member: psilo87
psilo87 Apr 29, 2010 at 06:25:03 (UTC)
Goto Top
Guten Morgen

So noch eine andere Frage,

das mit den Boxen habe ich nun dank snowman hinbekommen ;)

nun möchte ich gerne noch dass eine zweite IF drinn vor kommt

If Combobox1.Value = "Blackberry Bold 9500" Then
schreib in die Die Zelle F3 95 Euro
End If

Wie ist der Befehl ? iwie bekomme ich nicht die richtigen Suchbegriffe bei Google hin :P

Grüße!
Member: Snowman25
Snowman25 Apr 29, 2010 at 07:25:24 (UTC)
Goto Top
Zitat von @psilo87:
das mit den Boxen habe ich nun dank snowman hinbekommen ;)
freut mich face-smile

nun möchte ich gerne noch dass eine zweite IF drinn vor kommt
Public Sub testwrite()
    If ComboBox1.Value = "Blackberry Bold 9500" Then  
        Range("F3:F3").Value = "95 Euro"  
    End If
End Sub
Statt mit Range liese sich aber auch mit Cells arbeiten
        Cells(3,6).Value = "95 Euro"

Iwie bekomme ich nicht die richtigen Suchbegriffe bei Google hin :-P
Probiers mal mit Excel + VBS. Ist alles ein wenig versteckt...

Grüße!
Grüße zurück!
Member: psilo87
psilo87 Apr 29, 2010 at 07:57:07 (UTC)
Goto Top
Hey also wenn ich nun was in Combobox2 auswähle passiert nichts in der Zelle...
Nur wenn ich Im VBA Editor "Play" Drücke

Es soll aber Live passieren ;)

Das ist mein Code

Public Sub Ausgabe()
If ComboBox2.Value = "Blackberry Storm 9500" Then
Range("I10:I10").Value = "95 Euro"
End If


End Sub
Member: Snowman25
Snowman25 Apr 29, 2010 at 08:11:34 (UTC)
Goto Top
Dann schieb den Code ohne Subs unter deinen Code im ComboBox2_Change-Sub