Excel treibt mich mal wieder in den Wahnsinn...
Ich möchte einfach nur bei Aufruf des Makros automatisch eine Combobox erstellen und füllen.
Die erstellte Combobox wird umbenannt in "VarAusw":
Sub Combo_erstellen()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=175, Top:=0.75, Width:=133.77, Height _
:=13.76).Select
Selection.Placement = xlMoveAndSize
Selection.Name = "VarAusw" ' Combobox umbenennen in VarAusw
End Sub
Dann erstelle ich in der nächsten Sub einen Array(String) der vorher global deklariert wurde. Dieser Array hat allgemein 50 elemente. Ich fülle in der Sub
diesen Array mit 38 String-elementen.Das gleiche mache ich mit leicht geänderten Strings auch noch für einen zweiten Array:
Sub Array_Variablenname()
v_variable(1) = "ABGASGDR"
v_variable(2) = "ABGASTEM"
v_variable(3) = "ABGASVOL"
v_variablekurz(1) = "ABGASGDR_KL"
v_variablekurz(2) = "ABGASTEM_KL"
End Sub
Dann fülle ich die Combobox über AddItem mit den elementen des ersten Arrays.
Sub Combo_fuellen()
Worksheets("Tabelle1").VarAusw.Clear
'Worksheets("Tabelle1").VarAusw.AddItem v_variable(0)
Worksheets("Tabelle1").VarAusw.AddItem v_variable(1)
End Sub
So. Bei der ganzen Aktion gibt es ein riesiges problem.
ICh möchte die drei Subs jetzt gerne in einem Zuge aufrufen, durch:
Combo_erstellen
Array_Variablenname
Combo_fuellen
Führe ich das aber in einem zug durch, kommt es zu einer fehlermeldung:
438 Objekt unterstützt diese Eigenschaft oder Methode nicht
Führe ich die Subs von hand einzeln nacheinander durch, dann funktioniert es ohne fehlermeldung.
erstelle ich erst die Combobox und führe danach das gesamte (incl. Combobox
erstellen) nochmal aus, funktioniert es ohne fehlermeldung und die bereits vorhandene Combobox wurde befüllt, die neue nicht (vermutl. wegen bezeichnung).
Führe ich erst die Sub Combo_erstellen aus und dann (in einem zuge) die beiden anderen SUbs, dann funzt es auch ohne meldung.
Warum funktioniert das aufrufen von allen dreien in einem Zuge denn nicht?
Ich werde langsam wahnsinnig...
helft mir! BITTE!!!!!!!!!!!!
Gruß
verzweifelte Maike