AW: Zelle aktiv, dann nur verlassen wenn
13.10.2011 16:36:37
Tino
Hallo,
kannst mal so versuchen.
kommt als Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
If ActiveSheet.Name = "Tabelle1" Then 'Tabelle anpassen
If Not (IsNumeric(Range("D4")) And Range("D4") <> "") Then
ActiveSheet.ScrollArea = "D4"
Application.EnableEvents = False
Range("D4").Select
Application.EnableEvents = True
Else
ActiveSheet.ScrollArea = ""
End If
End If
End Sub
kommt als Code in Tabelle1
Option Explicit
Private Sub Worksheet_Activate()
If Not (IsNumeric(Range("D4")) And Range("D4") <> "") Then
Me.ScrollArea = "D4"
Application.EnableEvents = False
Me.Range("D4").Select
Application.EnableEvents = True
Else
Me.ScrollArea = ""
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (IsNumeric(Range("D4")) And Range("D4") <> "") Then
Me.ScrollArea = "D4"
Else
Me.ScrollArea = ""
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (IsNumeric(Range("D4")) And Range("D4") <> "") Then
Me.ScrollArea = "D4"
Else
Me.ScrollArea = ""
End If
End Sub
Gruß Tino