|
Hallo,
Über ein Makro in der Exceldatei mit dem Namen "Auftrag" (Excel 2016) möchte ich in einer anderen Exceldatei mit dem Namen "Bearbeitung" der Combobox mit dem Namen "ComboboxAuswahl" jeweils einen Wert zuweisen.
Die Combobox (Auswahlbox) ist Teil einer Userform mit dem Namen "Userform1". Die Combobox beinhaltet eine Auswahl von 10 Produkten. Von diesen 10 Produkten möchte ich jeweils ein Produkt auswählen. Die Auswahl richtet sich nach verschiedenen Kriterien und wird täglich in der Exceldatei "Auftrag" berechnet. Die Datei "Bearbeitung" soll inhaltlich nicht verändert werden. Es erfolgen dort ausschließlich Berechnungen aufgrund der Auswahl.
Die Datei "Bearbeitung" wird durch ein Makro vorher geöffnet und am Ende wieder geschlossen. Die Userform soll durch das Makro geöffnet werden und später wieder geschlossen werden.
Die Datei darf ich leider nicht versenden, da Sie vertrauliche Daten beinhaltet. Das ist der Code, der aus einer anderen Excel-Datei heraus gestartet nicht funktioniert:
Option Explicit
Sub Auswahl ()
Dim i As Integer
Workbooks.Open Filename:="C:\Bearbeitung.xlsb"
UserForm1.ComboBox1.Show
For i = 0 To UserForm1.ComboBox1.ListCount
If UserForm1.ComboBox1.List(i) = "DAX" Then
UserForm1.ComboBox1.ListIndex = i
Exit For
End If
Next i
End Sub
Viele Grüße
Tanja
|