Farbige Zellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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 ) ****

Die Datei https://www.herber.de/bbs/user/1959.xls wurde aus Datenschutzgründen gelöscht

( 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 !!!
...

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread