Problem mit Combobox !

Hallo !
bin noch ziemlicher Laie in Fragen VBA Programmierung, gabe auch schon im Forum gestöbert, aber irgendwie hat mir da nix richtig geholfen.
Hier meine Frage:
Habe eine Preisliste erstellt mit verschiedenen Preisleveln. Jede der Firmen ist mittels "additem" der Combobox zugeordnet. Sobald ich also im Dropdownmenü die Firma anklicke wird ein Macro ausgeführt, welches mir den jeweiligen Preislevel rot highlightet. Dieses funktioniert. Das Problem ist, das wenn ich die Arbeitsmappe öffne, alle Firmen aus der Dropdownliste verschwunden sind. Gehe ich dann in den VBA Editor und drücke "Sub/user form ausführen" dann sind die Firmen plötzlich da und ich kann im Dropdown Menü die Firma anklicken und das Makro wird ausgeführt. Wie kann ich jetzt aber die Combobox dazu bringen, daß sie beim Start der Arbeitsmappe automatisch aktiviert wird und alle Firmen im Dropdown Menü angezeigt bleiben????
Wahrscheinlich irgendwas mit xxx.(combobox1.text).activate ???
Hier mein Source text:


Private Sub ComboBox1_Change()
Sheets("All-in-one 08-03").Activate
With ComboBox1
.AddItem "Firma1"
.AddItem "Firma2"
.AddItem "Firma3"
.AddItem "Firma4"
.AddItem "Firma5"
.AddItem "Firma6"
.AddItem "Firma7"
.AddItem "Firma8"
.AddItem "Firma9"
.AddItem "Firma10"
.AddItem "Firma11"
.AddItem "Firma12"
If ComboBox1.text = "Firma1" Then
Call unprotect
Range("E:F,H:I,L:M,O:P,S:T,V:W").Font.ColorIndex = 0
Range("E8:F9,H8:I9,L8:M9,O8:P9,S8:T9,V8:W9").Font.ColorIndex = 5
Range("G:G,N:N,U:U").Font.ColorIndex = 3
Call protect
Else
If ComboBox1.text = "Firma12" Then
Call unprotect
Range("E:F,H:I,L:M,O:P,S:T,V:W").Font.ColorIndex = 0
Range("E8:F9,H8:I9,L8:M9,O8:P9,S8:T9,V8:W9").Font.ColorIndex = 5
Range("G:G,N:N,U:U").Font.ColorIndex = 3
Call protect
End If
End With
End Sub

Danke schonmal im Voraus für gute Tipps. Ich weiß das man die "if-then"-Anweisung auch einfacher mit der "Case" Anweisung bearbeiten kann, aber wie schon erwähnt bin ich noch ein Anfänger !!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Öffne den VB-Editor
Rechts ist der Projekt-Explorer, in diesem siehst du dein VBA Projekt (name der Datei)
in der Struktur befinden sich deine MS Excel.Objekte wie DieseArbeitsmappe und alle Tabellenblätter. Doppelklick auf DieseArbeitsmappe. Nun siehst du den Code, falls welcher hinterlegt ist. Da wo der Code hinsoll befinden sich darüber 2 Comboboxen, die erste öffnen und Workbook auswählen, die zweite ist für das Ereignis. Open ereignis ist vorbelegt und da den Code reinkopieren. Den Code deiner CB siehst du in dem Tabellenblatt in dem die CB liegt, diesen kannst du ohne Probleme aufrechterhalten, nur das füllen der CB würde ich weglassen, da dies ja nun über Workbook_open geschieht.
Gruß
ANDI (zu heiß)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Rows(Target.Rows).Select Target.Activate Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread