Clever-Excel-Forum

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?

Hallo Achim,

so geht es bei mir:

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim rngBereich As Range

  Set rngBereich = Range("A5:U35")

  Cells.Interior.ColorIndex = xlColorIndexNone

  If Not Application.Intersect(Target, rngBereich) Is Nothing Then

    Application.Intersect(Target.EntireRow, rngBereich).Interior.ColorIndex = 6 'Rem Hellgelb färben

    If Target.Column = 12 Then UserForm2.Show

  End If

End Sub

Gruß Uwe

Du hast mir sehr geholfen.
Funktioniert gut.
Schönes Weekend

maine-coon

Kuwer

maine-coon