10.07.2014, 15:39
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row < 5 Or ActiveCell.Row > 35 Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
Cells.Interior.ColorIndex = xlColorIndexNone 'Rem Zurücksetzen der Farbe auf Weiß
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 21)).Interior.ColorIndex = 6 'Rem Hellgelb färben
End If
End Sub
Mit diesem Code wird immer die entsprechende aktive Zeile farblich hervorgehoben.
Das funktioniert prima.
Jetzt versuchte ich (leider vergeblich) in diesem Selection_Change Ereignis noch etwas einzubauen.
Sobald man eine Zelle des Bereichs Range"L5:L35" betritt, soll sich eine Userform öffnen.
Hab da mal was mit
Dim temp As Range
Set temp = Intersect(Range("L5:L35"), Target)
If Not temp Is Nothing Then
Userform2.show
Aber irgendwie klappt das nicht mit dem Bereich L5:L35.....
Kann mir jemand auf die Sprünge helfen?