Farbige Zellen

Bild

Betrifft: Farbige Zellen
von: Stefan
Geschrieben am: 19.11.2003 21:39:58

Hallo zusammen,

zur besseren Erkennbarkeit hätte ich gerne bestimmte farbige Zellen.
Und zwar: Ist z. B. E10 selektiert, soll E1 und A10 farblich markiert werden, also die erste Zelle in der Spalte und die erste Zelle in der Zeile. Bei L6 wäre es dann L1 und A6. Das Format soll beim Verlassen der aktiven Zelle wieder rückgängig gemacht werden. Für meine Datei sollte das Ganze von C1 bis AC1 und von A3 bis A48 möglich sein.
Ich hoffe, das ist überhaupt möglich.

MfG

Bild


Betrifft: AW: Farbige Zellen
von: Beni
Geschrieben am: 19.11.2003 21:59:26

Hallo Stefan,
füge diesen Code in das Tabellenmodul ein,
Gruss Beni


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 And Target.Row < 49 And Target.Column > 2 And Target.Column < 29 Then
Columns(1).Interior.ColorIndex = xlNone
    Rows(1).Interior.ColorIndex = xlNone
r = Target.Row
c = Target.Column
Cells(r, 1).Interior.ColorIndex = 41
Cells(1, c).Interior.ColorIndex = 41
End If
End Sub



Bild


Betrifft: AW: Farbige Zellen
von: Stefan
Geschrieben am: 20.11.2003 10:34:59

Hallo Beni,

vielen Dank für die Antwort. Es wird aber bei "r = Target.Row" das "r =" markiert mit der Fehlermeldung "Fehler beim Kompilieren: Variable nicht definiert".

MfG


Bild


Betrifft: AW: Farbige Zellen
von: Matthias G
Geschrieben am: 19.11.2003 22:01:26

Hallo Stefan,

folgender Code in das entspechende Arbeitsblatt (nicht in ein Standarmodul!):
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const f_norm = xlColorIndexNone 'Farbe normal
Const f_hi = 3  ' Farbe, wenn ausgewählt
Const zmin = 3
Const zmax = 48
Const smin = 3  'Spalte C
Const smax = 29 'Spalte AC
Range(Cells(zmin, 1), Cells(zmax, 1)).Interior.ColorIndex = f_norm
Range(Cells(1, smin), Cells(1, smax)).Interior.ColorIndex = f_norm
If Target.Count = 1 Then
    If Not Intersect(Target, Range(Cells(zmin, smin), Cells(zmax, smax))) Is Nothing Then
        Cells(Target.Row, 1).Interior.ColorIndex = f_hi
        Cells(1, Target.Column).Interior.ColorIndex = f_hi
    End If
End If
End Sub

Gruß,
Matthias


Bild


Betrifft: AW: Farbige Zellen
von: Stefan
Geschrieben am: 20.11.2003 10:37:56

Hallo Matthias,

das funktioniert wunderbar. Vielen Dank für die schnelle Antwort.

MfG


Bild


Betrifft: oder so ...
von: udo
Geschrieben am: 19.11.2003 23:56:33

Hi Stefan , schreibe folgenden CODE in dein Tabellenblatt ( im VBA Editor )



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
'-----------( markier Bereich zurücksetzen )--------------------------------------------------------------
       With Range("C1:AC1,A3:A48").Interior
          '.Interior.ColorIndex = xlNone ' farblos
           .ColorIndex = 15
           .Pattern = xlSolid
            End With
            
            
            
'----------( akive Zellen im Markierbereich färben )-------------------------------------------------------
       
If Target.Column >= 3 And Target.Column <= 29 And Target.Row >= 3 And Target.Row <= 48 Then
       With Cells(ActiveCell.Row, 1).Interior
           .ColorIndex = 35
           .Pattern = xlSolid
            End With
       With Cells(1, ActiveCell.Column).Interior
           .ColorIndex = 35
           .Pattern = xlSolid
            End With
            
End If
End Sub



das wars,

Gruß udo

hier findest die passende Beispieldatei:

https://www.herber.de/bbs/user/2035.xls ( Markierhilfe )


udo [ & Beispiele ]




........................................................................................................................................................................................................................................................................................

Hier mal noch zusätzliche , brauchbare Beispiele von versch. Helfern aus dem Forum , sowie mir selbst , ... viel Erfolg allerseits , Gruß udo


Arbeitszeiterfassung mit Jahreskalender & Feiertagsübersicht ... Update kommt demnächst ( v. udo , EXCEL XP , 2000 ) ***
https://www.herber.de/bbs/user/1834.zip ( 347 Kb )

Datumwert abgleichen / suchen und entspr. Zeilen kopieren in andere Tabellen ( v.udo ) **
https://www.herber.de/bbs/user/1920.xls ( 70 Kb )

intelligente Gültigkeit - erweitert sich autom. um neue Einträge in der Gültigkeitsvorgabe ( v. Boris ) *****
https://www.herber.de/bbs/user/1953.xls ( 40 Kb )

verschiedenen Beispiele zusammen , mit allen mögl. Formeln ( v. Max ) *****
https://www.herber.de/bbs/user/1946.xls ( 300 Kb )

Suchen X Einträgen, je nach Eingabe v. Buchstaben ( v. Heinz ) ****
https://www.herber.de/bbs/user/1959.xls ( 44 Kb )


Hajos Excelseite mit tollen Beispielen mit & ohne VBA's ( v. Hajo_Zi ) *****
http://home.media-n.de/ziplies/


Bewertungen meinerseits ( ***** sehr z. empfh. Tipp , **** sehr gut , *** gut , ** unspektakulär aber brauchbar ... )

( Anregeungen oder Tipps speziell zu meinen ( udo ) Beispielen gerne an udo-de@web.de )

........................................................................................................................................................................................................................................................................................

Rückmeldungen der Fragesteller auf Antworten versch. Helfer, steigern den allg. Lerneffekt !!!
...


Bild


Betrifft: AW: oder so ...
von: Stefan
Geschrieben am: 20.11.2003 10:39:45

Hallo Udo,

das funktioniert wunderbar. Vielen Dank für die schnelle Antwort.

MfG


Bild


Betrifft: Danke f. d. Rückmeldung , gern geschehn o.T.
von: udo
Geschrieben am: 20.11.2003 17:25:17

...


Bild

Beiträge aus den Excel-Beispielen zum Thema " Farbige Zellen"