Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Rahmenfarben im Nachhinein ändern

Forumthread: 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
Anzeige

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Rahmenfarben in Excel nachträglich ändern


Schritt-für-Schritt-Anleitung

Um die Rahmenfarbe in Excel nachträglich zu ändern, kannst du ein einfaches VBA-Makro verwenden. Hier sind die Schritte:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code und füge ihn in das Modul ein:

    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
  4. Ändere den ColorIndex von 10 in die gewünschte Farbe (z.B. Green für dunkelgrün).

  5. Schließe den VBA-Editor und führe das Makro aus, um die Rahmenlinienfarbe zu ändern.


Häufige Fehler und Lösungen

  • Problem: Die Rahmenlinienfarbe lässt sich nicht ändern.

    • Lösung: Stelle sicher, dass die Zellen tatsächlich einen Rahmen haben. Überprüfe die Rahmenstile in den Zellen.
  • Problem: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du die Rahmenfarbe manuell ändern:

  1. Markiere die Zellen, deren Rahmenfarbe du ändern möchtest.
  2. Gehe zu Start > Format > Zellen formatieren.
  3. Wähle den Reiter Rahmen.
  4. Wähle die gewünschte Farbe und klicke auf OK.

Diese Methode kann jedoch zeitaufwendig sein, besonders bei vielen Zellen.


Praktische Beispiele

Angenommen, du hast eine Berichtsheft Vorlage in Excel erstellt und möchtest die Rahmenfarbe aller Zellen in dunkelgrün ändern:

  1. Füge das oben genannte VBA-Makro in dein Excel-Projekt ein.
  2. Stelle sicher, dass alle Zellen, die du ändern möchtest, im aktiven Arbeitsblatt verwendet werden.
  3. Führe das Makro aus, und alle Rahmenlinien werden entsprechend angepasst.

Tipps für Profis

  • Farbe anpassen: Wenn du die Farbe ändern möchtest, schau dir die Tabelle der ColorIndex-Werte an. Ein einfaches Makro kann dir helfen, die Indexe der Farben anzuzeigen.

  • Wiederverwendbare Makros: Speichere deine Makros in einer persönlichen Arbeitsmappe, damit du sie in jedem Excel-Dokument verwenden kannst.


FAQ: Häufige Fragen

1. Wie kann ich alle Rahmenlinien auf einmal ändern?
Du kannst ein Makro verwenden, wie das oben beschriebene, um alle Rahmenlinienfarben in einem Arbeitsblatt gleichzeitig zu ändern.

2. Wo finde ich eine Übersicht der ColorIndex-Werte?
Nutze das folgende Makro, um die ColorIndex-Werte anzuzeigen:

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

3. Kann ich die Rahmenfarbe auch in einer HTML-Tabelle ändern?
Ja, du kannst CSS verwenden, um die Rahmenfarbe in einer HTML-Tabelle zu ändern, indem du die border-color-Eigenschaft anpasst.

4. Welche Excel-Version benötigt man?
Die beschriebenen Methoden und VBA-Codes sind in den meisten modernen Excel-Versionen (ab Excel 2007) anwendbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige