Herbers Excel-Forum - das Archiv

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
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