Zeilen einfärben: Makro auf anderes Blatt beziehen
17.06.2005 12:03:00
Daniel
ich möchte eine komplette Zeile einfärben wenn in einer Zelle etwas bestimmtes steht. Der Harald hat mir folgendem Makro schon super geholfen. Leider beziehen sich die Werte dieser Zellen auf ein anderes Blatt. Somit funktioniert das Makro so nicht. Kann man in diesem Makro ebenfalls einen Bezug zu einem anderen Blatt herstellen?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, farbe As Integer
If Target.Column > 1 Then Exit Sub
For i = 1 To 100
Select Case Cells(i, 1)'für Zellen A1:A100
Case "Mechaniker"
farbe = 35
Case "Techniker"
farbe = 3
Case "Meister"
farbe = 4
Case "HW"
farbe = 5
Case Else
farbe = xlNone 'wenn keine Übereinstimmung
End Select
With Cells(i, 1) 'Trefferzelle in Spalte 1 = A
.Interior.ColorIndex = farbe
End With
Next i
End Sub
Gruß
Daniel