Hi, folgende Frage:
wie kann ich das hinbekommen, dass die ganze Zeile, in der der Cursor (ich meine die Zellmarkierung) sich befindet, markiert, also z.B. grau hinterlegt wird. Wenn ich dann bspw. mit der Pfeilnachuntentaste die Zellmarkierungnach unten bewege, soll die ganze Hinterlegung mit eins tiefer rutschen.
Danke im Voraus…
Patrick
Hi, folgende Frage:
Hallo!
wie kann ich das hinbekommen, dass die ganze Zeile, in der der
Cursor (ich meine die Zellmarkierung) sich befindet, markiert,
also z.B. grau hinterlegt wird.
Mit einer einfachen Tastenkombination: Umschalttaste + Leertaste
Wenn ich dann bspw. mit der
Pfeilnachuntentaste die Zellmarkierungnach unten bewege, soll
die ganze Hinterlegung mit eins tiefer rutschen.
Eine Tastenkombination dafür ist mir nicht bekannt. Du kannst Dich mit VBA behelfen.
Mit dem folgenden Code in in der Ereignispozedur Workbook_Open (im Modul „Diese Arbeitsmappe“) kannst Du eine Tastenkombination mit der Ausführung eines Makros belegen.
Private Sub Workbook\_Open()
Application.OnKey "^%{DOWN}", "UntereZeileMarkieren"
End Sub
führt das Makro „UntereZeileMarkieren“ aus, wenn die Kombination AltGR+Pfeil-nach-Unten-Taste gedrückt wird. In diesem Makro (in einem normalen Modul) kann man dann die Markierung der folgenden kompletten Zeile vornehmen.
Public Sub UntereZeileMarkieren()
Selection.Offset(1, 0).EntireRow.Select
End Sub
Viel Spaß beim Testen, tester!
…die ganze Zeile… markiert…
Hallo,
Zeile markieren geht auch mit Mausklick in die Beschriftungen links neben der Tabelle, in den Zeilenkopf A, B, C usw.
Gruss Helmut
wie kann ich das hinbekommen, dass die ganze Zeile, in der der
Cursor (ich meine die Zellmarkierung) sich befindet, markiert,
also z.B. grau hinterlegt wird. Wenn ich dann bspw. mit der
Pfeilnachuntentaste die Zellmarkierungnach unten bewege, soll
die ganze Hinterlegung mit eins tiefer rutschen.
Hi Patrick,
Alt+F11, Dooelklick auf „DieseArbeitsmappe“, Code einfügen, Editor schließen.
Option Explicit
'
Private Sub Workbook\_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
Sh.Cells.Interior.ColorIndex = xlNone
For Each Zelle In Target.Cells
Zelle.EntireRow.Interior.ColorIndex = 15
Next Zelle
End Sub
Gruß
Reinhard