Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SmallScroll klappt nicht

SmallScroll klappt nicht
28.10.2008 16: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

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

Betreff
Datum
Anwender
Anzeige
AW: SmallScroll klappt nicht
28.10.2008 16: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 18: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 19: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 22: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
Anzeige
AW: Super Danke aber bitte
28.10.2008 22: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 10: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 16: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
Anzeige
Danke Beate -)
28.10.2008 18:55:00
walter
Hallo Beate Super, läuft ! Danke auch -)
29.10.2008 10: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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige