Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.10.2025 18:27:08
Formel anstelle XVWERWEIS für alte Excel-Version
07.10.2025 15:42:10
Identische-Tabellen-identische Sub's funktionieren nicht...
07.10.2025 09:25:19
Bedingte Formatierung mit bezug auf anderes TabellenBlatt
07.10.2025 08:24:37
Formel mit dynamischer Name aus Zelle
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Cursorposition auf zweites Blatt übernehmen

Forumthread: Cursorposition auf zweites Blatt übernehmen

Cursorposition auf zweites Blatt übernehmen
29.09.2004 16:54:36
Steffen
Ich habe hier in diesem Thread https://www.herber.de/forum/archiv/464to468/t465133.htm eine Lösung für das erfassen der Cursorposition in einem Blatt gefunden.
Nun komme ich aber nicht weiter. Jedenfalls habe ich im Board nichts dazu gefunden.
Meine Exceldatei besteht aus mehreren Blättern. Ich möchte nun, dass egal in welches Blatt ich gehe der Cursor immer an der gleichen Stelle steht und zwar so lange bis ich eine neue Position in irgendeinem Arbeitsblatt wähle. Dann soll diese Position in allen Blättern übernommen werden.
Ist das überhaupt möglich?
Leider befinde ich mich VBA-mäßig im Anfängerstatus. Vielleicht könnte mir jemand eine kurze Beispieldatei zusammenbasteln?
Vielen Dank im vorraus
Steffen
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Aktive Zelle in allen Arbeitsblättern gleich
Beate
Hallo Steffen,
Dazu kannst Du den folgenden Aufbau an Ereignsissen verwenden:
In 'Diese Arbeitsmappe':

Private Sub Workbook_Open()
strActiveCell = Selection.Address
End Sub



Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range(strActiveCell).Select
End Sub



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
strActiveCell = Selection.Address
End Sub

Und in einem allgemeinen Modul:
Public strActiveCell As String
Nun die Mappe speichern, schliessen und wieder öffnen.
Dieser Tipp war von Thomas Ramel, siehe:
http://www.excel-center.de/forum/read.php?f=1&i=69365&t=69365
Gruß,
Beate
Anzeige
AW: Cursorposition auf zweites Blatt übernehmen
29.09.2004 17:41:06
Chris
Sollte das sein was du suchst !In dem beispiel wird beim Tabellenblattwechsel immer Zelle E3 Selectiert.Den Code einfügen in "Diese Arbeitsmappe"

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(3, 5).Select
End Sub

mfg Christian
Anzeige
Schon wieder zu spät :)
29.09.2004 17:42:15
Chris
Schon wieder zu spät *fg*
AW: Cursorposition auf zweites Blatt übernehmen
29.09.2004 17:55:01
Steffen
Man Man Man ihr seid ja schneller als die Polizei erlaubt !!!!!
Danke an Euch alle! Die Beispieldateien aus dem Thread auf welchen Beate hingewiesen hat und die vom Oberschlumpf waren genau die Lösung die ich suchte.
Nun werde ich das ganze noch auseinandernehmen und versuchen zu verstehen ... :-)
Steffen
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige