Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Auswahl in Zelle schreiben

VBA Auswahl in Zelle schreiben
28.01.2021 23:56:32
udo
Hallo Profis,
zu später Stunde hätte ich doch noch eine kleine Frage
Über folgenden Code den ich irgendwo zu diesem Thema fand
Ruft man das Auswahlfenster auf und kann zumindest eine Datei im Ordner
auswählen ...
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
f.Show
If f.SelectedItems.Count ( grösser als ) 0 Then
'Exit Sub
End If
Ich würde gerne die Auswahl nicht öffnen sondern den Namen dieser in die Zelle B7 eintragen
lassen, das Auswahlfenster schliesst sich das wars.
Wenn eine Anmerkung noch einen bestimmten Ordner öffnet wäre es perfekt, muss aber nicht
Könntet ihr mir dabei helfen,
Lieben Dank in die Runde
Udo
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kleiner eigener Teilerfolg ...
29.01.2021 00:08:53
udo
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
f.Show
If f.SelectedItems.Count (grösser als) 0 Then ' Prüfen auf 'Abbrechen'-Button
[B7] = f.SelectedItems(1)
End If
HAbt ihr noch eine Idee für den vorgegebenen Ordnerpfad welcher vorzugsweise
geöffnet werden sollte, da wäre ich euch noch dankbar
LG
udo
Anzeige
Habe es doch noch hinbekommen ...
29.01.2021 00:19:52
udo
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
f.InitialFileName = "C:\...\...\"
f.Show
If f.SelectedItems.Count (grösser als) 0 Then ' Prüfen auf 'Abbrechen'-Button
[B5] = f.SelectedItems(1)
End If
Trotzdem Danke sollte schon Jemand angefangen haben zu probieren
LG udo
Anzeige
noch weitere nützliche Bedingungen dazu ...
29.01.2021 00:34:15
udo
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
f.InitialFileName = Sheets(1).Range("J5") ' "C:\BRCO\DATA Lagerbestand Berichte\" 'Button Beschriftung 'Fenstertitel
f.AllowMultiSelect = False ' nur eine Datei anwählbar
f.Filters.Clear ' erst alle Filter löschen
f.Filters.Add "Excel-Dateien", "*.xl*" ' nur xl Dateien
f.Show ' Auswahlfenster zeigen
If f.SelectedItems.Count (grösser als) 0 Then ' Prüfen auf 'Abbrechen'-Button
[B5] = f.SelectedItems(1) ' Auswahl Pfad u Dateiname in B5 eintragen
End If
Falls es Jemand von Euch auch mal benutzen will, muss
LG udo
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige