Bei Arbeitsmappenwechsel selbe Zelle markieren

Bild

Betrifft: Bei Arbeitsmappenwechsel selbe Zelle markieren
von: Jörg
Geschrieben am: 23.09.2003 11:33:25

Hallo,

ich möchte, dass bei einem Wechsel in eine andere Tabelle die selbe Zelle wie in der vorherigen markiert ist.

Ich hab keinerlei Idee, wie ich das bewerkstelligen soll.

Währe um Hilfe dankbar

Jörg

Bild


Betrifft: AW: Bei Arbeitsmappenwechsel selbe Zelle markieren
von: ChrisL
Geschrieben am: 23.09.2003 11:48:31

Hi Jörg

Option Explicit


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Sh.Range(Bereich.Address).Select
End Sub



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
Set Bereich = ActiveCell
End Sub



alt + f11, links doppelklick auf dieseArbeitsmappe, Code einfügen.

Gruss
Chris


Bild


Betrifft: Danke !! :-)
von: Jörg
Geschrieben am: 23.09.2003 13:09:52

Hallo Chris!

Vielen Dank für Deine Hilfe!

Nach ein bischen probieren und einem "Dim Bereich" hat es funktioniert! :-))

Gruß Jörg


Bild


Betrifft: AW: Danke !! :-)
von: ChrisL
Geschrieben am: 23.09.2003 13:52:14

Hi Jörg

Huch... wo ist denn die blöde Deklaration geblieben, die war doch eben noch da :-)

Hast du Bereich in einem Standardmodul als Public deklariert...
Public Bereich as Range

Gruss
Chris


Bild


Betrifft: AW: Danke !! :-)
von: Jörg
Geschrieben am: 23.09.2003 14:47:14

Funktioniert mit folgendem Code bei mir einwandfrei! thx! :-))

....................................
Option Explicit

Dim Bereich


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Sh.Range(Bereich.Address).Select
End Sub



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
On Error Resume Next
Set Bereich = ActiveCell
End Sub


...........................


Gruß Jörg


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Bei Arbeitsmappenwechsel selbe Zelle markieren"