Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile Farblich markieren

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

Anzeige

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
01.02.2005 10:16:17
Josef
Hallo ? (realnames sind hier üblich und erwünscht!)
Schau dir mal dieses AddIn an!
http://www.add-in-world.com/katalog/xl-mauszeiger/
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
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
;

Forumthreads zu verwandten 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
Zellen farblich Markieren
Hans

Hallo Leute,
Mit den beiden Codes markiere ich bestimmte Zellen farbig (hellgelb, bzw. hellgrau), was auch funktioniert. Allerdings muss ich die Farben im Code festlegen, was ich eigentlich nicht möchte. Ist es möglich die Farbe aus bestimmten Zellen auszulesen und diese per Code einzutrag...
12.10.2008 12:08:00
Thread-ID: 1015830
7 Beiträge
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 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
Zeile farbig markieren
Peter

Hallo,
ich möchte die Zeile, in der ich etwas verändere, farbig hervorheben. Mit _
Worksheet_SelectionChange geht das ja recht einfach. Die zuvor markierte Zeile soll dabei _ wieder entmarkiert werden. Wenn ich aber die Anweisungen Private Sub Worksheet_SelectionChange … benutze ka...
29.08.2009 20:01:11
Thread-ID: 1099349
7 Beiträge
Anzeige
identische Einträge farblich markieren
BartekBartek

Hallo zusammen,
ich moechte um fachkundige Hilfe bezüglich folgender Aufgabenstellung bitten:
Ich habe 5 Spalten. IJede Spalte ist für je ein Produkt vorgesehen und in jeder Spalte sind Teilenummern des Produktes aufgelistet.
Nun möchte ich via macro folgendes erreichen:
Wenn In...
08.09.2009 05:33:33
Thread-ID: 1101143
4 Beiträge
Zellen farblich markieren
Uwe.Siebers

Guten Morgen,
in einem Arbeitsblatt "Zeitdaten" befinden sich in den Zellen "B6:B36" die Angaben zu den Tagen eines Monats (01 bis z.B. 31) In den Zellen "C6:C36" stehen dazu die Wochentage (z.B. Sa, So)
Wie bekomme ich`s nun hin, das die Zellen im Bereich "B6:Z36" immer dann farblich h...
10.09.2009 10:09:17
Thread-ID: 1101686
3 Beiträge
Zeilen farbig markieren
Frank

Guten Abend und Hallo,
Ich habe eine ComboBox die mit Werten Zahlen gefüllt ist. Wenn ich nun einen Wert auswähle wird diese entsprechende Zeile in Excel markiert. ABer wie erreiche ich, dass sobald ich die nächste wähle, die alte Zeile ohne Farbe angezeigt wird?
Private Sub ComboBox1_C...
22.09.2009 21:39:28
Thread-ID: 1104753
7 Beiträge
Anzeige
Gleiche Werte in Spalte markieren
Larissa

Hallo,
ich möchte mit einem Makro in einer Spalte alle Zellen mit dem gleichen Wert markieren.
Mit meinem Makro wird nur die erste Zelle mit dem Wert markiert:
Dim Belegnr As String
Belegnr = ActiveCell.Offset(0, -14)
Sheets("Kontierung").Select
Range("B:B").Find(Belegnr...
27.09.2009 22:24:30
Thread-ID: 1105923
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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