VBA -active Zelle/Zeile farbig hervorheben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
zum markiern der aktiven Zelle und Zeile würde ich die Bedingte Formatierung nutzen.
das hat den Vorteil, dass du die Originialformate nicht löscht und diese automatisch wieder auftauchen, wenn du eine andere Zelle markierst.
gehe so vor:
schreibe in das Modul des Tabellenblatts diesen Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Row
Range("B1").Value = ActiveCell.Column
End Sub

dieser Code scheibt die Zeilennummer der aktiven Zelle in die Zelle A1 und die Spaltennummer in die Zelle B1 (du kannst natürlich auch jede andere freie Zelle verwenden)
markiere jetzt die Spalten B-N und lege für sie diese Beiden Bedingten Formatierungen an, jeweils mit Formel als Regel:
Farbe Gelb: =Und(Zeile()=$A$1;Spalte()$B$1)
Farbe Grün: =Und(Zeile()=$A$1;Spalte()=$B$1)
Gruß Daniel

Option Explicit Sub gelb_für_Bearbeiten() 'markiert die zu Bearbeiteten Zeilen in der Spalte A für eine Optik Dim i& i = 19 Do If (i Mod 49) 1 Then Range("A" & i).Interior.Color = vbYellow i = i + 1 Else i = i + 19 End If Loop While i 1 Then Range("A" & i).Interior.Color = vbYellow i = i + 1 Else i = i + 19 End If Loop While i 1 Then Range("A" & i).Interior.ColorIndex = xlNone i = i + 1 Else i = i + 19 End If Loop While i

Hi Andreas
A1 und B1 können genauso gut X1 und Y1 sein (die Spalten kannst du ausblenden).
Da dein Code auf Spalte A wirkt (übrigens Fehler grün = yellow), und die Bedingte Formatierung auf B-N, sollten sich die Zwei nicht in die Quere kommen.
Wenn ich Luc richtig verstehe, lautet die Empfehlung über den Namensmanager den beiden Zellen einen Namen zu geben (ansonsten korrigiere mich bitte, in eine benannte Konstante könnte man auch als public Variable interpretieren?).
Den Vorteil für einen Namen würde ich sehen, z.B. wenn du die zwei Zellen auf ein Hilfsblatt verbannst.
Worksheets("Hilfsblatt").Range("EinName1").Value = ActiveCell.Row
Worksheets("Hilfsblatt").Range("EinName2").Value = ActiveCell.Row
=Und(Zeile()=EinName1;Spalte()EinName2)
Worauf ich aber hauptsächlich hinweisen wollte. Wenn die Aktion schon mit einem Before_DoubleClick Ereignis verbunden ist, dann kannst du dir den Umweg über die Zellen sparen. Target wäre m.E. zwangsweise die aktive Zelle.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(Target.Row, 2), Cells(Target.Row, 14)).Interior.Color = vbYellow
End Sub

Farbe zurück setzen (am einfachsten alle Zeilen auf einmal) wenn das Userform geschlossen wird.
Unklar ist mir, wie sich die aktive Zelle ändert. Entweder hast du die Userform Eigenschaft ShowModal = False, dann wäre vermutlich doch die Lösung von Daniel der richtige Ansatz.
Oder, so meine Vermutung, die Userform Interaktion z.B. Listbox ändert die aktive Zelle. Dann könnte man den Code dort mit rein packen.
Auf alle Fälle würde ich versuchen dieses Worksheet_SelectionChange Ereignis zu vermeiden. Man kann es zwar machen (abhängig von der Ausgangslage/Anforderung auch richtig), aber es wird bei jedem Klick in der Tabelle im Hintergrund etwas geschrieben, was ich suboptimal finde.
Worksheet_... Codes müssen ins Modul der betreffenden Tabelle. Im Gegensatz zu deinem bestehenden Code, der in ein Standardmodul soll.
cu
Chris

Private Sub CommandButton19_Click() Dim z As Long Dim r As Long Range(TextBox19.Value) = TextBox17.Value Range(TextBox15.Value) = TextBox16.Value ' ich kommentiere das mal aus... 'z = Cells(ActiveCell.Row, "A") 'aktuelle Lfd. Nr 'r = ZeilenNr(z + 1) 'zutreffende Zeilen# der nächsten Lfd. Nr 'Cells(r, ActiveCell.Column).Select 'auf nächste Zeile positionieren ' ... weil das so gedacht war: Cells(ActiveCell.Row, 1).Interior.Color = vbGreen ' erst das Grün If (ActiveCell.Row Mod 49) 0 Then ActiveCell.Offset(1).Select Else ActiveCell.Offset(20).Select End If UserForm_Initialize ' das lädt einfach die Variablen nach - wozu eigentlich? End Sub

Beliebteste Forumthreads (12 Monate)

VBA -active Zelle/Zeile farbig hervorheben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA -active Zelle/Zeile farbig hervorheben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread