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


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


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Problem mit Exit-Ereignis einer Textbox Usedom 4 81 07.11.2016, 20:03
Letzter Beitrag: Usedom
  Parameterisiertes Auslösen von Doppelclick-Ereignissen möglich? VBATartar 3 319 18.07.2016, 17:56
Letzter Beitrag: schauan
  Ereignis automatisch in Kalendar eintragen jofri 11 910 04.03.2016, 11:30
Letzter Beitrag: jofri
  Mit der Datumsfunktion eine bedingte Formartierung auslösen ? NoFear070 9 1.215 16.09.2015, 16:47
Letzter Beitrag: Glausius
  wenn Zellwert wechselt, Aktion auslösen Theo 2 754 21.05.2015, 08:09
Letzter Beitrag: Theo
  Application.SendKeys zum Auslösen von TextBox - Ereignissen ChristaRohn 2 753 05.04.2015, 09:16
Letzter Beitrag: ratrad
  Makro mit einem Button auslösen heb01 2 738 27.11.2014, 10:59
Letzter Beitrag: heb01

Gehe zu:


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