Positionieren einer Spalte auf dem Bildschirm (Microsoft Excel)
Riek ist beim Entwickeln eines Makros auf ein Problem gestoßen, das den Bildschirm für Benutzereingaben einrichtet. Spalten A: G müssen immer auf dem Bildschirm bleiben, damit sein Makro diese Spalten einfriert. Anschließend gibt er einen Befehl aus, um in Spalte Z zu wechseln und die Eingabe zu starten. Dadurch werden die Spalten T: Z rechts von den eingefrorenen Spalten A: G platziert. Was Riek wirklich will, ist, dass die Spalten Z: AF rechts von A: G erscheinen, aber er weiß nicht, wie er das erreichen soll.
Es gibt verschiedene Möglichkeiten, um die gewünschten Ergebnisse zu erzielen. Die erste besteht darin, einfach „über“ das gewünschte Ziel hinauszugehen und dann wie im folgenden Makro dorthin zurückzukehren:
Sub GotoCol1() With Application ActiveWindow.FreezePanes = False Range("H1").Select ActiveWindow.FreezePanes = True .Goto Range("IV1") .Goto Range("Z1") End With End Sub
Die wichtigen Codezeilen sind diejenigen, die die Goto-Methode verwenden. Der erste Sprung führt zur letzten Zelle der ersten Reihe, und der zweite Sprung bewegt sich zurück zum wahren Ziel, Z1. Wenn Sie sich auf diese Weise bewegen, endet die Spalte Z genau rechts vom eingefrorenen Bereich A: G.
Dies funktioniert zwar einwandfrei, eine bessere Lösung wäre jedoch die Verwendung des Scroll-Parameters mit der Goto-Methode. Betrachten Sie das folgende Beispiel:
Sub GotoCol2() ActiveWindow.FreezePanes = False Range("H1").Select ActiveWindow.FreezePanes = True Application.Goto Reference:=Range("Z1"), Scroll:=True End Sub
Der Scroll-Parameter ist bei der Goto-Methode optional. Der Standardwert ist False. Wenn Sie True festlegen, wird mit Springen durch das Fenster gescrollt, sodass die obere linke Ecke des Zielbereichs (Z1) in der oberen linken Ecke des Fensters angezeigt wird.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (10523) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: