Hallo,

ich habe eine Liste bei Excel mit zwei Tabellenblättern. Auf dem ersten ist eine Maske zur Eingabe, auf dem zweiten werden die eingebenen Daten in eine Tabellenform gebracht. Das Makro hat immer funktioniert. Nun kam eine Änderung hinzu, sodass die Daten nach der Übertragung in Tabellenblatt 2 einen Rahmen hinzugefügt bekamen. Ich habe mehrfach das Makro neu erstellt, doch es ist mir unklar, wie dieser Fehler zu Stande kommt. Excel meldet: Laufzeitfehler 1004: Die LineStyle-Eigenschaft des Border-Objektes kann nicht festgestellt werden.

Der Code lautet:

Range("A4:M4").Select
Selection.Copy
Sheets("Liste").Select
Range("A4").Select
ActiveSheet.Paste
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("A5:O5").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
Sheets("Eingabe").Select
Range("A4:M4").Select
Selection.ClearContents
Selection.ClearContents
Range("A5").Select
ActiveCell.FormulaR1C1 = ""
Range("B9").Select

End Sub