Rahmenfarbe: Zellen gleichzeitig Farbe zuordnen

Computer: Software & Programmierung Office Software
1

Hallo Zusammen,

ich habe ein kleine großes Problem. Ich habe ca. 8 Tabellenblätter, bei denen ich alle Zellen mit verschiedenen Rahmen eingegrenzt habe. Ich habe die Rahmenfarbe schwarz. Jetzt möchte ich aber, dass alle Rahmen in der ganzen Mappe (also in jedem Sheet) die Farbe dunkelgrau haben.

Jedes Tabellenblatt einzeln markieren, dann über Zellen formatieren, Rahmenfarbe auswählen, funktioniert nicht. Ich habe nämlich verschiedene Stärken verwendet. Ich müsste jede Zelle einzeln markieren, dann den Rahmen (in Zelle formatieren), und dann die Farbe so zuorden. Das ist sehr umständlich, da ich viel zu viele eingerahmte Zellen habe.

Gibt es eine schnelle Möglichkeit, alle RAHMEN eines Sheets (oder besser gesagt allen Rahmen der kompletten Mappe) eine Farbe auf ein Mal zuzuordnen?

Viele Grüße,
Giuli

2

Hi Guili,
probier mal das nachfolgende Makro, logischerweise an einer Kopie nicht in der originaldatei *g
Gruß
Reinhard

Sub giuli()
For Each wks In ThisWorkbook.Worksheets
 With wks
 For Each Zelle In .UsedRange
 For n = 7 To 10 
 If Zelle.Borders(n).LineStyle -4142 Then Zelle.Borders(n).ColorIndex = 15
 Next n
 Next Zelle
 End With
Next wks
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]