Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Bei Problemen mit der Erreichbarkeit der Foren bitte den Link / Favoriten prüfen und ersetzen. Dazu über die Startseite ins gewünschte Forum wechseln und zu den Favoriten hinzufügen. Excel ist derzeit z.B. unter http://www.clever-excel-forum.de/forum-2.html zu erreichen.


Ereignis auslösen in festgelegtem Bereich
#1
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?
Gruß Achim
Jeder Mensch macht Fehler. Die Kunst liegt darin, sie zu machen, wenn keiner zuschaut.
to top
#2
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • maine-coon
to top
#3
Du hast mir sehr geholfen.
Funktioniert gut.
Schönes Weekend
Gruß Achim
Jeder Mensch macht Fehler. Die Kunst liegt darin, sie zu machen, wenn keiner zuschaut.
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste