Reaktion auf 'Zurück-Button' programmier

Hallo VBA-Specials!
Ich habe folgendes Problem. Ich bin Euch schon im voraus für Eure Hilfe dankbar.
Mein VBA-Coding soll folgendes machen.
Aus dem Excel-Tabellenblatt (Tabelle7) soll per Hyperlink in eine andere Tabelle (Tabelle4) gesprungen werden. Das klappt auch wunderbar.
In der Zieltabelle (Tabelle4) habe ich (gekürzt) folgendes Coding hinterlegt:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range, D As Range
Dim Ws As Worksheet
If Target.Column = 1 Then
ThisWorkbook.ActiveSheet.Rows(Target.Row).Interior.ColorIndex = 8
ElseIf Target.Column > 1 Then
'     ... Coding für Hyperlink - funktioniert einwandfrei ...
' Hier soll die Reaktion auf den Button 'zurück' (WebGoBack) erfolgen.
ElseIf KeyCode = "{WebGoBack}" Then
ThisWorkbook.ActiveSheet.Rows(Target.Row).Interior.ColorIndex = x1none
End If
End Sub

Ich springe also in die Spalte A zu dem gesuchten Begriff. Dann wird die gesamte Zeile mit ColorIndex = 8 eingefärbt.
Wenn ich in den Spalten A bin, kann ich noch einiges machen (Filter auf andere Tabellen). Das spielt aber hier keine Rolle. Es funktioniert einwandfrei.
Nun möchte ich, dass, wenn ich (in Tabelle4) auf den 'Zurück'-Button ( (WebGoBack) klicke, die Einfärbung (ColorIndex = 8) wieder zurückgenommen wird und dann wieder auf das Tabellenblatt (Tabelle7) gesprungen wird. Sonst habe ich das Problem, dass die Zeilen eingefärbt bleiben - und irgendwann die ganze Tabelle (ColorIndex = 8) ist.
Der 'Rückspung' funktioniert auch einwandfrei (Standard von Excel 2007). Aber die Rücknahme der Einfärbung funktioniert nicht.
Ich habe das 'intuitiv' mit ElseIf KeyCode = "{WebGoBack}" Then versucht. Auch andere Varianten habe nicht zum Erfolg geführt.
1. finde ich nicht den 'Key' für die 'Taste' 'Zurück'.
2. ist mir nicht klar, wie ich VBA beibringen kann, dass in der aktiven Zeile die Anweisung Interior.ColorIndex = x1none durchführen soll.
Kann doch eigentlich nicht so schwierig sein - oder - Vielleicht doch?
Danke schon mal für Eure Tips!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo!
Daniel sei Dank für die 'etwas andere' Lösung.
Ich habe in den

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

eingebaut:

' Aktuelle Zeile in Z1 schreiben
Range("Z1").Value = Target.Row
Set objZelle = Range("Z1")

Somit zeigt Excel mir die aktuelle Zeile in Zelle Z1
Diese formatiere ich dann in Bedingte Formatierung mit =ZEILE()=$Z$1
Einziges Problem, das ich noch hatte:
Die Bedingte Formatierung greift erst, wenn die Berechnungen durchgeführt werden.
Da aber das Workbook sehr umfangreiche Berechnungen durchführt (u.A. INDIREKT), hatte ich die automatische Berechnung für das gesamte Workbook mit

.CalculateBeforeSave = False
.Calculation = xlCalculationManual

ausgeschaltet.
Für das entsprechende Worksheet, für das die o.g. Formatierung gelten soll, habe ich diese _ Kalkulation mit


ActiveSheet.Calculate

vor END Sub
wieder aktiviert.
Danke nochmal und liebe Grüße
- Jürgen -

Beliebteste Forumthreads (12 Monate)

Reaktion auf 'Zurück-Button' programmier

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread