Supportnet / Forum / Tabellenkalkulation
Aktive Zelle farbig
Frage
Hallo!
Habe mit folgendem Code wird immer die aktuelle Zelle eingefärbt.
[code]
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static Zelle As Range
If Not Zelle Is Nothing Then
Cells.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 4 ' Grün
Set Zelle = Target
End Sub
[/code]
Ist eine schöne Sache bei großen, unübersichtlichen Tabellen.
Wie geht das mit der ganzen Zeile?!?!
Rows.Interior.ColorIndex = xlNone
funktioniert nicht.
Vielen Dank schon mal und Grüße
Thomas
Antwort 1 von joker 61
Hallo,
ein toller Tip, es würde mich jedoch interessieren, wo dieser Code eingegeben werden soll und wie das geht.
Danke
Achim
ein toller Tip, es würde mich jedoch interessieren, wo dieser Code eingegeben werden soll und wie das geht.
Danke
Achim
Antwort 2 von JonesM
Hallo Achim,
du markierst den Code, kopieren (Strg+c)
In Excel mit Alt+F11 Visual Basiceditor aufrufen. In der Projektübersicht unter
VBAProject (Name Arbeitsmappe)
- Microsoft Excel Objekte
- Diese Arbeitsmappe
den Code reinkopieren (Strg+v).
VBA schließen und es sollte funktionieren.
Thomas
du markierst den Code, kopieren (Strg+c)
In Excel mit Alt+F11 Visual Basiceditor aufrufen. In der Projektübersicht unter
VBAProject (Name Arbeitsmappe)
- Microsoft Excel Objekte
- Diese Arbeitsmappe
den Code reinkopieren (Strg+v).
VBA schließen und es sollte funktionieren.
Thomas
Antwort 3 von joker 61
Hallo Thomas,
funktioniert leider nicht, woran könnte es liegen??
Gruß
Achim
funktioniert leider nicht, woran könnte es liegen??
Gruß
Achim
Antwort 4 von Wakrag
Vermutlich hast du copy/paste gemacht und der hat die Zeilenumbrüche nicht mitgenommen. Hat er zumindest bei mir gemacht.
Waki
Waki
Antwort 5 von JonesM
Hallo Achim,
funktionierts jetzt?
Darauf achten, daß du es im richtigen Ordner einfügst:
-VBAProject (Name Arbeitsmappe)
-- Microsoft Excel Objekte
--- Diese Arbeitsmappe
Sonst funzt es nicht.
Hat niemand eine Idee, wie es mit der ganzen Zeile geht???
:-(
Thomas
funktionierts jetzt?
Darauf achten, daß du es im richtigen Ordner einfügst:
-VBAProject (Name Arbeitsmappe)
-- Microsoft Excel Objekte
--- Diese Arbeitsmappe
Sonst funzt es nicht.
Hat niemand eine Idee, wie es mit der ganzen Zeile geht???
:-(
Thomas
Antwort 6 von joker 61
Hallo,
Danke jetzt funktioniert es. Was muß ich eigentlich machen um eine andere Farbe zu verwenden. Das Austauschen des Textes "Grün" reicht nicht.
Gruß
Achim
Danke jetzt funktioniert es. Was muß ich eigentlich machen um eine andere Farbe zu verwenden. Das Austauschen des Textes "Grün" reicht nicht.
Gruß
Achim
Antwort 7 von _gau_
Für die ganze Zeile...
Statt: Target.Interior.ColorIndex = 4
kann man z.B. schreiben
Rows(Target.Row).Interior.ColorIndex = 4
Der Text "Grün" ist im Beispiel nur ein Kommentar, der nichts bewirkt. Die eigentliche Farbe ist die Nummer 4 (Excel-Farbindex)
Nummer 7 ist z.B. Lila (in der Standard-Farbpalette)
Setz mal im VB-Editor den Cursor in das Wort "ColorIndex" und drücke die Hilfetaste F1. Dann sollte die Erklärung der ColorIndex-Eigenschaft angezeigt werden.
[gau]
Statt: Target.Interior.ColorIndex = 4
kann man z.B. schreiben
Rows(Target.Row).Interior.ColorIndex = 4
Der Text "Grün" ist im Beispiel nur ein Kommentar, der nichts bewirkt. Die eigentliche Farbe ist die Nummer 4 (Excel-Farbindex)
Nummer 7 ist z.B. Lila (in der Standard-Farbpalette)
Setz mal im VB-Editor den Cursor in das Wort "ColorIndex" und drücke die Hilfetaste F1. Dann sollte die Erklärung der ColorIndex-Eigenschaft angezeigt werden.
[gau]