Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm: Datei per durchsuchen auswählen mit Pfad

Forumthread: UserForm: Datei per durchsuchen auswählen mit Pfad

UserForm: Datei per durchsuchen auswählen mit Pfad
11.11.2004 17:36:21
Andy
Hallo,
ich möchte gerne in der folgende Datei in dem UserForm im roten Feld einen Dateinamen per Durchsuchen auswählen. Der Dateiname soll dann mit Pfadangabe in der roten Zelle eingetragen werden.
Kann mir da jemand beim realisieren behilflich sein.
https://www.herber.de/bbs/user/13328.xl
Gruß
Andy
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm: Datei per durchsuchen auswählen mit Pfad
Udo
Das kannst du mit:
Application.GetOpenFileName erreichen!
Udo
AW: UserForm: Datei per durchsuchen auswählen mit Pfad
11.11.2004 17:43:31
Andy
Hallo Udo,
das hört sich ja schon gut an, aber ich bin leider nicht ganz so fit in Sachen VBA, wie baue ich das in mein UserForm ein? Muß ich einem Textfeld den VBA Code zuweisen.
Über eine kleine Hilfestellung würde ich mich freuen.
Gruß
Andy
Anzeige
AW: UserForm: Datei per durchsuchen auswählen mit Pfad
Udo
Sinnvoll wäre ein Button:

Private Sub CommandButton1_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
TextBox1 = strPfad
Else
MsgBox "Nichts ausgewählt!"
End If
End Sub

Udo
Danke ! besonders an Udo
11.11.2004 18:59:43
Andy
..
wie realisiere ich das?
11.11.2004 17:49:57
Andy
Hallo Udo,
das hört sich ja schon gut an, aber ich bin leider nicht ganz so fit in Sachen VBA, wie baue ich das in mein UserForm ein? Muß ich einem Textfeld den VBA Code zuweisen.
Über eine kleine Hilfestellung würde ich mich freuen.
Gruß
Andy
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

UserForm: Datei per Durchsuchen auswählen und Pfad einfügen

Schritt-für-Schritt-Anleitung

Um in einem UserForm in Excel einen Dateinamen auszuwählen und den Pfad in einer Zelle einzutragen, folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein UserForm hinzu: Klicke mit der rechten Maustaste auf "VBAProject" und wähle "Einfügen" > "UserForm".

  3. Füge ein Textfeld und einen Button hinzu: Ziehe ein Textfeld (TextBox) und einen Button (CommandButton) auf das UserForm.

  4. Baue den VBA-Code ein: Doppelklicke auf den Button und füge den folgenden Code ein:

    Private Sub CommandButton1_Click()
   Dim strPfad As Variant
   strPfad = Application.GetOpenFilename
   If strPfad <> False Then
       TextBox1 = strPfad
   Else
       MsgBox "Nichts ausgewählt!"
   End If
End Sub

  5. Speichere und teste dein UserForm: Schließe den VBA-Editor und teste dein UserForm in Excel.

Häufige Fehler und Lösungen

  • Fehler: Nichts ausgewählt!
    Lösung: Stelle sicher, dass du eine Datei auswählst, bevor du das Fenster schließt.

  • Fehler: TextBox wird nicht aktualisiert
    Lösung: Überprüfe, ob der Name des Textfeldes korrekt ist (TextBox1).

Alternative Methoden

Falls du keine VBA-Programmierung nutzen möchtest, kannst du auch die Funktion "Daten aus Text/CSV importieren" verwenden. Damit kannst du Dateien manuell auswählen und die Daten in Excel importieren.

  1. Gehe zu Daten > Daten abrufen > Aus Datei > Aus Text/CSV.
  2. Wähle die Datei aus und importiere die Daten.

Praktische Beispiele

Hier ein einfaches Beispiel, wie du den oben beschriebenen Code verwenden kannst:

  • Beispiel: Du hast ein UserForm mit einem Textfeld, in dem der Dateipfad angezeigt wird, und einem Button. Klicke auf den Button, um den Dateiauswahl-Dialog zu öffnen. Nach Auswahl wird der Pfad in das Textfeld eingefügt.

Tipps für Profis

  • Verwende Filter: Du kannst die GetOpenFilename-Methode mit Dateifiltern anpassen, um nur bestimmte Dateitypen anzuzeigen:

    strPfad = Application.GetOpenFilename("Excel-Dateien (*.xls; *.xlsx), *.xls; *.xlsx")

  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung, um unerwartete Probleme abzufangen und dem Benutzer eine verständliche Meldung anzuzeigen.

FAQ: Häufige Fragen

1. Wie kann ich das UserForm in Excel öffnen?
Du kannst das UserForm über einen Makro-Befehl oder einen Button in deinem Excel-Dokument öffnen, indem du UserForm1.Show im VBA-Code verwendest.

2. Muss ich VBA-Kenntnisse haben, um dies zu implementieren?
Ein grundlegendes Verständnis von VBA ist hilfreich, aber mit diesem einfachen Code kannst du auch als Anfänger starten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige