Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktive Zelle immer in Fenstermitte?

Forumthread: Aktive Zelle immer in Fenstermitte?

Aktive Zelle immer in Fenstermitte?
19.01.2007 15:46:48
Hanna
Hi zusammen,
gehts das mit Makro zu lösen?
Grüße Hanna

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zelle immer in Fenstermitte?
19.01.2007 15:49:28
K.Rola
Hallo,
hatenn wir kürzlich erst:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, iRow As Long, iCol As Integer
If Target.Count = 1 Then
On Error GoTo ENDE
Application.EnableEvents = False
Set rng = ActiveCell
iRow = ActiveWindow.VisibleRange.Rows.Count / 2
iCol = ActiveWindow.VisibleRange.Columns.Count / 2
If rng.Row > iRow Then
Application.Goto Cells(rng.Row - iRow, rng.Column), True
Else
Application.Goto Cells(1, rng.Column), True
End If
If rng.Column > iCol Then
Application.Goto Cells(ActiveCell.Row, rng.Column - iCol + 1), True
Else
Application.Goto Cells(ActiveCell.Row, 1), True
End If
rng.Select
End If
ENDE:
Application.EnableEvents = True
End Sub

Gruß K.Rola
Anzeige
Super, danke! oT
19.01.2007 18:39:39
Hanna
o
;

Beliebteste Forumthreads (12 Monate)

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