ohne Select
Karsten
ich möchte u.st. Code ausführen ohne die Seite zu wechseln, bekomme es aber nicht hin. Kann mir jemand dabei helfen?
Danke
Gruß
Karsten
Sheets("Autokorrektur").Select
Range("D1:D4").Select
ActiveSheet.Paste
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Font.Bold = True
Selection.Font.Bold = False
Range("C1").Select
ActiveCell.FormulaR1C1 = "=MID(RC[1],1,3)"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=MID(RC[1],1,4)"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=MID(RC[1],1,5)"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=MID(RC[1],1,6)"
Range("C1:D4").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A1:B4").Select
Selection.Copy
Dim LetzteZelle As Long
LetzteZelle = Range("a5").End(xlDown).Row
Cells(LetzteZelle, 1).Activate
With ActiveCell
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("a1:D4").Select
Selection.Clear