VBA Rahmen einfügen
14.09.2016 14:38:13
Berndt
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
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
Anzeige