Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1680to1684
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
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gesamte Zeile der activen Zelle farbig markieren.

Gesamte Zeile der activen Zelle farbig markieren.
12.03.2019 17:53:11
David@rittgardt.de
Hallo,
mit diesem Code färbe ich die ganze Zeile einer aktiven Zelle: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
With Target
.EntireRow.Interior.Color = vbCyan
End With
Application.ScreenUpdating = True
End Sub
Hierdurch ändert sich allerdings kontinuierlich die aktuelle farbliche formatierung der Zellen.
Ich hatte schon einmal einen Code, der die ursprüngliche formatierung wiederherstellt.
Kann mir da jemand auf die Sprünge helfen?
Vielen Dank.
David

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gesamte Zeile der activen Zelle farbig markieren.
12.03.2019 17:57:39
David
Sorry in dem Moment habe ich es gefunden :)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Const cnNUMCOLS As Long = 256
Const cnHIGHLIGHTCOLOR As Long = 36  'default lt. yellow
Static rOld As Range
Static nColorIndices(1 To cnNUMCOLS) As Long
Dim i As Long
Application.ScreenUpdating = False
If Not rOld Is Nothing Then 'Restore color indices
With rOld.Cells
If .Row = ActiveCell.Row Then Exit Sub 'same row, don't restore
For i = 1 To cnNUMCOLS
If nColorIndices(i) = xlNone Then
.Item(i).Interior.ColorIndex = xlNone
Else
.Item(i).Interior.Color = nColorIndices(i)
End If
Next i
End With
End If
Set rOld = Cells(ActiveCell.Row, 1).Resize(1, cnNUMCOLS)
With rOld
For i = 1 To cnNUMCOLS
nColorIndices(i) = .Item(i).Interior.Color
If .Item(i).Interior.ColorIndex = xlNone Then
nColorIndices(i) = xlNone
Else
nColorIndices(i) = .Item(i).Interior.Color
End If
Next i
.Interior.ColorIndex = cnHIGHLIGHTCOLOR
End With
Application.ScreenUpdating = True
End Sub
Quelle: https://www.mrexcel.com/forum/excel-questions/657614-highlight-entire-row-when-cell-selcted-without-losing-orginal-formats-color-orginal-row.html
Anzeige
AW: Gesamte Zeile der activen Zelle farbig markieren.
12.03.2019 18:40:15
Luschi
Hallo David,
dieser Code ist doch hirnrissig, denn er vergrößert den benutzten Bereich einer Tabelle sinnlos groß; Beispiel:
- leere Arbeitsmappe erstellen
- in Tabelle1!B2 einen Wert eintragen
- in Tabelle1!E5 einen Wert eintragen
- Ergebnis von Debug.Print Tabelle1.UsedRange.Address --» $B$2:$E$5
- den Schönheitscode ins Klassenmodul Tabelle1 kopieren
- Zelle B5 mit Maus markieren
- neues Ergebnis: --» $A$2:$IV$5
Also total verschwenderisch und der User wundert sich, warum die Excel-Datei immer größer wird, obwohl doch nur per Maus Markierungen gemacht wurden.
Gruß von Luschi
aus klein-Paris
Anzeige

315 Forumthreads zu ähnlichen Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
Anzeige
VBA Text suchen > Zeile durch Zelle markieren
Steffen

Hi Zusammen,
ich habe ein Tabellenblatt in dem in den Spalten A bis X jede einzelne Zelle nach einem bestimmten Begriff
durchsucht werden soll. Wenn der Begriff (Text) in einer Zeile vorhanden ist soll in Spalte Y in der entsprechenden Zeile ein "x" gesetzt werden.
Soweit bin ich...
24.09.2009 15:26:22
Thread-ID: 1105312
3 Beiträge
VBA: Gültigkeit für eine Zelle zuweisen
André

Moin zusammen,
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei...
22.03.2010 14:10:36
Thread-ID: 1147568
3 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 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
7
6
2
1
3
2
2
2
6
17
4
4
2
5
7
2
7
2
5
2
2
2
3
8
2