1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

WIN-Fenster als Exceldatei

Discussion in 'Office-Programme' started by C.C.A., Apr 22, 2004.

Thread Status:
Not open for further replies.
  1. C.C.A.

    C.C.A. Byte

    Moin.
    Mal wieder was Spezielles.
    Ich habe diverse Ordner in denen vieleviele WORD-Dateien sind.
    Die haben alle natürlich Namen.
    Diese Dateinamen möchte ich gerne in einer Excel-Liste haben.
    Gibt es da eine Ratzfatz-Methode?
    Es wäre unglaublich öde die ganzen Namen abtippen zu müssen......

    Danke

    C.C.A.
     
    C.C.A., Apr 22, 2004
    #1
  2. mschuetzda

    mschuetzda Megabyte

    Bei sovielen Dateien möchtest Du wahrscheinlich
    nicht jedes einzelne Verzeichnis bearbeiten.
    Der folgende Weg liest sich zwar erstmal kompliziert,
    aber es sind nur wenige Arbeitsschritte zum Ergebnis.

    Wenn es nicht zu unübersichtlich wäre, könntest du damit
    tausende Dateien in einer Batchdatei umbenennen.

    -------------------

    In der Dosbox oder einer Batch-Datei:

    dir *.doc /b /s > dirdat.txt

    schreibt die Dateiliste samt der Unterverzeichnisse
    in die Datei: dirdat.txt

    Diese mit Excel öffnen, dabei aber nicht in Spalten aufteilen!

    in Spalte a steht dann:

    LW:\Verzeichnis1\verzeichnis2\name1.doc
    LW:\Verzeichnis1\verzeichnis2\name2.doc

    Spalte A komplett in Spalte B kopieren
    Nur Spalte B markieren
    <Daten><Text in Spalten>
    <Getrennt><weiter>
    <Trennzeichen Andere> und \ eingeben
    <fertig stellen>

    Die Verzeichnisse sind jetzt von den Dateienamen getrennt.
    Bereiche mit Verzeichnissen markieren und mit Strg+- (Minustaste)
    entfernen (nach links)
    so dass letztendlich in A noch die Dateien mit Pfad und
    in B nur die Dateinamen mit Extension stehen.

    -------------------
    Hier ist jetzt die Stelle wo die Dateinamen editiert werden können!!!
    z.B. von name1.doc in name_neu1.doc

    (Wenn überall nur ein Punkt im Dateiname vorkommt, könnte man auch die Extension
    noch mit <Text in Spalten> separieren und in der Formel berücksichtigen.)

    ----------------------

    In C die Formel: = "ren " & A1 & " " &B1

    eintragen und nach unten kopieren.

    In C steht dann: ren LW:\Verzeichnis1\verzeichnis2\name1.doc name_neu1.doc

    Diese Spalte markieren und in eine neue Tabelle oder einen Texteditor kopieren,
    als reinen Text abspeichern zum Beispiel als umbenenne_all.bat und in der Dosbox
    ablaufen lassen.
     
    mschuetzda, Apr 22, 2004
    #2
  3. chancen

    chancen Kbyte

    Hallo C.C.A.,

    mit ?ner fast Ratztfatz-Methode geht das:
    Kopiere nachfolgendes Makro in den VBA-Editor:

    Liest alle *.doc-Files aus dem in A1 angegebenen Verzeichnis aus

    Option Explicit

    Sub ReadFiles()
    Dim iCounter As Integer
    With Application.FileSearch
    .LookIn = Range("A1").Value
    .Filename = "*.doc"
    .Execute
    For iCounter = 1 To .FoundFiles.Count
    Cells(iCounter + 1, 1).Value = Dir(.FoundFiles(iCounter))
    Next iCounter
    End With
    End Sub

    Getestet unter MS Excel2000.

    Gruß Tschoko
     
    chancen, Apr 22, 2004
    #3
Thread Status:
Not open for further replies.

Share This Page