ich habe zwei verschiedene Versionen von "highlighting von Zellen mit mouseover" gebastelt. Die Eine mittels Labels funktioniert zwar, ist aber träger als die Zweite, zu der ich hier meine Frage stellen möchte:
Die mit Farbe (highlighting) zu versehende Zellen B2 bis B7 sind mit folgender Formel gefüllt : =WENNFEHLER(HYPERLINK(mouseover(B12));B12) mit jeweils angepasster Zeilennummer
In den Zellen B12 bis B17 steht der Zelleninhalte die ich in den Zellen B12 bis B17 sehen möchte.
in B10 habe ich eine Listenfunktion mit den Inhalten von B12 bis B17
im Modul steht folgender Code :
Public Function mouseover(Cell As Range)
[B10] = Cell.Value
End Function
die Zellen B2 bis B7 sind mit einer bedingten Formatierung versehen.Formel : =$B2=$B$10 Farbe rot
Nun färbt die Maus beim überfliegen der Zellen B2 bis B7 diese jeweils einzeln rot ein. Soweit funktioniert alles Bestens.
Nun das Problem : Es soll bei Klick in die Zellen B2 bis B7in die Tabellenblätter 2 bis 7 gesprungen werden mit folgendem Code im Tabellenblatt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Tabelle2.Activate
End If
etc.
End Sub
LinksKlick benötigt ca. 2 Sek gedrückt halten um den Blattwechsel vorzunehmen,
mit RechtsKlick funktioniert das wie ich mir das vorstelle.
Es soll aber mit LinksKlick normal funktionieren.
Wo steh ich auf dem Schlauch ?
Grüsse skryabean