Hallo Gast86152,
vielen Dak für die schnelle Antwort. Ich habe das mal so in meinen Code integriert. Leider klappt hier was nicht. Das Blatt bleibt am Ende stehen und wird nicht verschoben oder umbenannt. Ich erhalte auch keine Fehlermeldung. Tabelle5 oder ActiveSheet oder Sheet5 funktionieren alle nicht. (Bei Tabelle5 oder Sheet5 kommt der Fehler, dass meine Variable nicht definiert ist)
For Each wks In ThisWorkbook.Worksheets
If "EK" = Mid(wks.Name, InStr(wks.Name, " ") + 1, 3) Then
ActiveSheet.Move Before:=wks
Exit For
End If
Next
ActiveSheet.Name = Mid$(Datei2, InStr(Datei2, ".") - 5, 5) & " " & Mid$(Datei1, InStr(Datei1, ".") - 2, 2) & " " & Left(Datei1, 10)
Quellenarbeitsmappe.Close
Datei1 = Dir()
Was mache ich den hier falsch?
Vielen Dank schonmal
|