Zeile merken beim Wechsel von Tabellenblättern
Tabellenblättern
ich habe ein Problem und komme einfach nicht weiter.
Meine Excel Tabelle hat 3 Tabellenblätter, wechselt man nun von einem auf ein anderes, so soll in dem neuen Blatt bereits eine Zelle in der gleichen Zeile markiert sein, wie im vorigen Blatt.
Beispiel:
* Tabellenblatt 1: eine zelle in der Reihe 12 ist markiert
* wechsel auf Blatt 2: die zelle C 12 ist markiert
* wechsel auf blatt 3: c 12 ist markiert
Ich dachte ich habe des Rätsels Lösung auch schon gefunden, es geht jedoch leider nicht :(
In VBA habe ich für jedes Tabellenblatt folgenden code angelegt:
Private Sub Worksheet_Activate()
' aufruf wenn Tabellenblatt ausgewählt wird
Call zeile_setzen
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' aufruf wenn eine zelle markiert wird
Call zeile_merken_1
End Sub
Weiterhin habe ich folgendes Modul angelegt:
Public i As Integer
Public Sub zeile_merken_1()
' merkt sich die aktuelle Zeile und speichert diese in der klobalen Variable i
i = ActiveCell.Row
End Sub
Public Sub zeile_setzen()
MsgBox ActiveSheet.Name & i 'testausgabe
ActiveSheet.Cells(i, 3).Select ' markieren der übernommenen zeile
End Sub
Seltsamer Weise wird die übernommene Zeile in zeile_setzen() nicht markiert!?
Jedoch ist die Testausgabe korrekt, es wird das angeklickte Tabellenblatt ausgegeben und auch die richtige Zeile..
Ich bin total verwirrt und hoffe auf eure Hilfe,
Danke :)
Beste Grüße,
Frank