Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Rahmenfarben im Nachhinein ändern

Rahmenfarben im Nachhinein ändern
27.09.2003 11:55:27
Sammy
Hallo Excel-User,

ich habe für meinen Sohn (in Ausbildung) für seine Wochenberichte
eine Original-Berichtsheft-Vorlage mit Excel erstellt.

Alle Rahmenlinien sind schwarz. Nun möchte ich alle diese Rahmenlinien
in die Farbe dunkelgrün ändern. Gibt es die Möglichkeit, alle diese
Linien auf einem Schlag zu ändern (z.B. Makro)??

..oder bleibt mir nur der umständliche Weg, nämlich alle Zellen
mit gleicher Rahmenstärke zu markieren und über das Menü "Format -Zellen"
die Farbe auswählen und alle nochmals anklicken??
(Es sind viele unterschiedliche Rahmenstärken, wie in einem Berichtsheft!)

Für Eure Hilfe vielen Dank im Vorraus.

MfG
Sammy

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rahmenfarben im Nachhinein ändern
27.09.2003 13:40:48
Nepumuk
Hallo Sammy,
so geht's:


Option Explicit
Public Sub Rahmenfarbe_aendern()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
With zelle.Borders(xlEdgeLeft)
If .LineStyle <> xlNone Then .ColorIndex = 10
End With
With zelle.Borders(xlEdgeTop)
If .LineStyle <> xlNone Then .ColorIndex = 10
End With
With zelle.Borders(xlEdgeBottom)
If .LineStyle <> xlNone Then .ColorIndex = 10
End With
With zelle.Borders(xlEdgeRight)
If .LineStyle <> xlNone Then .ColorIndex = 10
End With
Next
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
DANKE Nepumuk
28.09.2003 22:52:24
Sammy
Herzlichen Dank an Nepumuk, es funkioniert.

Vielleicht noch einen kleinen Wunsch:
Sollte ich mal eine andere Farbe benötigen, muß
ich wahrscheinlich den Colorindex ändern.
Gibt es eine Übersicht, welche Farbe welchen Index
betrifft?

MfG
Sammy
AW: DANKE Nepumuk
29.09.2003 20:45:56
Nepumuk
Hallo Sammy,
lass einfach folgendes Programm laufen.


Option Explicit
Public Sub Farben()
Dim index As Integer
For index = 1 To 56
Cells(index, 1).Interior.ColorIndex = index
Cells(index, 2) = index
Next
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige