Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenrahmen färben

Zellenrahmen färben
13.12.2022 10:18:13
Nikl
Hallo zusammen,
ich habe in meiner Excel-Datei dick umrandete Zellen.
Gerne würde ich diese, wenn sie vom Bearbeiter ausgefüllt wurden schwarz färben. Vorher sollen sie bei noch keinem Eintrag rot umrandet sein, damit der Bearbeiter sieht, dass noch Werte eingetragen werden müssen.
Mit bedingter Formatierung funktioniert das ganze leider nicht, da ich aufgrund der Optik die dicken Rahmenlinien behalten möchte.

Dim Zelle As Range
For Each Zelle In Range("D7,D5,E6:G6,D8:G8,D9,D10")
If Zelle.Value > 0 Then
Zelle.Select
With Selection.Borders(xlEdgeLeft)
.Color = RGB(255, 0, 0)
End With
With Selection.Borders(xlEdgeTop)
.Color = RGB(255, 0, 0)
End With
With Selection.Borders(xlEdgeBottom)
.Color = RGB(255, 0, 0)
End With
With Selection.Borders(xlEdgeRight)
.Color = RGB(255, 0, 0)
End With
End If
Next Zelle
Das ist mein bisheriger Versuch. Das ganze soll über SelectionChange laufen.
Mit freundlichen Grüßen
Nikl

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenrahmen färben
13.12.2022 10:41:34
onur
"Das ganze soll über SelectionChange laufen." ist Quatsch, da das bei Ändern der Zelle passieren muss. SelectionChange wird ausgeführt, nachdem die Zelle bereits verlassen wurde.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D7,D5,E6:G6,D8:G8,D9,D10")) Is Nothing Then Exit Sub
With Target
.Borders(xlEdgeLeft).Color = RGB(0, 0, 0)
.Borders(xlEdgeTop).Color = RGB(0, 0, 0)
.Borders(xlEdgeBottom).Color = RGB(0, 0, 0)
.Borders(xlEdgeRight).Color = RGB(0, 0, 0)
End With
End Sub

AW: Zellenrahmen färben
13.12.2022 11:23:34
Nikl
Hallo,
hilft mir leider wenig weiter...
Bei RBG(0,0,0) wird mir eine Fehlermeldung angezeigt.
Zusätzlich soll ja für jede Zelle geprüft werden, ob bereits gefüllt oder nicht und der Rahmen dann je nachdem rot oder schwarz gefärbt werden.
Zellen haben aber bereits einen schwarzen dicken rahmen eingestellt im Vorfeld.
Anzeige
AW: Zellenrahmen färben
13.12.2022 11:27:37
onur
1) Du hast den Code wohl gar nicht verstanden - es macht geanau das, was er soll.
2) Es heisst RGB undg nicht RBG.
AW: Zellenrahmen färben
13.12.2022 11:28:47
onur
Verstehen brauchst du den Code aber nicht - Kopieren (nicht abtippen!) - Einfügen - Fertig.
AW: Zellenrahmen färben
13.12.2022 11:29:58
Rudi
Hallo,
noch eine Möglichkeit:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngCOLOR As Long, i As Integer
If Not Intersect(Target, Range("D7,D5,E6:G6,D8:G8,D9,D10")) Is Nothing Then
lngCOLOR = IsEmpty(Target) * -255
With Target
For i = 7 To 10
.Borders(i).Color = lngCOLOR
Next i
End With
End If
End Sub

Anzeige
AW: Zellenrahmen färben
13.12.2022 11:53:18
Nikl
Hallo,
schon einmal danke für die Hilfe. Jedoch wird bei .Borders(i).Color = lngCOLOR eine Fehlermeldung ausgeworfen.
Zudem werden die verbundenen Zellen nicht rot eingefärbt.
Beispieldatei hier: https://www.herber.de/bbs/user/156695.xlsm
AW: Zellenrahmen färben
13.12.2022 12:40:18
Rudi
auch für verbundene Zellen:

 Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngCOLOR As Long, i As Integer
If Not Intersect(Target, Range("D7,D5,E6:G6,D8:G8,D9,D10")) Is Nothing Then
lngCOLOR = (Application.CountA(Target) = 0) * -255
With Target(1).MergeArea
For i = 7 To 10
With .Borders(i)
.Color = lngCOLOR
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Next i
End With
End If
End Sub

Anzeige
AW: Zellenrahmen färben
14.12.2022 08:23:37
Nikl
Hallo,
ich melde mich noch einmal zu diesem Thema.
Hier der aktuelle Code:

Dim i As Integer
If Intersect(Target, Range("D7,D5,E6:G6,D8:G8,D9,D10")) Is Nothing Then
With Target(1).MergeArea
For i = 7 To 10
With .Borders(i)
.Color = vbRed
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Next i
End With
ElseIf Range("D7,D5,E6:G6,D8:G8,D9,D10").Value  "" Then
With Target(1).MergeArea
For i = 7 To 10
With .Borders(i)
.Color = vbBlack
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Next i
End With
End If

Und unter diesem Link die Beispieltabelle: https://www.herber.de/bbs/user/156695.xlsm
Meine Vorstellung zur Funktion:
Es soll überprüft werden ob die Zellen D5, E6:G6, D7,D8:G8, D9 und D10 gefüllt sind.
- Falls jeweilige Zelle nicht gefüllt soll diese einen roten rahmen haben
- Wenn Zelle gefüllt Rahmen von rot auf schwarz ändern
Die Zellen haben jedoch, wie in der Beispieldatei zu sehen, bereits einen schwarzen rahmen hinterlegt.
Vielen dank für die Hilfe!
Anzeige
siehe 14.12.2022 11:03:19. owT
14.12.2022 14:29:28
Rudi

106 Forumthreads zu ähnlichen Themen

in Tabellenblättern suchen und Schriftfarbe ändern
ad

Hallo zusammen,
ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
13.08.2009 22:11:33
Thread-ID: 1095796
11 Beiträge
Anzeige
Nach Farben sortieren oder suchen
Volker

Hallo liebe Excelgemeinde
Meine Frage ist: Kann man nach Farben per Code sortieren?
Oder kann ich per Code z.B. in der Spalte H nach der Farbe Gelb (Color 6) suchen?
Gruss Volker
17.02.2010 21:33:38
Thread-ID: 1139366
6 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Anzeige
Nach Schriftfarbe suchen
Jockel

Hallo,
ich habe in einer Mappe zwei Tabellenblätter, die in Prinzip jeweils die gleichen Daten beinhalten, nur mit dem Unterschied, auf dem ersten Tabellenblatt sind in der Spalte A manche Einträge farblich rot markiert, auf dem zweiten Tabellenblatt ist dies nicht der Fall.
Einträge se...
22.10.2010 08:58:26
Thread-ID: 1183457
9 Beiträge
Position der Zeile mit aktive Zelle verändern
Karsten

Hallo,
ich möchte per Makro-Code die Zeile mit der aktive Zelle in den unteren Bereich knapp über die horizontale Bildlaufleiste bekommen.
Kann mir bitte jemand dabei helfen?
Besten Dank.
Karsten
13.11.2010 13:03:28
Thread-ID: 1186634
3 Beiträge
Zellenverbinden und Zellenfarbe ändern
Christian

Hallo alle zusammen,
ich hänge euch eine Bsp.-Datei an, Von Zeile 3 an wurde eine weitere Tabelle eingefügt. Wie bekomme ich es hin, dass die Spaltenbezeichnungen der Zeile 6 entsprechen, also z.B. die jetzige Spalte 3 und Spalte 4 dieselbe Spaltenbezeichnung haben, sodass ich z.B. nach ein...
02.10.2012 11:52:51
Thread-ID: 1280215
5 Beiträge
Markierte Zellen Farben ändern bei Rechtsklick
Burghard

Hallo,
das nachfolgende Makro funktioniert, allerdings nur für die aktive Zelle. Läßt sich das Makro umschreiben, so dass die Farbänderungen für alle markierten Zellen gelten?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ Boolean) App...
29.08.2013 21:07:20
Thread-ID: 1328873
6 Beiträge
Kopieren ohne Tabellenfarbe zu ändern
Stefan

Hi, eine Frage: Kann ich per Ziehen Zelen auch Kopieren, ohne dass die Farbe der Zellen geändert wird, also nur die FOrmeln geändert werden?
Daaaanke
Stefan
22.11.2013 11:53:35
Thread-ID: 1339668
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
22
5
4
5
8
2
4
5
2
9
1
12
8
4
3
6
3
1
1
1
13
13
3
6