Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Exceldatei auswählen und in Textfeld einfügen

Exceldatei auswählen und in Textfeld einfügen
14.09.2017 13:50:12
Hans
Hallo Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exceldatei auswählen und in Textfeld einfügen
14.09.2017 17:42:17
ChrisL
Hi Hans
Bitte lade eine Beispieldatei...
Mit den "Anführungszeichen" von Strings hast du einen Salat. Einmal im GetOpenFilename (hier Muster)...
https://www.herber.de/forum/archiv/636to640/639554_Dateitypen_einzeln_als_Auswahl.html
Und hier fehlt was:
.RowSourceType = "Value List"
Me.txt
Variable CurrentProject nicht definiert resp. ThisWorkbook
TabellennamenEinlesen(Me!txtExcelDatei)
unbekannte Funktion, aber verdächtig wenn es um RowSource geht
cu
Chris
Anzeige

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige