Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1300to1304
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

Pfad auswählen und im Tabellenblatt hinterlegen

Pfad auswählen und im Tabellenblatt hinterlegen
05.03.2013 08:55:38
Thomas
Hallo zusammen,
ich brächte einen Code der folgendes kann:
Den Explorer öffnen, den dort ausgewählten Pfad in das Tabellenblatt"HT" in die Zelle A1 schreiben.
Mein Ziel ist es, damit man einen indivduellen Ordner zum Speichern der Datei hinterlegen kann.
Vielen Dank im Voraus.
Schöne Grüße
Thomas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad auswählen und im Tabellenblatt hinterlegen
05.03.2013 09:00:39
Klaus
Hi Thomas,
das geht so:
Public Sub Ordnerauswahl()
Dim strOrdner As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1)  "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then
'MsgBox ("Kein Ordner gewählt!")
Else
Range("A1").Value = strOrdner
End If
End Sub
Übrigens:
Google "vba excel pfad auswählen", erstes Ergebniss
http://www.office-loesung.de/ftopic222848_0_0_asc.php
Grüße,
Klaus M.vdT.

Anzeige
AW: Pfad auswählen und im Tabellenblatt hinterlegen
05.03.2013 09:19:16
Klaus
Hi Thomas,
das geht so:
Public Sub Ordnerauswahl()
Dim strOrdner As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1)  "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then
'MsgBox ("Kein Ordner gewählt!")
Else
Range("A1").Value = strOrdner
End If
End Sub
Übrigens:
Google "vba excel pfad auswählen", erstes Ergebniss
http://www.office-loesung.de/ftopic222848_0_0_asc.php
Grüße,
Klaus M.vdT.

Anzeige
AW: Pfad auswählen und im Tabellenblatt hinterlegen
05.03.2013 10:05:49
Thomas
Vielen Dank Klaus!

Danke für die Rückmeldung! owT.
05.03.2013 10:17:50
Klaus
.

77 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige