Guten Morgen,kann ich folgendes Makro auch anders Schreiben? With Range("H35,J35,L35,N35,P35,R35,T35,V35,X35,Z35,AB35,AD35,AF35,AH35,AJ35,")
.Borders(xlEdgeLeft).ColorIndex = 2
End With
With Range("G36,I36,K36,M36,O36,Q36,S36,U36,W36,Y36,AA36,AC36,AE36,AG36,AI36")