Thema Datum  Von Nutzer Rating
Antwort
07.12.2016 15:55:48 Gast32354
NotSolved
07.12.2016 16:11:08 GraFri
NotSolved
07.12.2016 16:22:35 GraFri
NotSolved
Blau Datei über Filebrowser wählen
 07.12.2016 16:18:36 Gast52632
NotSolved

Ansicht des Beitrags:
Von:
Gast52632		 Datum:
07.12.2016 16:18:36		 Views:
618		 Rating:
     
Antwort:
  Ja
Thema:
Datei über Filebrowser wählen

Hab es geschafft.

Allerdings benötige ich jetzt noch eine weitere Variante.

Es sollen alle Dateien in einer zelle aufgelistet werden.

 

Private Sub CommandButton2_Click()

  '  ordnerauswahl
  Dim AppShell As Object
  Dim BrowseDir As Variant
  Dim Pfad As String
  Dim Dateiname As String, i As Integer
  Set AppShell = CreateObject("Shell.Application")
  Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
  On Error Resume Next
  Pfad = BrowseDir.items().Item().Path
  Dateiname = Dir$(Pfad & "\*.geo*")
  If Pfad = "" Then Exit Sub
  Do While Dateiname <> ""
  ActiveCell.Offset(i, 0) = Dateiname
  i = i + 1
  Dateiname = Dir$()
  Loop

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.12.2016 15:55:48 Gast32354
NotSolved
07.12.2016 16:11:08 GraFri
NotSolved
07.12.2016 16:22:35 GraFri
NotSolved
Blau Datei über Filebrowser wählen
 07.12.2016 16:18:36 Gast52632
NotSolved