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

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

Anzeige

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
.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Pfad im Excel-Tabellenblatt hinterlegen


Schritt-für-Schritt-Anleitung

Um einen Pfad in einem Excel-Tabellenblatt zu hinterlegen, kannst Du den folgenden VBA-Code verwenden. Dieser öffnet einen Ordnerauswahl-Dialog und speichert den ausgewählten Pfad in die Zelle A1 des Arbeitsblatts "HT".

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Kopiere den folgenden Code in das Modul:
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
        ThisWorkbook.Sheets("HT").Range("A1").Value = strOrdner
    End If
End Sub
  1. Schließe den VBA-Editor und gehe zurück zu Excel.
  2. Führe das Makro aus, um den Ordner auszuwählen und den Pfad zu speichern.

Häufige Fehler und Lösungen

  • Fehler: „Kein Ordner gewählt!“

    • Lösung: Stelle sicher, dass Du einen Ordner auswählst und den Dialog nicht abbrichst.
  • Fehler: Pfad wird nicht angezeigt.

    • Lösung: Prüfe, ob die Zelle A1 im Blatt „HT“ korrekt referenziert wird.
  • Fehler: VBA funktioniert nicht.

    • Lösung: Stelle sicher, dass Du Makros in Excel aktiviert hast.

Alternative Methoden

Wenn Du den Pfad direkt in einer Zelle angeben möchtest, kannst Du auch eine Eingabemaske verwenden. Diese Methode erfordert kein VBA und ist einfacher für Anfänger:

  1. Wähle die Zelle aus, in der der Pfad erscheinen soll.
  2. Tippe den Pfad manuell ein oder kopiere ihn aus dem Datei-Explorer.

Praktische Beispiele

  1. Speichern des Pfades für zukünftige Verwendungen: Du kannst den VBA-Code erweitern, um den Pfad beim Speichern der Datei zu verwenden. So kannst Du den excel vba speichern unter dialog nutzen, um den Pfad direkt beim Speichern zu setzen.

  2. Verwendung in Outlook: Wenn Du auch mit Outlook arbeitest, kannst Du den outlook vba ordner auswählen verwenden, um Ordner für E-Mail-Anhänge auszuwählen.


Tipps für Profis

  • Nutze die excel vba datei auswählen und pfad speichern-Funktion, um Dateien direkt aus dem Dialog auszuwählen und den Pfad zu speichern.
  • Verwende vba dateipfad auswählen, um sicherzustellen, dass Du den richtigen Pfad für Deine Anwendung erhältst.
  • Experimentiere mit benutzerdefinierten Dialogen, um die Benutzeroberfläche zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, um mehrere Pfade auszuwählen?
Du kannst den Code erweitern, indem Du eine Schleife einfügst, die es ermöglicht, mehrere Ordner auszuwählen und diese in verschiedenen Zellen zu speichern.

2. Welche Excel-Version wird benötigt?
Der bereitgestellte VBA-Code funktioniert in Excel 2010 und höheren Versionen. Achte darauf, dass Du Makros aktiviert hast, um den Code auszuführen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige