SUB läuft nicht stabil

20/11/2008 - 16:50 von Hervé RICHARD | Report spam
Hallo NGs,

nach 200.000 Làufe sieht meine SUB nicht mehr 100% schön aus aber da sie eh
nicht gut funktioniert...

Ich möchte eine Reihe von Blàttern ganz einfach bei der Öffnung formatieren.
Dafür rufe ich eine SUB aus mit z.B.:

Worksheet_Format "Savings_Details", , , , "A2"

Hier die besagte SUB:

Sub Worksheet_Format(strWorksheet As String, Optional bolProtect As Boolean
= True, Optional bolVisible As Boolean = True, _
Optional bolFreezePanesCell As Boolean = True,
Optional strFreezePanesCell As String = "A2", _
Optional intTabColor As Integer = 5)

With ThisWorkbook.Worksheets(strWorksheet)
.Visible = True
.Activate
End With

With ActiveWindow
.FreezePanes = False
.Zoom = 70
.DisplayZeros = False
End With

Range(strFreezePanesCell).Select
If bolFreezePanesCell = True Then ActiveWindow.FreezePanes = True

With ThisWorkbook.Worksheets(strWorksheet)
.Visible = bolVisible
If .FilterMode = True Then .ShowAllData
.Tab.ColorIndex = intTabColor
If bolProtect = True Then .Protect Else .Unprotect
End With

End Sub

das unerklàrliche: wenn ich beim Schliessen der Tabelle, schön die Zelle A2
sichtbar hatte, làuft alles wie geschmiert. So bald ich aber nach rechts
scrolle, wird das FreezePane ziemlich mittig auf dem Bildschirm gemacht (also
völlig wo anders als "A2").
Warum ? gibt es dafür eine logische Erklàrung ?

Danke im Voraus wenn ihr etwas (schlaues) wisst.
Schönen Abend.
 

Lesen sie die antworten

#1 Andreas Killer
20/11/2008 - 20:08 | Warnen spam
Hervé RICHARD schrieb:

sichtbar hatte, làuft alles wie geschmiert. So bald ich aber nach rechts
scrolle, wird das FreezePane ziemlich mittig auf dem Bildschirm gemacht (also
völlig wo anders als "A2").
Warum ? gibt es dafür eine logische Erklàrung ?


Wahrscheinlich schon, nur welche... keine Ahnung. Aber wie wàr's denn
wenn Du selber zurerst an die richtige Stelle scrollst?

ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Range(strFreezePanesCell).Select
If bolFreezePanesCell = True Then ActiveWindow.FreezePanes = True

Danke im Voraus wenn ihr etwas (schlaues) wisst.


Wenn's geht war's vielleicht schlau... oder Zufall. :-))

Andreas.

Ähnliche fragen