Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Position merken

Position merken
20.11.2005 11:44:35
Micha
Hallo Leute,
ich habe das Problem, das ich in einer Routine Excel die aktuelle Position merken soll und dann wieder zurück gehen muss.
Geht sowas? Kann mir jemand helfen?
Danke Euch...

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Position merken
20.11.2005 11:52:42
Hajo_Zi
Hallo Micha,
ganz einfach verzichte auf select, Activate usw.


okay, habe es ..... Danke ..... o.T.
20.11.2005 11:57:47
Micha
Läuft doch noch nicht so ganz....
20.11.2005 12:24:32
Micha
Hallo Hajo_Zi,
hier mein Code, der läuft aber noch nicht...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
'Position merken um nachher dahin zurück zu kehren
Dim b As Range
Set b = Selection
'im tabblatt "Optionen" das Speicherdatum berichtigen
Sheets("Optionen").Select
Range("s23") = Date
'zurück zur Position
b.Select
'fertig, jetzt kann gespeichert werden
Application.ScreenUpdating = False
End Sub

Wie kann ich es besser machen?
Gruß Micha
Anzeige
AW: Läuft doch noch nicht so ganz....
20.11.2005 12:28:59
Hajo_Zi
Hallo Micha,
das ist auch kein Code ohne select.
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
'im tabblatt "Optionen" das Speicherdatum berichtigen
Sheets("Optionen").Range("s23") = Date
Application.ScreenUpdating = False
End Sub

Gruß Hajo
Hast Recht... Aber jetzt geht es ... o.T.
20.11.2005 12:49:05
Micha
vielen Dank
AW: Läuft doch noch nicht so ganz....
20.11.2005 12:44:14
PeterW
Hallo Micha,
kleine Ergänzung: bei Hajos Code kannst du dir auch noch die Bildschirmaktualisierung sparen (Application.Scree...), da ohne Select sich der Bildschirm sowieso höchstens bei sichtbarem Blatt Optionen in Zelle S23 ändert.
Gruß
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige