ich finde leider den Fehler nicht (Syntax Fehler).
Kann mir wer helfen?
Gruß Hans
Private Sub cmdDateiAuswaehlen_Click()
Me!txtExcelDatei = OpenFileName(CurrentProject.Path,
"Excel-Datei auswählenâ, "Excel 2013 (*.xlsx)|
Alle Dateien (*.*))
If Len(Me!txtExcelDatei) > 0 Then
If Len(Dir(Me!txtExcelDatei)) > 0 Then
With Me!cboTabellenblaetter
.RowSourceType = "Value List
.RowSource = _
TabellennamenEinlesen(Me!txtExcelDatei)
.SetFocus
.Dropdown
End With
End If
End If
End Sub