nachdem mir hier schon mal zum Thema geholfen wurde, taucht nun ein weiteres Problem auf. Ich wollte die Formatierung in bestimmten Zellen ändern, je nachdem wo der Cursor steht. (Danke Sepp, Matze, Hayr). Dazu habe ich statt dem Befehl "interior" den Befehl "font" gewählt. Alles bestens mit folgenden Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("F5:F45")) Is Nothing Then
Range("B4:B6").Font.ColorIndex = 15
Select Case Target.Row
Case 5 To 19: Range("B4").Font.ColorIndex = 9
Case 22 To 26: Range("B5").Font.ColorIndex = 9
Case 29 To 45: Range("B6").Font.ColorIndex = 9
Case Else
End Select
End If
End Sub
Nun ist es aber so, dass ich in der Zwischenzeit einige Zellen der Spalte F mit den Spalten G und H verbunden habe. Habe dann den Rangebereich abgeändert von F5:H45. Geht nicht. Dann habe ich die Cases geändert, geht nicht. Was mache ich hier falsch?
Gibt es nochmals Hilfe? Vielen Dank.
Gruß Werner