Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro verändern

Makro verändern
22.03.2022 17:24:21
Michael
Guten Tag zusammen,
habe dieses Makro von Rudi als Unterstützung erhalten.
Läuft einwandfrei !

Private Sub Alle_Ordner_einlesen()
Dim oFS As Object, oFldr As Object, oSubFldr As Object, oFile As Object
Dim lRow As Long
lRow = 3
Set oFS = CreateObject("scripting.filesystemobject")
Set oFldr = oFS.GetFolder(Range("C2"))
For Each oSubFldr In oFldr.SubFolders
For Each oFile In oSubFldr.Files
Sheets("Explorer").Cells(lRow, 3) = oFile.Name
lRow = lRow + 1
Next oFile
Next oSubFldr
End Sub
Ich möchte gern das die letzte Belegte Zelle in Spalte "C" gewählt wird und darunter
mit den Dateien anfangen zu kopieren.
herzlichen Dank im Voraus,
gr michael d

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro verändern
22.03.2022 17:35:19
Oberschlumpf
Hi Michael,
dann schreib nicht...

lRow = 3
...sondern...

lRow = Cells(Rows.Count, 3).End(xlUp).Row
...das bedeutet so aber, dass du immer den Inhalt aus letzter, benutzer Zelle in Spalte C überschreibst.
Dem neuen Code ein + 1 angehängt, würde in die nächste freie Zelle in C schreiben...
Ciao
Thorsten
Danke Thorsten, habe so gemacht... -)
22.03.2022 17:59:14
Michael
Hallo Thorsten,
recht herzlichen Dank !
Habe so geändert, einwandfrei !
lRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
gr michael d
kleine Korrektur
22.03.2022 18:06:17
Oberschlumpf
Hi Michael,
ich hatte etwas übersehen.
Mach aus...

lRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
...das hier...

lRow = Sheets("Explorer").Cells(Sheets("Explorer").Rows.Count, 3).End(xlUp).Row + 1
du wirst sehr wahrsch keinen Unterschied im Ergebnis sehen, aber so ist alles korrekt referenziert.
Ciao
Thorsten
Anzeige
Sehr nett -)
22.03.2022 19:14:24
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige