Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner name übernhemen

Ordner name übernhemen
09.06.2006 12:22:07
Swen
Hallo an alle,
gibt es eine möglichkeit
einen Folder name ähnlich wie hier
hier
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("JPG Files (*.jpg), *.jpg")
der Filename ausgewählt werden kann
auszuwählen.
Gruß
Swen

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

Betreff
Datum
Anwender
Anzeige
AW: Ordner name übernhemen
09.06.2006 13:01:57
Matthias
Hallo Swen,
z.B. so:

Sub test()
MsgBox GetOrdner("C:\") 'Die Vorauswahl kannst du auch weglassen
End Sub
'Ordnerauswahl
Function GetOrdner(Optional ByVal def = "")
Dim objShell As Object, objfolder As Object
Set objShell = CreateObject("Shell.Application")
Set objfolder = objShell.BrowseForFolder(0, "Bitte einen Ordner wählen", 0, def)
If objfolder Is Nothing Then Exit Function
GetOrdner = objfolder.Self.Path
End Function

Gruß Matthias
AW: Ordner name übernehmen - Notlösung
09.06.2006 13:04:41
fcs
Hallo Swen,
ich meine ich hätte hier im Forum schon eine "elegante" Lösung gesehen.
Hier meine Notlösung, die aus einem Dateinamen den Pfad ermittelt.

Sub Ordner()
Dim Path As Variant
Path = Application.GetOpenFilename("(Alle), *.*")
If Path = False Then
Exit Sub 'Abbrechen wurde geklickt
Else
Do Until Right(Path, 1) = "\"
Path = Left(Path, Len(Path) - 1)
Loop
Path = Left(Path, Len(Path) - 1)
MsgBox Path
End If
End Sub

mfg
Franz
AW: Ordner name übernehmen - Notlösung
ransi
Hallo
Eleganter ist das hier:


Option Explicit
Public Sub test()
Dim datei
Dim pfad
datei = Application.GetOpenFilename
If datei <> False Then
    pfad = Replace(datei, Dir(datei), "")
    MsgBox pfad
End If
End Sub


macht aber im prinzip das gleiche.
ransi
Anzeige
AW: Ordner name übernehmen - Notlösung
12.06.2006 08:46:50
Swen
Hallo an alle,
vielen Dank!
Gruß
Swen
AW: Ordner name übernehmen - Notlösung
12.06.2006 08:47:37
Swen
thread war noch offen sorry

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige