ich möchte eine xls Datei per VBA öffnen und dann Werte aus ihr holen. Das Funktioniert auch wunderbar. Allerdings muss ich nun noch in einem Kombinationsfeld ein Wert auswählen damit ich die richtigen Daten aus dem Dokument ziehen kann.
Dieses will allerdings nicht funktionieren.
Hier mein Code:
Public Function GetValueWF(file As String, ort As String, sheet As Integer, boxname As String, _
sheetname As String, FieldIndex As Integer) As Double
Dim Arbeitsmappe As Workbook, Tabelle1 As String, cb As MSForms.ComboBox
Set Arbeitsmappe = Application.Workbooks.Open(file)
Arbeitsmappe.Activate
Dim feldinhalt As Double
Volumen.OLEObjects("Dropdown1").SetFocus
Volumen.OLEObjects("Dropdown1").Object.ListIndex = 7
feldinhalt = Arbeitsmappe.Sheets(sheet).Range(ort).Value
GetValueWF = feldinhalt
Arbeitsmappe.Close SaveChanges:=False
End Function
Der Fehler: Laufzeitfehler 424 Objekt erforderlich bei Zeile -> Volumen.OLEObjects("Dropdown1").SetFocusWäre sehr schön wenn mir Jemand weiterhelfen könnte.
VG
Michael