Office: (Office 2016) Zeilen farbig hervorheben und anschließend "zurücksetzen"

<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Helvetica Neue'; color: #454545}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Helvetica Neue'; color: #454545; min-height: 14.0px}</style>Hallo zusammen,


Ich habe ein Problem, bei dem Ihr mir sicher helfen könnt.


Ich habe eine Tabelle, die circa 3.000 Zeilen hat. Die Zeilen sind teils farbig (insgesamt 3 Farben).


Nun möchte ich, dass in dieser Tabelle (nicht in der gesamten Arbeitsmappe), die aktive Zeile farblich hervorgehoben wird.


Nun habe ich im Internet schon diverse Makros gefunden, die genau das machen. Leider gelten diese Makros immer für die gesamte Arbeitsmappe und (was noch „schlimmer“ ist) wenn ich in eine farbige Zeile klicke, wird anschließend deren Farbe entfernt und nicht, wie gewünscht, die ursprüngliche Farbe wiederhergestellt.


Könnt Ihr mir vielleicht helfen? Leider habe ich noch nicht allzuviel Ahnung was Makros angeht. Ich google mir die immer irgendwie zurecht und teste bis des funktioniert.


Das folgende Makros habe ich mir mal rausgesucht, aber leider hat es die oben genannten Probleme.


Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)


Static prevCell As Range
If Not prevCell Is Nothing Then
prevCell.EntireRow.Interior.ColorIndex = xlColorIndexNone
End If
Target.EntireRow.Interior.Color = RGB(255, 200, 200)
Set prevCell = Target


End Sub


Gruß
Micha

 

Hi Micha,

schau dich mal auf der HP von Hajo Ziplies um, speziel hier: http://hajo-excel.de/vba_markieren_zeile.htm - da findest du einige Beispiele zum temporären Markieren von Zeilen.

Bis später,
Karin

 

Hallo Karin,

vielen Dank für Deine Antwort :-)

das sieht doch sehr gut aus. Das ich die Markierung ein- und ausschalten kann, ist ja noch besser. Da ich nun sozusagen Makro-Laie bin, habe ich noch eine Frage. Ich habe das Beispiel "Zeile markieren6" ausgewählt. Muss ich den ganzen Code aus "DieseArbeitsmappe"in meine kopieren oder nur einen bestimmten Teil? Wenn ja welchen ... und kann ich die Farbe wechseln?

Gruß
Micha

 

Hi Micha,

ja, du musst ALLEN in der Mappe vorhandenen Code in deine Mappe kopieren, komplett auch beide Module.

Das Beispiel ist so angelegt, dass in jedem Tabellenblatt eine andere Farbe verwendet wird. Wenn es nur eine Farbe sein soll, dann suche mal die Sub Auslesen() im Modul mdl_Zeile_markieren - in der Zeile ByFarbe = ActiveSheet.Index Mod 53 + 3 ersetzt du den kompletten rechten Teil nach dem Gleicheitszeichen durch den von dir gewünschten Farbindex.

Bis später,
Karin

 

Hallo Karin,

okay, ich habe das jetzt in meine Mappe eingefügt und die Farbe geändert. Funktioniert soweit super. Nur mit dem Ein- und Ausschalten habe ich noch ein paar Probleme.

Im ersten Tabellenblatt (dem wichtigsten) gibt es kein Kontextmenü-Punkt Markierung. Dafür habe ich in alles anderen Tabellenblättern den Menüpunkt 4 mal. Hast Du eine Idee, woran das liegt?

Gruß
Micha

 

Hi Micha,

das kann ich leider nicht nachvollziehen - vom Code her sollte das Menü in allen Tabellenblättern und da auch nur jeweils einmalig vorhanden sein. Lade deine Mappe hoch.

Bis später,
Karin

 

Hallo Karin,

ich habe die Datei mal etwas gekürzt, damit sie nicht so groß ist.

Ich bekomme schon ein schlechtes Gewissen und weiß gar nicht, wie ich Dir danken soll ...

Gruß
Micha

 

Hi Micha,

ich kann da leider keine Ursache für das Problem finden. Der einfachste Weg wäre, wenn du dich an Hajo selbst wendest (Mailadresse findest du auf seiner HP), ihm das Problem schilderst und deine Problemmappe an die Mail anhängst.

Bis später,
Karin