Wie kann ich diese Dateien im Excel einbauern und bearbeiten????

  • geschlossen
  • Problem

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Wie kann ich diese Dateien im Excel einbauern und bearbeiten????

    :) Hallo Ihr Lieben :)

    Ich habe hier ein paar Datein die ich im Excel reinkopieren möchte um es dann besser zu bearbeiten. Wie geht es????

    Das sind die Dateien:

    25.01.2002 12:45 3.228.751 01 Jack Green - Murder.mp3
    25.01.2002 12:45 3.609.010 02 John Lawton - Heartbeat.mp3
    25.01.2002 12:45 3.395.851 03 Machjavel - Fly.mp3

    Ich möchte das das Datum die Uhrzeit und die Zahlen und der Namen jeweils in seiner eigene Tabelle ist So das ich dann Später die einzelne Reihe Löschen kann.
    Weil ich habe jede menge von die Datein und das alles mit der Hand einzeln zu löschen das Dauert viel zu lange. :(

    Ich bitte Dringend um euere Hilfe! Wer mir Helfen kann dem bin ich wirklich sehr Dankbar!!! :read:

    Euere kleinehexe
  • Ich weiß ja nicht, ob ich dich richtig verstanden habe, aber fall "ja", dann mach es so:

    1. Kopiere die Daten (nicht die Dateien, sondern die o.a. Zeilen) in eine Excel-Tabelle.
    2. Markiere die 1. Spalte mit den Daten
    3. (Menü) Daten | Text in Spalten ...
    4. Wähle das Leerzeichen als Trenn-Element

    Das soll es dann gewesen sein.
    Internette Grüße
    von der Nautilus
    cpt. Nemo
  • mit dem Makro unten kannst du direkt die Dateinamen aus einem Verzeichnis in excel einlesen...


    Sub dateieneinlesen()
    Dim sFile As String, sPattern As String, sPath As String
    Dim iRow As Integer
    Columns(1).ClearContents
    sPath = InputBox( _
    prompt:="Pfad:", Default:="C:\")
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
    sPattern = InputBox( _
    prompt:="Dateifilter:", Default:="*.xls")
    sFile = Dir(sPath & sPattern)
    Do Until sFile = ""
    iRow = iRow + 1
    Cells(iRow, 1).Value = sFile
    sFile = Dir()
    Loop
    End Sub