rote Linie ziehen
08.10.2021 17:31:09
Benedict
Ich probiere eine Linie neu zu ziehen, aber da kommt stets ein RTE 1004, "Die LineStyle-Eigenschaft des Border-Objektes kann nicht festgelegt werden." Was mache ich falsch?
Private Sub RedLine()
Dim i As Integer, j As Integer, k As Integer, b As Integer
Dim Alt As Range, Neu As Range
i = Worksheets(16).Cells(Rows.Count, 1).End(xlUp).Row - 1 'Anzahl Teilnehmer
j = Worksheets(5).Cells(Rows.Count, 1).End(xlUp).Row - 1 'Anzahl Standorte
k = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Nummer der letzten Zeile
If Selection.Row