Herbers Excel-Forum - das Archiv
Bei Arbeitsmappenwechsel selbe Zelle markieren
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
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
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
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
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