Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige