SmallScroll klappt nicht

28.10.2008 17:23:39

walter

Guten Abend,
habe folgende Zeile:
ActiveWindow.SmallScroll down:=az.Select
geht leider nicht.
Die nächste Zeile funktioniert Warum ?
ActiveWindow.SmallScroll down:=54
Ich möchte gern das die verlassene Zeile zumindest in der MITTE steht bzw. so
das man die az (aktive) Zelle /Zeile sieht.
mfg walter mg

AW: SmallScroll klappt nicht

28.10.2008 17:38:19

Rudi

Hallo,


Die nächste Zeile funktioniert Warum ?

hast du dir mal die Hilfe zu SmallScroll durchgelesen? Da steht es.
Teste mal:
Application.GoTo az, True
Gruß
Rudi

Danke Rudi kann man die Zeilen...

28.10.2008 19:57:01

walter

Hallo Rudi,
kann man auch die Zeilen etwas tiefer setzen z.b. 4 Zeilen ?
mfg walter mg

AW: Danke Rudi kann man die Zeilen...

28.10.2008 20:55:42

Rudi

Hallo,
sicher geht das.
Application.GoTo az.offset(-application.Min(4, az.Row-1),0), true
Gruß
Rudi

Super Danke aber bitte

28.10.2008 23:17:00

walter

Guten Abend Rudi,
herzlichen Dank, das ist höhere Excel Kenntnis,
ich habe mich blöd ausgerdückt.
Die Zeile die ich kopiert habe sollte in der Mitte des Bildschirms sein.
Habe allerdings bis Zeile 4 fixiert.
Geht das ?
Sonst lasse ich das so
mfg Walter mg

AW: Super Danke aber bitte

28.10.2008 23:33:09

Rudi

Hallo,
was hast du gegen Beates (cpearsons) Code? Funzt doch 1a.
Ändere ggfs. Worksheet_selectionChange in Worksheet_Change.
Gruß
Rudi

Hallo Rudi, habe ich nichts gegen...

29.10.2008 11:14:28

walter

Guten Morgen Rudi,
ich habe nichts gegen Beates Vorschlag, hatte gestern Abend leider
keine Zeit mehr. na ja Borussia hat eh verloren.
Werde aber gleich testen.
mfg walter mg

AW: SmallScroll klappt nicht

28.10.2008 17:50:18

Beate

Hallo Walter,
füge diesen Code in ein Modul:
Sub CenterOnCell(OnCell As Range)
    'http://www.cpearson.com/excel/zoom.htm
    Dim VisRows As Integer
    Dim VisCols As Integer

    Application.ScreenUpdating = False
    '
    ' Switch over to the OnCell's workbook and worksheet.
    '
    OnCell.Parent.Parent.Activate
    OnCell.Parent.Activate
    '
    ' Get the number of visible rows and columns for the active window.
    '
    With ActiveWindow.VisibleRange
        VisRows = .Rows.Count
        VisCols = .Columns.Count
    End With
    '
    ' Now, determine what cell we need to GOTO. The GOTO method will
    ' place that cell reference in the upper left corner of the screen,
    ' so that reference needs to be VisRows/2 above and VisCols/2 columns
    ' to the left of the cell we want to center on. Use the MAX function
    ' to ensure we're not trying to GOTO a cell in row <=0 or column <=0.
    With Application
        .Goto Reference:=OnCell.Parent.Cells( _
            .WorksheetFunction.Max(1, OnCell.Row + _
            (OnCell.Rows.Count / 2) - (VisRows / 2)), _
            .WorksheetFunction.Max(1, OnCell.Column + _
            (OnCell.Columns.Count / 2) - _
            .WorksheetFunction.RoundDown((VisCols / 2), 0))), _
            scroll:=True
    End With
    OnCell.Select
    Application.ScreenUpdating = True
End Sub

Und diesen Code ins Codefenster der Tabelle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    CenterOnCell ActiveCell
    Application.EnableEvents = True
End Sub

Gruß,
Beate

Danke Beate -)

28.10.2008 19:55:00

walter

Hallo Beate Super, läuft ! Danke auch -)

29.10.2008 11:50:00

walter

Hallo Beate,
habe gerade getestet, läuft Prima.
Danke !
Herzlichen Dank auch an Rudi für die Unterstützung.
mfg walter mb

SmallScroll klappt nicht

Forumthread: SmallScroll klappt nicht

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

SmallScroll klappt nicht

Forumthread: SmallScroll klappt nicht

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread