ich bitte euch um eure Hilfe!
ich möchte " (objCell, Range("C69:AG69"))" ändern und die Zeile 1 oder Spalte 1 ersetzen wie geht das?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
For Each objCell In Target
If Not Intersect(objCell, Range("C69:AG69")) Is Nothing Then
Select Case objCell.Text
Case "06:00": objCell.Interior.ColorIndex = 6
Case "07:00": objCell.Interior.ColorIndex = 38
Case "14:00": objCell.Interior.ColorIndex = 4
Case Else: objCell.Interior.ColorIndex = xlNone
End Select
End If
Next
End Sub
Vielen Dank im Voraus für die Hilfe!
Gruß
Ahmadian