Sub TP_Edit()
Dim ZBU3Date As String
Dim quelleDatei As Workbook
Dim zielDatei As Workbook
Dim quelleBereich As Range
Dim zielBereich As Range
Dim folderPath As String
Dim CurrentDate As String
Dim CurrentWeek As String
Dim EndDate As String
folderPath = ActiveWorkbook.ActiveSheet.Range("C9").Value
ZBU3Date = ActiveWorkbook.ActiveSheet.Range("C18").Value
CurrentDate = ActiveWorkbook.ActiveSheet.Range("C14").Value
CurrentWeek = ActiveWorkbook.ActiveSheet.Range("C6").Value
EndDate = ActiveWorkbook.ActiveSheet.Range("C19").Value
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim quellePfad As String
quellePfad = folderPath & "\" & "ZBU3_" & ZBU3Date & ".XLS"
Dim zielPfad As String
zielPfad = folderPath & "\" & "ZBU3W_Master.xlsb"
Set quelleDatei = Workbooks.Open(quellePfad)
Range("F3:O5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "General"
Set zielDatei = Workbooks.Open(zielPfad)
LetzteZeile = quelleDatei.Sheets("ZBU3_" & ZBU3Date).Cells(Rows.Count, 1).End(xlUp).Row
Set quelleBereich = quelleDatei.Sheets(1).Range("A3:I" & LetzteZeile)
Set zielBereich = zielDatei.Sheets("XLSB").Range("A3:I" & LetzteZeile)
quelleBereich.Copy Destination:=zielBereich
Dim cell As Range
For Each cell In zielBereich
If InStr(1, cell.Value, ",", vbTextCompare) > 0 Then
cell.Value = Replace(cell.Value, ",", "")
End If
Next cell
Set quelleBereich = quelleDatei.Sheets(1).Range("J3:S" & LetzteZeile)
Set zielBereich = zielDatei.Sheets("XLSB").Range("M3:V" & LetzteZeile)
quelleBereich.Copy Destination:=zielBereich
Range("J3:L3").Select
Selection.AutoFill Destination:=Range("J3:L" & LetzteZeile), Type:=xlFillDefault
ActiveWorkbook.Sheets("XLSB").Range("A2:V2").AutoFilter Field:=12, Criteria1:="<>0"
quelleDatei.Close SaveChanges:=False
zielDatei.SaveAs folderPath & "\" & "ZBU3W_" & CurrentDate & " P+T " & CurrentWeek & "-" & EndDate & ".xlsb", FileFormat:=50
zielDatei.Close SaveChanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub