aktive Zeile hervorheben
Oliver Soddemann
wie kann ich es bewerkstelligen, daß in einem Tabellenblatt die jeweils
aktive Zeile in einer Tabelle (die Zeile, in der die aktive Zelle
steht), besonders hervorgehoben wird (z.B. rot hinterlegt). Die
Kopfzeile der Tabelle und alles was in den Zeilen darüber steht, soll
nach Möglichkeit nicht auf diese Weise hervorgehoben werden.
Danke für Eure Hilfe!
Oliver
Hans W. Herber
folgende Adresse:
http://herber.de
Demos
Thema Ereignis
Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen
hans
#############################################
# Der Excel-Server: http://herber.de #
# Die Excel-Hilfe: http://excel-hilfe.de #
# Das Excel-Forum: http://herber.de/bbs #
# Excel-Suche: http://herber.de/suchen.htm #
#############################################
--
Oliver Soddemann <o.sod...@norcontrol.de> schrieb in im Newsbeitrag:
3778D313...@norcontrol.de...
Oliver Soddemann
das war nicht ganz das, was ich meinte. Ich möchte die ganze Zeile, in der
sich die aktive Zelle befindet, hervorheben. Kann man die Funktionen zur
Markierung der Zelle denn erweitern, so daß die Zeile angezeigt wird?
Oliver
"Hans W. Herber" schrieb:
Robert Gelbmann
Nur so eine Idee (ab XL97):
- alle gewünschten Zeilen (ggf. alle) markieren,
- darauf achten, daß die Zelle A1 aktiv ist (andernfalls müßte in unten
stehender Formel der Bezug angepaßt werden),
- Format/Bedingte Formatierung
- "Formel ist" =ZELLE("Zeile")=ZEILE(A1)
- gewünschtes bedingtes Format (zB Hintergrundfarbe rot) auswählen
- Fertig!
Die Bedingung trifft nur dann zu, wenn die Zeile der aktiven Zelle
(ZELLE("Zeile") der jeweiligen Zeilennummer (ZEILE(<Bezug>)) entspricht.
Leider wird die Funktion ZELLE("Zeile") aber nicht automatisch neu
berechnet.
Das heißt: Die alte Markierung (Zeile in der - im Zeitpunkt der letzten
Neuberechnung - aktiven Zelle) bleibt solange erhalten, bis Du zB mit <F9>
neuberechnest. (Kann ja auch nützlich sein, oder?)
lg aus Wien,
-Robert Gelbmann-
Hans W. Herber
folgende Codeumstellung:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Row = Adr.Row Then Exit Sub
iClrNeu = Target.Interior.ColorIndex
Rows(Target.Row).Interior.ColorIndex = 6
Adr.Interior.ColorIndex = iClrAlt
iClrAlt = iClrNeu
Set Adr = Rows(Target.Row)
End Sub
hans
#############################################
# Der Excel-Server: http://herber.de #
# Die Excel-Hilfe: http://excel-hilfe.de #
# Das Excel-Forum: http://herber.de/bbs #
# Excel-Suche: http://herber.de/suchen.htm #
#############################################
--
Oliver Soddemann <o.sod...@norcontrol.de> schrieb in im Newsbeitrag:
377A1C09...@norcontrol.de...
Marco Amistadi
> Hallo Oliver,
>
> folgende Adresse:
> http://herber.de
> Demos
> Thema Ereignis
> Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen
>
> hans
Hallo Hans,
geht sowas auch unter Excel 7.0 ?
Marco
Hans W. Herber
nein, denn es gibt kein Selection_Change-Ereignis.
hans
#############################################
# Der Excel-Server: http://herber.de #
# Die Excel-Hilfe: http://excel-hilfe.de #
# Das Excel-Forum: http://herber.de/bbs #
# Excel-Suche: http://herber.de/suchen.htm #
#############################################
--
Marco Amistadi <Ma...@Amistadi.de> schrieb in im Newsbeitrag:
377AEB0C...@Amistadi.de...
Walter Beyersdorf
>
> Hallo Oliver,
>
> folgende Adresse:
> http://herber.de
> Demos
> Thema Ereignis
> Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen
>
Habe die Module eingebunden und trotzdem funktioniert es nicht. Benutze
Excel 97.
Wer weiß Rat ?
Walter
------------------------------------------------------------------
TTL Basketball Bamberg Fan-Seite
http://www.wbeyersdorf.de
mailto:new...@gmx.de
Hans W. Herber
hast Du die Text- oder die Demodatei geladen? Befindet sich der Code im
Klassenmodul des Tabellenblattes (richtig) oder in einem Standardmodul
(falsch)? Funktioniert bei Dir die Demodatei?
hans
#############################################
# Der Excel-Server: http://herber.de #
# Die Excel-Hilfe: http://excel-hilfe.de #
# Das Excel-Forum: http://herber.de/bbs #
# Excel-Suche: http://herber.de/suchen.htm #
#############################################
--
Walter Beyersdorf <new...@gmx.de> schrieb in im Newsbeitrag:
3781CA...@gmx.de...