Im Moment verzweifle ich gerade, da ich mir immer wieder selber Fehler einbaue. Ich hoffe Ihr könnt mir weiterhelfen.
Ich habe auf einer Excel Tabelle ein Bestellformular erstellt. Da relativ viele Felder durch Comboboxen vorgegeben sind, kann man dies relativ einfach vervollständigen. Dies ging soweit. Nur hänge ich jetzt daran, dass ich, wenn ich die Datei öffne, leere Comboboxen vorfinde. Erst wenn ich den untenstehenden Code ausführe im Editor füllt es sich. Was mache ich falsch?
Wenn ich ein Makro anlege, passt es gar nicht mehr?
Ich habs bereits über Workbook_Open versucht in einem Modul, aber komme nicht weiter.
Der Code lautet:
Private Sub Workbook_Open()
ComboBox1.List = Application.Transpose(Workbooks("Lieferanten.xlsm").Worksheets("Kunden").Range( _
"A4:A170"))
ComboBox2.List = Application.Transpose(Workbooks("Kostenstellen.xlsm").Worksheets("Konten"). _
Range("B4:B123"))
ComboBox3.List = Application.Transpose(Worksheets("Abteilungsleiter").Range("A2:A10"))
ComboBox4.List = Application.Transpose(Worksheets("Mitarbeiter").Range("A2:A10"))
ThisWorkbook.Sheets("Bestellformular").Range("A20").Value = Date
End Sub
PS: Die Dateien sind alle offen und werden immer mit gestartet.