---

Hallo Forum,

vorweg, Excel und ich sind noch keine Freunde!
Ich bearbeite gerade eine Tabelle nach, die mehr als Formular gedacht ist. Die Zellenrahmen sind zu dick. Muss ich die Rahmen einzelnd editieren, oder kennt jamand einen Weg allen auf einmal eine andere Linienstärke zuzuweisen?

Bin gespannt, Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

handelt es sich hierbei lediglich um Zellumrandungen (also einzelner Zellen) oder sind manche Zellen auch zusammengefasst und mit einem umschliessenden Rahmen umhüllt ?

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

beides. Manche Zellen sind verbunden und haben einen ganzen Rahmen, einzelne Zellen ebenso, einige haben gar nichts...

Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lothar,

versuch's mal hiermit.

CU, Bernd
--

Code:

---

Option Explicit

Sub ChangeWeight(src As Range, Weight As Integer)
  Dim cell As Range
  Dim arr As Variant, x As Variant
 
  arr = Array(xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop)
  For Each cell In src
      For Each x In arr
        If cell.Borders(x).LineStyle <> xlNone Then
            cell.Borders(x).Weight = Weight
        End If
      Next
  Next
End Sub

Sub TestIt()
  ' xlHairline = 1, xlThin = 2, xlMedium = -4138 oder xlThick =  4
  ChangeWeight Range("A1:G10"), xlMedium
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bernd,

Danke, ich kann den Code, mangels Kenntnis, nicht ausführen. War bestimmt schon ein paar mal hier im Forum, habe aber nix gefunden.
Wie geht das? Link?

Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Lothar.xls.txt

Hallo Lothar,

ich bin zwar nicht Bernd, aber habe dir trotzdem mal eine Tabelle mit verschiedenen Rahmen angehängt.
Die Makros von Bernd habe ich eingebaut, welche du per Button starten kannst.

Vielleicht kannst du das dann besser in deine Originaldatei übernehmen.

------------------
Gruß Rainer

Feedback wäre nett!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Fantastisch, Linie habe ich noch auf "Hairline" geändert und los ging's... Mit dem Makro hatte ich Schwierigkeiten, bin halt ACAD-verseucht. Allen Helfern einen schönen Tag, Grüße Lothar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP