Thema Datum  Von Nutzer Rating
Antwort
Rot Dateiordner nach Dateinamen suchen und öffnen
 29.07.2016 12:17:52 Markus
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
29.07.2016 12:17:52		 Views:
1722		 Rating:
     
Antwort:
  Ja
Thema:
Dateiordner nach Dateinamen suchen und öffnen

Hallo zusammen!

Ich bin seit 2 Tagen dabei eine Excelliste zu basteln über die ich Zip Datein leichter/ schneller finde indem ich nur einen Teil des Namens in ein Feld eintrage und danach mit dem Befehlsbutton Suchen mir öffnen lasse.

Dies funktioniert einwandfrei! - Solange ich einen festen Ordner vorgebe in dem er suchen soll.

Mein Problem: Ich möchte dass er nicht nur den angegebenen Ordner durchforstet sondern auch deren Unterordner.

Gesucht wird nach Produktteilen die in verschiedenen Ordnern abliegen. Um eine Übersicht zu gewährleisten kann ich keinen globalen Ordner, wo alle Produkte drin sind anlegen und 2 mal sollen die Produkte nicht abliegen, somit müssen die Unterordner bestehen bleiben.

Mein Makro:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub DateienAuflisten()
    Dim strVerzeichnis As String
    Dim strTyp As String
    Dim strDateiname As String
    Dim loZeile As Long
    Dim Datei As String
     
    strTyp = "*.zip"
    Application.ScreenUpdating = False
    strVerzeichnis = "i:\DATEIPFAD\ÜBERORDNER\SPEZIELLER_UNTERORDER\"
    strDateiname = Dir(strVerzeichnis & strTyp)
    loZeile = 1
    Datei = ActiveSheet.Range("F13")  'hier tippe ich die ersten paar Zahlen ein, wie der Dateiname anfängt
    With ThisWorkbook.Worksheets(7) 'Tabellenblatt 7---- Wird in Finaldatei schon mit Namen angesprochen, falls Tabellenblatt mal verschoben wird.
        Do While strDateiname <> ""
            If InStr(strDateiname, Datei) > 0 Then .Cells(14, 1) = strDateiname  ' Zelle A14, hier wird der Link zur gefundenen Datei kurz abgespeichert
            strDateiname = Dir
            'loZeile = loZeile + 1
        Loop
    End With
     
    ActiveWorkbook.FollowHyperlink strVerzeichnis & ActiveSheet.Range("A14")
        
     
     
    Application.ScreenUpdating = True
MsgBox "fertig"   'Hier fange ich das Makro nur kurz ab, damit ich sehe, ob ich eine Endlosschleife drin habe.
 Range("A14").Select
    Selection.ClearContents   'hier lösche ich den kurz abgespeicherten Link wieder raus
End Sub

 

 

Ich habe schon versucht einfach nur den Backslash am Ende zu entfernen damit er in die Unterordner geht zum Suchen, was er aber nicht macht und im Internet habe ich bis jetzt keine nützliche Lösung meines Problems gefunden.

Ich hoffe ihr könnt mir weiterhelfen, besten Dank schonmal und ein schönes Wochenende,

 

Gruß Markus

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Dateiordner nach Dateinamen suchen und öffnen
 29.07.2016 12:17:52 Markus
NotSolved