Scrollarea mit Hilfe von VBA festlegen
Mit Scrollareas kann man verhindern, dass User in Zellen herumklicken, wo sie nichts zu suchen haben. Mittels VBA-Makro wird ein Bereich festgelegt, in den der Cursor per Mausklick gesetzt werden kann. In Zellen außerhalb der Scrollarea kann der Cursor dagegen nicht gesetzt werden.
Legt Scrollareas für die einzelnen Tabellenblätter fest
Sub scrollarea()
'Legt Scrollareas für die einzelnen Tabellenblätter fest.
Sheets("Tabelle1").scrollarea = "D1"
Sheets("Tabelle2").scrollarea = "D1"
Sheets("Tabelle3").scrollarea = "A1"
Sheets("Tabelle14").scrollarea = "t1:u6"
End Sub
Hebt Scrollareas für die einzelnen Tabellenblätter auf
Sub scrollarea_aufheben()
'Hebt Scrollareas für die einzelnen Tabellenblätter auf.
Sheets("Tabelle1").scrollarea = ""
Sheets("Tabelle2").scrollarea = ""
Sheets("Tabelle3").scrollarea = ""
Sheets("Tabelle4").scrollarea = ""
End Sub
Das Ergebnis sieht so aus:
Option Explicit
Sub Auto_Open()
'
' Makro startet automatisch, wenn die Excel Arbeitsmappe geöffnet wird
'
Call scrollarea
End Sub
Sub scrollarea()
'Legt Scrollareas für die einzelnen Tabellenblätter fest.
Sheets("Tabelle1").scrollarea = "D1"
Sheets("Tabelle2").scrollarea = "D1"
Sheets("Tabelle3").scrollarea = "A1"
Sheets("Tabelle14").scrollarea = "t1:u6"
End Sub
Gib mir gerne einen Kaffee ☕ aus ❗️
Wenn dir meine Beiträge gefallen und geholfen haben, dann kannst du mir gerne einen Kaffee ☕️ ausgeben.
• 
Bitcoin Address: bc1qfuz93hw2fhdvfuxf6mlxlk8zdadvnktppkzqzj
Follow Me❗️