Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile Farblich markieren

Zeile Farblich markieren
01.02.2005 08:40:58
papabär
Ich habe hier folgenden Code ,der mir die aktive Zelle farblich markiert,
dabei jedoch die vorher vorhandene Farbe beim verlassen der Zelle wieder
herstellt.
Wie muss der Code geändert werden damit die ganze Zeile farblich markiert
wird?
Bin für jede Hilfe dankbar.
Gruss PapaBär

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wo? oT.
XYZ
-
AW: Zeile Farblich markieren
papabär
Hatte den Code vergessen
Option Explicit
Dim AlteFarbe As Integer, MarkierteZelle As String

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "Test"
If MarkierteZelle = "" Then
MarkierteZelle = Target.Address
AlteFarbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 4
Else
If Range(MarkierteZelle).Interior.ColorIndex = 4 Then
Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe
End If
AlteFarbe = Target.Interior.ColorIndex
MarkierteZelle = Target.Address
Target.Interior.ColorIndex = 4
End If
ActiveSheet.Protect "Test"
End Sub

Anzeige
AW: Zeile Farblich markieren
01.02.2005 08:44:01
papabär
Hatte den Code vergessen.
Option Explicit
Dim AlteFarbe As Integer, MarkierteZelle As String

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "Test"
If MarkierteZelle = "" Then
MarkierteZelle = Target.Address
AlteFarbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 4
Else
If Range(MarkierteZelle).Interior.ColorIndex = 4 Then
Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe
End If
AlteFarbe = Target.Interior.ColorIndex
MarkierteZelle = Target.Address
Target.Interior.ColorIndex = 4
End If
ActiveSheet.Protect "Test"
End Sub

Anzeige
AW: Zeile Farblich markieren
01.02.2005 08:47:23
papabär
Hatte den Code vergessen.
Option Explicit
Dim AlteFarbe As Integer, MarkierteZelle As String 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "Test"
If MarkierteZelle = "" Then
MarkierteZelle = Target.Address
AlteFarbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 4
Else
If Range(MarkierteZelle).Interior.ColorIndex = 4 Then
Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe
End If
AlteFarbe = Target.Interior.ColorIndex
MarkierteZelle = Target.Address
Target.Interior.ColorIndex = 4
End If
ActiveSheet.Protect "Test"
End Sub

Anzeige
Auf der Tastatur eingeschlafen? oT.
XYZ
-
AW: Zeile Farblich markieren
RR
Hallo,
dir kann dennoch geholfen werden:
Option Explicit
Dim AlteFarbe As Integer, MarkierteZelle As String, MZ As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "Test"
If MarkierteZelle = "" Then
MarkierteZelle = Target.Address
Set MZ = Target
AlteFarbe = Target.Interior.ColorIndex
Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 4
Else
If Range(MarkierteZelle).Interior.ColorIndex = 4 Then
Range(Cells(MZ.Row, 1), Cells(MZ.Row, 256)).Interior.ColorIndex = AlteFarbe
End If
AlteFarbe = Target.Interior.ColorIndex
MarkierteZelle = Target.Address
Set MZ = Target
Range(Cells(MZ.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 4
End If
ActiveSheet.Protect "Test"
End Sub

Gruß
RR
Anzeige
AW: Zeile Farblich markieren
01.02.2005 10:05:59
papabär
Ist nicht ganz ,das was ich brauche.
Die ursprüngliche Farbe der Zeile soll nach verlassen derselben
wieder hergestellt werden.
Trotzdem Danke für deine Hilfe
AW: Zeile Farblich markieren
RR
Hallo,
bei mir macht er das. Er färbt die Zeile grün und bei Verlassen "entfärbt" er sie wieder.
RR
AW: Zeile Farblich markieren
papabär
Hab beim kopieren irgendwie einen Fehler reingehauen.
Haut jetzt prima hin.
Herzlichen Dank für deine Mühe
Anzeige

197 Forumthreads zu ähnlichen Themen

Bedingte Formatierung - Datenbalken bei neg Werten
Gianleandro

Ich suche nach einer Möglichkeit die Datenbalken bei der bedingten Formatierung auch für negative Werte zu nutzen. Dabei schwebt mir eine Art Spielgelung der Datenbalken bei negativen Werten vor.
Wer hat dazu eine Idee?
https://www.herber.de/bbs/user/55283.xlsx
09.09.2008 14:22:24
Thread-ID: 1008498
3 Beiträge
Anzeige
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Anzeige
Gleiche Zellen markieren
Excel-F

Moin Gemeinde,
nachdem ich noch längerem Suchen im Netz keine Lösung für mein Problem gefunden habe, wende ich mich jetzt hilfesuchend an euch.
Folgendes Problem:
Ich habe einen fest definierten Bereich.
Hier sind Buchstaben eingetragen, Bsp. u ,k , s, f
Nun möchte ich alle...
17.03.2009 12:15:27
Thread-ID: 1061059
4 Beiträge
alle befüllten Zeilen einer Mappe zählen
Steffen

Hallo Ex(cel)perten,
wie muss ich meinen Code ergänzen, um alle befüllten Zeilen einer kompletten Arbeitsmappe ausgezählt zu bekommen?
für ein einzelnes Blatt kriege ich es hin, da keine leeren Zeilen zwischendrin vorhanden sind
all = Cells(Rows.Count, 1).End(xlUp).Row
Gruß
...
06.05.2009 10:51:40
Thread-ID: 1073279
5 Beiträge
Zeile markieren, wenn sich der Wert wechselt
Peter

Hallo Forum, ich habe mir mit Hilfe von Eueren Beiträgen ein Makro gebastelt. Jetzt sollte noch jeweils die letzte Zeile markiert werden, wenn sich der Wert ändert (s. Beispiel). Baue auf Euere Hilfe, habe in der Recherche nichts Passendes gefunden. Danke im voraus. Gruß Peter
Die Datei htt...
23.06.2009 17:03:12
Thread-ID: 1083879
8 Beiträge
Bedingte Formatierung mit mehreren Werten
Thorsten

Liebe Excel-Gurus,
ich benötige Hilfe bei folgendem Problem.
In der angehängten Tabelle möchte ich gerne, dass die Zeile bzw. das LAS und FAL
sich farblich verändern sobald in irgendeinem der oberen Fraktionen der Wert
Farbe (grün), Farbe (weiß) oder Farbe (braun) ausgewählt wir...
13.07.2009 17:09:04
Thread-ID: 1088289
2 Beiträge
Doppelte Werte + unterschiedliche Schreibweisen
Marcel

Hallo,
gibt es eine Möglichkeit, neben den bekannten Funktionen wie
- Bedingte Formatierung (ZÄHLENWENN($A$1;$A$18;A1)Größer1)
- WENN(VERGLEICH(A4;A:A;0)=ZEILE();"";"Doppelt")
sich doppelte Einträge eder Zellen einer Spalte Anzeigen zu lassen (10.000 Datensätze), wenn unterschie...
22.07.2009 13:47:42
Thread-ID: 1090530
7 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
2
6
10
4
6
3
4
7
1
6
6
3
2
6
7
8
15
3
1
1
3
5
3
5
2