ScrollArea mit Bedingungen
20.09.2004 18:53:35
Lorenz
mit diesemn kleinen Code wird mit dem Ereignis Worksheet_Change der
"BereichGrenzen" aufgerufen. Leider schaffe ich es nicht mit mehr Bedingungen (bis zu zehn verschiedene). Gehts eventuell mit Select Case?
Sub BereichGrenzen()
If Range("a1").Value = "test" Then
ActiveSheet.ScrollArea = "c1:e5"
ElseIf Range("a1").Value = "neu" Then
ActiveSheet.ScrollArea = "c6:e10"
ElseIf Range("a1").Value = "alt" Then
ActiveSheet.ScrollArea = "c11:e15"
Else: ActiveSheet.ScrollArea = "a1:a1"
End If
End Sub
Danke im Voraus!
Gruss Lorenz
Anzeige