Habt Ihr eine Ahnung warum das bei diesem Makro absolut nicht
funktioniert mit dem Echo on und off.
Application.ScreenUpdating = False 'Echo on
Application.Goto Reference:="DB1"
Selection.Copy
Range("A2").Select
Application.Goto Reference:="DR1"
Cells.Find(What:="BOFXX1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveCell.Offset(1, 0).Range("A1").Select
Cells.Find(What:="BOFXX1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.ClearContents
ActiveCell.Offset(9, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "BOFXX1"
ActiveCell.Offset(1, 0).Range("A1").Select
Application.ScreenUpdating = True 'Echo OFF
ActiveWorkbook.Save
Range("A2").Select
Application.Goto Reference:="KD"
End Sub