Habe unteres Makro geschrieben,das sollte,wenn B1 ="" dann kein ScrollArea.
Wenn ein Wert in B1 dann ScrollArea = "$A$5:$J$10"
Leider funkt.es nicht wie gewünscht.
Könnte mir bitte dazu bitte jemand weiterhelfen?
Gruß
Heinz
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$1" And "$B$1" = "" Then
ActiveSheet.ScrollArea = ""
ElseIf Target.Address = "$B$1" And "$B$1" "" Then
ActiveSheet.ScrollArea = "$A$5:$J$10"
End If
End Sub