Zurücksetzen der Scrollbar per Makro

[C598]

Moin zusammen,

ich habe eine Tabelle mit circa 50 eingeblendeten Tabellenblättern, welche ich hin und wieder aktualisieren muss. Nun bin ich allerdings nicht der Einzige, der in der Tabelle arbeitet und teilweise wird in den Blättern gescrollt und dies nicht wieder rückgängig gemacht.

Gibt es also die Möglichkeit ein Makro zu erstellen, das beim Schließen meiner Tabelle alle 50 Blätter durchgeht und die Scrollbar in jedem Blatt an den Anfang zieht, sodass ich beim Öffnen in jedem Tabellenblatt immer direkt Spalte A sehe? Bin bisher nicht wirklich weiter gekommen, daher die Anfrage.

Vielen Dank im Voraus!

C

[Klaus-Dieter]

Hallo,

wenn ich so etwas lese, drängt sich immer die Frage auf, wozu man in einer Datei fünfzig Tabellenblätter zur Benutzung vorhalten muss.

[Kuwer]

Hallo,

folgender Code kommt in das schon vorhandene VBA-Modul DieseArebitsmappe:

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim oAs As Worksheet
  Dim oWs As Worksheet
  Set oAs = ActiveSheet
  On Error Resume Next
  Application.EnableEvents = False
  Application.ScreenUpdating = False
  For Each oWs In Worksheets
    Application.Goto oWs.Cells(1, 1), True
  Next oWs
  oAs.Activate
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  On Error GoTo 0
End Sub

Gruß, Uwe

[C598]

Vielen Dank Uwe, genau so wollte ich es haben!

VG

C