ich habe folgendes Problem mit einem Makro zu lösen:
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Range("C10:FU64").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Range("C10").Select
ActiveSheet.Protect
End Sub
Soweit alles ok, aber gleichfalls soll das Makro auch alle Nachbarzellen leeren, deren Format gelöscht wurde.
Mit ActiveCell.Offset(0, 1) = "" passiert gar nichts.
Kann jemand helfen ?
Vielen Dank und Grüsse an alle
Mario