variabler Pfad in vba

Forumthread: variabler Pfad in vba

05.03.2019 23:12:40

G.Lang

Hallo zusammen,
im Moment bin ich ratlos.
Wie bekomme ich es hin, dass der feste Pfad siehe vba ("f:\test\") zu einem variablen Pfad wird?
Der Pfad sollte aus der Zelle T17 (z.B. f:\test\)herangezogen werden. Dort kann man dann händisch einen Pfad vergeben oder auch anpassen und muss nicht immer im Makro den Pfad anpassen.
Die Zelle T17 wird sich dauernd ändern, deshalb sollte der Pfad variabel sein.
Dies ist mein Codeschnipsel:

Sub makro1()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox "Bitte Lieferscheinnummer  " & fso.GetFolder("f:\test\").Files.Count + 1 & "    _
_
eingeben", 64, "Lieferscheinnummer"
Set fso = Nothing
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: variabler Pfad in vba

06.03.2019 00:01:44

G.Lang

AW: variabler Pfad in vba

06.03.2019 00:01:44

G.Lang

als gelöst markieren, habe es selbst lösen können
siehe Codeschnipsel:

Sub makro1()
Dim fso As Object
Dim Pfad As String
Pfad = ActiveSheet.Range("T17")
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox "Bitte Lieferscheinnummer  " & fso.GetFolder(Pfad).Files.Count + 1 & "  eingeben", 64, _
"Lieferscheinnummer"
Set fso = Nothing
End Sub

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um einen variablen Pfad in VBA zu verwenden, musst Du den Pfad aus einer Zelle einlesen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Excel und gehe zu dem Arbeitsblatt, das den Pfad enthält (z.B. in Zelle T17).
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Füge den folgenden VBA-Code in das Modul ein:

Sub makro1()
    Dim fso As Object
    Dim Pfad As String
    Pfad = ActiveSheet.Range("T17") ' Pfad aus Zelle T17 einlesen
    Set fso = CreateObject("Scripting.FileSystemObject")
    MsgBox "Bitte Lieferscheinnummer  " & fso.GetFolder(Pfad).Files.Count + 1 & "  eingeben", 64, "Lieferscheinnummer"
    Set fso = Nothing
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, um den variablen Pfad zu testen.

Häufige Fehler und Lösungen

Fehler: "Pfad nicht gefunden"
- Lösung: Überprüfe, ob der Pfad in Zelle T17 korrekt eingegeben ist. Achte auf die richtige Schreibweise und darauf, dass der Pfad tatsächlich existiert.
Fehler: "Typenunterschied"
- Lösung: Stelle sicher, dass die Zelle T17 einen Textwert enthält. Manchmal kann ein führendes Apostroph in Excel dazu führen, dass der Inhalt als Text interpretiert wird. Du kannst das Apostroph entfernen, indem Du die Zelle bearbeitest und das Zeichen löscht.

Alternative Methoden

Eine alternative Methode, um den Excel-Pfad auszulesen, ist die Verwendung eines Input-Dialogs. Das gibt dem Benutzer die Möglichkeit, den Pfad manuell einzugeben:

Sub makro2()
    Dim fso As Object
    Dim Pfad As String
    Pfad = InputBox("Bitte geben Sie den Pfad ein:", "Pfad eingeben")
    Set fso = CreateObject("Scripting.FileSystemObject")
    MsgBox "Bitte Lieferscheinnummer  " & fso.GetFolder(Pfad).Files.Count + 1 & "  eingeben", 64, "Lieferscheinnummer"
    Set fso = Nothing
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du den variablen Pfad in VBA nutzen kannst:

Beispiel 1: Pfad mit Hochkomma einfügen Wenn Du einen Pfad mit Hochkomma einfügen möchtest, stelle sicher, dass Du den Pfad in der Zelle richtig eingibst. Zum Beispiel: f:\test\'.
Beispiel 2: Hochkomma in einer Formel Du könntest auch Hochkommas in Formeln verwenden, um spezielle Textformate zu erstellen.

Tipps für Profis

Verwende die Trim-Funktion, um führende oder nachfolgende Leerzeichen aus dem Pfad zu entfernen, bevor Du ihn verwendest:

Pfad = Trim(ActiveSheet.Range("T17"))

Denke daran, dass Du auch die Hochkomma-Tastenkombination verwenden kannst, um schnell Hochkommas in Deine Eingaben zu integrieren, falls Du sie benötigst.

FAQ: Häufige Fragen

1. Wie kann ich ein Apostroph vor einer Zahl einfügen? Du kannst dies tun, indem Du die Zelle bearbeitest und ein Apostroph vor die Zahl setzt. Dies wird in Excel als Text behandelt.

2. Wie entferne ich ein Apostroph in Excel? Um ein Apostroph zu entfernen, kannst Du die Zelle auswählen, in der es sich befindet, und das Zeichen manuell löschen. Alternativ kannst Du die Funktion =WERT(A1) verwenden, um den Text in eine Zahl umzuwandeln, wenn A1 die Zelle mit dem Apostroph ist.

Beliebteste Forumthreads (12 Monate)