Ich möchte die letzte freie Zeile suchen und dort bei A=Erstellungsdatum, B=Teile des Dateinamens, C=Teile des Dateinamens, D=Teile des Dateinamens einfügen, dafür habe ich mir folgenden Code zusammengebastelt:
Cells(Range("A65536").End(xlUp).Row + 1, 1).Value = Format(FileDateTime(DateiName), "dd.mm.yyyy")
Cells(Range("B65536").End(xlUp).Row + 1, 2).Value = Left(DateiName, 10)
Cells(Range("C65536").End(xlUp).Row + 1, 3).Value = Mid(DateiName, 12, 8)
Cells(Range("D65536").End(xlUp).Row + 1, 4).Value = Mid(DateiName, 19, 1)
Nun meine frage, gibt es eine Möglichkeit das ganz abzukürzen?
Gruß