ich habe jetzt schon eine ganze weile an meinem code herumprobiert, da ich allerdings nicht wirklich Ahnung von VBA habe komme ich nicht zum Ziel.
Mein Makro ist in einer Kalkulationsdatei, dabei wird aus einem Ordner der erstbeste Export geöffnet, ein Tabellenblatt kopiert und in der Kalkulationsdatei eingefügt, die Kalkulationsdatei wird dann unter neuem Namen in ein anderes Verzeichnis gespeichert. Der zuvor geöffnete Export wird dann geschlossen und soll im Anschluss aus dem Ordner in dem die Exporte liegen gelöscht werden.
Ich wollte das ganze im Loop haben, sodass eine Export Datei nach der anderen abgearbeitet wird, in die Kalkulatiosndatei kopiert und in neuem Verzeichnis gespeichert--> Export löschen und mit nächstem weitermachen bis der Ordner leer ist.
Das Problem das ich im Moment habe: Mit der Kill Funktion entferne ich direkt alle Exporte im Ordner, nicht nur den geöffneten. Irgendwie müssten man wohl eine temporäre Variable oder so etwas definieren damit der Export genau zugeordnet wird, habe das leider nicht hinbekommen.
Vielleicht kann mir ja jemand von euch helfen.
Im Anschluss noch mein bisheriger Code
Sub Start()
Dim lstrDatName As String
lstrDatName = Dir("C:\Users\Exporte" & "\" & "*.xlsx*")
If lstrDatName "" Then
Workbooks.Open "C:\Users\Exporte" & "\" & lstrDatName
lstrDatName = ""
Else
MsgBox "Datei nicht vorhanden"
Exit Sub
End If
Windows("Kalkulations-Tool.xlsm" _
).Activate
Sheets("Export").Select
Cells.Select
Selection.ClearContents
Windows(Dir("C:\Users\Exporte" & "\" & "*.xlsx*")).Activate
Cells.Select
Selection.copy
Windows("Kalkulations-Tool.xlsm" _
).Activate
Range("A1").Select
ActiveSheet.Paste
' Range a2 und range b2 sind die Zusammensetzungen die im Export stehen und den neuen Namen _
_
_
_
_
_
ergeben
ActiveWorkbook.SaveAs Filename:="C:\Users\Bereits Bearbeitete Exporte" & "\" & Range("a2") & _
_
_
_
_
_
" " & Range("b2") & " " & "Preisanpassung"
Workbooks(Dir("C:\Users\Exporte" & "\" & "*.xlsx*")).Close savechanges:=False
Kill ("C:\Users\Exporte" & "\" & "*.xlsx*")
End Sub