Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CursorPosition merken

CursorPosition merken
02.10.2003 08:07:05
HerbertS
Hallo Excel-Freunde,
habt Ihr eine Idee zu meine Frage:
Der Cursor steht an einer x-beliebigen Position. Dann wird er wo anders hingesetzt. Anschließend soll zur ursprünglichen Position zurückgekehrt werden, per Schaltfläche oder so. In Word kann man sowas mit Um F5 machen.
Vielen Dank für Eure Vorschläge
HerbertS

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CursorPosition merken
02.10.2003 08:39:29
Beni
Hallo HerbertS,
Gruss Beni


Sub Zum_alten_Standort()
Dim UrsprungsZelle As Range, altStandort$
altStandort = ActiveCell.Offset
Set UrsprungsZelle = ActiveCell.Offset
[A1].Select
While ActiveCell.Address <> UrsprungsZelle.Address
UrsprungsZelle.Activate
Wend
End Sub

AW: CursorPosition merken
02.10.2003 08:41:18
Matthias G
Hallo Herbert,
das geht ohne VBA wohl nicht:
mit Öffentlichen Variablen:
Public Cur_Z, Cur_S, Cur_Zalt, Cur_Salt As Long

Sub Wiederherstellen()
Cells(Cur_Zalt, Cur_Salt).Select
End Sub


Und im Code des Worksheets:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cur_Zalt = Cur_Z
Cur_Salt = Cur_S
Cur_Z = ActiveCell.Row
Cur_S = ActiveCell.Column
End Sub

Dem Makro "Wiederherstellen" kannst Du ja eine entsprechende Tastenkombination zuordnen, z.B. Application.OnKey "+{F5}","Wiederherstellen".

Grüße,
Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige