lfd. Nr. per Code hinzufügen
12.10.2021 20:21:52
Heinz
ich könnte nochmal etwas Hilfe gebrauchen.
Das ist mein Code
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Eingangsr.31201-2021")
Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File
Set fo = fso.GetFolder(sh.Range("P1").Value)
Dim last_raw As Integer
For Each f In fo.Files
last_raw = sh.Range("K" & Application.Rows.Count).End(xlUp).Row + 1
sh.Range("K" & last_raw).Value = f.Name
lstrCompany = Split(f.Name, "_")(1)
lstrCompany = Left(lstrCompany, Len(lstrCompany) - 4)
sh.Range("B" & last_raw).Value = lstrCompany
Next
End Sub
in die Spalte B ab der ersten freien Zeile.
(Nebenbei macht er noch aus "123456_Microsoft" nur "Microsoft" usw.
In Spalte A steht eine lfd. Nr.
was muss ich noch der Schleife hinzufügen damit er die Nummerierung in Spalte A
entsprechend der Anzahl hinzugefügten der Dateinamen fortsetzt?
Ich habe ein wenig rumprobiert aber ich bekomme es nicht hin.
Gruß
Heinz
