Bei Arbeitsmappenwechsel selbe Zelle markieren

• Bei Arbeitsmappenwechsel selbe Zelle markieren von Jörg vom 23.09.2003 11:33:25
  • AW: Bei Arbeitsmappenwechsel selbe Zelle markieren - von ChrisL am 23.09.2003 11:48:31
    • Danke !! :-) - von Jörg am 23.09.2003 13:09:52
      • AW: Danke !! :-) - von ChrisL am 23.09.2003 13:52:14
        • AW: Danke !! :-) - von Jörg am 23.09.2003 14:47:14

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

Excel-Beispiele zum Thema " Bei Arbeitsmappenwechsel selbe Zelle markieren"
Bereich mit Maximalwert markieren	Zeilen markieren
Zellen vergleichen und markieren	Markieren in Abhängigkeit vom Quartal
Listbox-Eintrag durch Mausbewegung markieren	Drei Zellen rechts der aktiven Zelle markieren
Zelle mit Maximalwert markieren	Alle nichtleeren Zeilen markieren
Start- und Enddatum abfragen und markieren	Minimalwerte je Zeile markieren