Hallo,
bei der folgenden Anweisung bekomme ich einen Laufzeitfehler bei With
hier bin ich mit meinem Latein am Ende - was läuft hier falsch ?
With Worksheets("Eintragung").Range("D1" & ":D" & iLeSpalte)
Set C = .Find(What:=CDate(iAktTg), LookIn:=xlValues)
With .Range("Cells(C.Row, C.Column)").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 4
End With
End With
Gruß Ralf