gehts das mit Makro zu lösen?
Grüße Hanna
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