ich füge mit folgenden Code eine Zeile an einer Tabelle an.
Folgender Code:
Private Sub CommandButton2_Click()
' neue Zeile einfügen für Thema
Dim EZ As Double
EZ = Evaluate("=MIN(IF(B6:B65536="""",ROW(6:65536)))")
Rows(EZ).Insert Shift:=xlDown
Rows(EZ - 1).Copy
Rows(EZ).PasteSpecial Paste:=xlPasteFormats
Rows(EZ).Borders(xlEdgeBottom).LineStyle = 1
Application.CutCopyMode = False
End Sub
Ich möchte nun erreichen, damit der nicht die ganzel Zeile Linestyle=1 bekommt sondern nur der Bereich Spalte B bis E.Füge ich eine neue Zeile ein, soll der erstellte untere Rahmen gelöscht werden und in der jetzt neuen letzten Zeile eingefügt werden.
Das heißt es bekommt immer nur die letzte Zeile .Borders(xlEdgeBottom).LineStyle = 1
Kann wer helfen?
VG Berndt