Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Datei auslesen und in Tabelle übertragen
 29.09.2022 13:31:08 Jens
NotSolved
29.09.2022 17:16:06 Gast60475
NotSolved

Ansicht des Beitrags:
Von:
Jens		 Datum:
29.09.2022 13:31:08		 Views:
901		 Rating:
     
Antwort:
  Ja
Thema:
Excel Datei auslesen und in Tabelle übertragen

Hi,

ich bin absoluter VBA Neuling und versuche gerade etwas "Schimpansenarbeit" in meinem Beruf zu digitalisieren.
Ich hab erst versucht, bereits vorhandene Codeblöcke meinen bedürfnissen gerecht zusammen zu fügen und komm aber irgendwie nicht weiter.

Aufgabe:

Ich möchte einen bestimmten Ordner auf der Festplatte  Auslesen und die Namen aller Unterordner in eine Spalte in Excel kopieren. Das klappt soweit.

Option Explicit

Public Sub OrdnerAuflisten()
Dim objFSO As Object
Dim folder As Object
Dim strPfad As String
Dim subFolder As Object, colSubfolders As Object
Dim i As Integer
    'Pfad hier ersetzen zum Verzeichnis, das ausgelesen werden soll
    strPfad = "T:\Topf1123\Personalentwicklung\05_Aufstieg LG2 (höherer Dienst)\Modulare Qualifizierung\_Fälle\Teilnehmer"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set folder = objFSO.GetFolder(strPfad)
    Set colSubfolders = folder.Subfolders
    'hier Startzeile-1 für Excel festlegen
    i = 2
    For Each subFolder In colSubfolders
        i = i + 1
        Range("A" & i).Value = subFolder.Name
    Next subFolder
    Set folder = Nothing
    Set colSubfolders = Nothing
    Set objFSO = Nothing
End Sub

 

Im nächsten Schritt (der klappt nicht) soll der Inhalt der Unterordner ausgelesen werden. Wenn ein vorgegebener Dateiname in diesem Ordner vorliegt, soll ein Feld in der gleichen Spalte grün markiert werden. Für 4 Dateinamen. Wenn alle 4 Dateinamen vorliegen, soll ein 5. Feld in der gleichen Spalte grün markiert werden.

Es folgen noch weitere Schritte, aber vielleicht komm ich nach einer kleinen Starthilfe wieder alleine.

Ich bedanke mich schonmal für die hilfe.

Jens

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
Rot Excel Datei auslesen und in Tabelle übertragen
 29.09.2022 13:31:08 Jens
NotSolved
29.09.2022 17:16:06 Gast60475
NotSolved