Hier mein Code und Danke für Jede Hilfe! Toni
'=====================================================
Function Dropdownbox(ByVal DDBox As ComboBox)
Dim Region 'ÜbergabeWert der Dropdownbox für Excel
Dim objTabelle As Object
Dim strFeldinhalt As String
Dim DrvPath 'Pfadangabe wo die Exceldatei liegt incl. Dateinahmen
DrvPath = "D:\010_PRIVAT\999_Toni\Siemens\Migrationscontroling\Test\Test.xlsx"
'DropDownbox-Wert auslesen
If DDBox.Value = "Welt" Then
Region = 1
End If
If DDBox.Value = "Österreich" Then
Region = 2
End If
If DDBox.Value = "Brasilien" Then
Region = 3
End If
If DDBox.Value = "China" Then
Region = 4
End If
If DDBox.Value = "Deutschland" Then
Region = 5
End If
If DDBox.Value = "Spanien" Then
Region = 6
End If
If DDBox.Value = "Frankreich" Then
Region = 7
End If
If DDBox.Value = "Indien" Then
Region = 8
End If
If DDBox.Value = "Italien" Then
Region = 9
End If
If DDBox.Value = "Russland" Then
Region = 10
End If
If DDBox.Value = "USA" Then
Region = 11
End If
If DDBox.Value = "ROW" Then
Region = 12
End If
'Öffnen Excel
Set objTabelle = CreateObject("Excel.Application")
'Excel wird angezeigt
objTabelle.Visible = True
'Excel wird nicht angezeigt
'objTabelle.Visible = false
'Excel-Datei öffnen
objTabelle.Workbooks.Open DrvPath
'Inhalte aus Tabelle Lesen
' strFeldinhalt = objTabelle.Worksheets("Tabelle1").Range("A1")
'Inhalte aus Tabelle schreiben
objTabelle.Worksheets("Tabelle1").Range("A1").Value = Region
'Schließen der Excel-Applikation
objTabelle.Workbooks.Close
' objTabelle.Save damit kommt nur ein Fehler!
objTabelle.Quit
Set objTabelle = Nothing
End Function