Excel befüllen und aktualisieren, inkl. weiteren Daten

04.02.2026 18:22:53

Thomas Fisler

Erstmal ein freundliches HALLO in die Runde.

Ich gelange mit folgender Frage an Euch:

Ich befülle/aktualisiere die Spalte A Zeile 3 per Makro mit den Ordnernamen aus dem Pfad 'W:\Verwaltung', sortiert nach Namen.
Die Ordner können sich verändern; es kommen neue hinzu, andere verschwinden.
Das funktioniert einwandfrei.
[siehe Beispiel, grau hinterlegt]

Nun ergänze ich die Zeilen in den entsprechenden Spalten mit weiteren Werten/Daten.
Diese beziehen sich jeweils auf den Inhalt in der Spalte A.
[siehe Beispiel, blau hinterlegt]

Mein Anliegen:
Kann ich in einem Schritt (Makro) das Arbeitsblatt so aktualisieren, dass die Spalte A mit den neuen Ordnernamen befüllt wird UND die dazugehörigen weiteren Werte/Daten gleichzeitg richtigerorts übernommen werden?

AW: Excel befüllen und aktualisieren, inkl. weiteren Daten

04.02.2026 19:12:08

JoWE

Thomas,
welches Beispiel??
Gruß
Jochen

AW: Excel befüllen und aktualisieren, inkl. weiteren Daten

04.02.2026 20:28:21

xlKing

Hallo Thomas,

auch ich sehe leider kein Beispiel. Grundsätzlich hätte ich die Idee die alten Ordner nicht zu überschreiben, sondern die neuen unten an die Tabelle anzufügen. Dann kannst du bei den Ordnern, die sich mit den oberen doppeln, deren Spalten-Werte nach unten übernehmen. Danach kannst du die Zeilen mit den oberen Ordnern löschen. Ein entsprechender Code sollte relativ einfach sein. Aber ich warte aufs Beispiel.

Gruß Mr. K.

Könntest du dir...

05.02.2026 23:56:49

Case

Moin Thomas, :-)

... vorstellen, das Ganze auch per Power Query zu erledigen, oder muss es VBA sein? ;-)
Wenn ja - könnte ich dir ein Beispiel erstellen. ;-)

Servus
Case

AW: Excel befüllen und aktualisieren, inkl. weiteren Daten

06.02.2026 14:10:26

Piet

Hallo

ich kenne auch das Problem und biete eine weitere Lösung an. Ohne Durchstreichen.
Dieser Code kopiert alle Daten nach Spalte AA und listet den Ordner komplett neu auf.
Dann werden die Daten zu den Dateien die weiterhin existieren wieder generiert.
Jetzt musst du selbst entscheiden welche Lösung dir besser gefällt.

mfg Piet

Sub Ordnername_einlesen_Neu()



'alte Daten nach Spalte AA retten

Columns("A:C").Copy Columns("AA")

Range("A3:C6000").ClearContents

       

  Dim AC As Range, AJ As Range

  Dim strPfad As String, lngNext As Long

  Dim objFSO As Object, objFolder As Object

  Dim objSubfolder As Object, colSubfolders As Object

  

  strPfad = "W:\Verwaltung\"

  Set objFSO = CreateObject("Scripting.FileSystemObject")

  Set objFolder = objFSO.GetFolder(strPfad)

  Set colSubfolders = objFolder.Subfolders

 

  lngNext = 3  '1.Zeile zum auflisten

  For Each objSubfolder In colSubfolders

      Cells(lngNext, 1).Value = objSubfolder.Name

      lngNext = lngNext + 1

  Next objSubfolder

  

  'Daten aus Spalte AA zurückladen

  For Each AC In Range("AA3", [aa3].End(xlDown))

    For Each AJ In Range("A3", [a3].End(xlDown))

        If AC.Value = AJ.Value Then

           AJ.Cells(1, 2) = AC.Cells(1, 2)

           AJ.Cells(1, 3) = AC.Cells(1, 3)

           Exit For

        End If

    Next AJ

  Next AC

  

  Set objFolder = Nothing

  Set colSubfolders = Nothing

  Set objFSO = Nothing

End Sub

AW: Excel befüllen und aktualisieren, inkl. weiteren Daten

05.02.2026 02:12:33

Thomas Fisler

Sorry. Hier die Beispieldatei.

https://www.herber.de/bbs/user/180168.xlsm

AW: Excel befüllen und aktualisieren, inkl. weiteren Daten

05.02.2026 08:06:56

ralf_b

wenn du gleich am Anfang deines Codes den Bereich leer machst, gibt es keine Zuordnung der händisch eingetragenen Daten und der Ordnerliste mehr. Somit ist die richtige Zuordnung der Daten durch das neue Einlesen nur Zufall.
du könntest das clearcontents weglassen und statt dessen nur die nicht mehr Vorhandenen durchstreichen.
den Code über den ersten einfügen und clearcontents auskommentieren

'nicht vorhanden ordner durchstreichen

  Dim rng  As Range, rngtmp As Range

  Set rng = Range("A1:a6000")

  For Each rngtmp In rng.SpecialCells(xlCellTypeConstants)

    If Not objFSO.FolderExists(strPfad & rngtmp.Value) Then

          rngtmp.Resize(1, 3).Font.Strikethrough = True

    End If

  Next

AW: Excel befüllen und aktualisieren, inkl. weiteren Daten

05.02.2026 11:36:38

schauan

... oder Du kennzeichnest die entfallenen in einer zusätzlichen Spalte "Entfallen" z.b. mit "x". Dann kannst Du einfach filtern.
Schlimmstenfalls kannst Du auch mit Datum arbeiten, wenn Du neuen Einträgen ein "Startdatum" zuweist und den entfallenen ein "Enddatum" - manchmal ist so was von Interesse.

Excel befüllen und aktualisieren, inkl. weiteren Daten

Forumthread: Excel befüllen und aktualisieren, inkl. weiteren Daten

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Excel befüllen und aktualisieren, inkl. weiteren Daten

Forumthread: Excel befüllen und aktualisieren, inkl. weiteren Daten

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread