Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

horiz. scrollen / spalte x mittig

Forumthread: horiz. scrollen / spalte x mittig

horiz. scrollen / spalte x mittig
10.10.2021 19:52:18
Fred
Hallo Excel Profis,
ich möchte mit einem Makro horizontal soweit scrollen, so das die spalte "X" mittig meines bildschirms steht.
Gibt es dafür ein vba?
gruss
Fred
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: horiz. scrollen / spalte x mittig
11.10.2021 09:06:45
volti
Hallo Fred,
hier eine Idee, ein Ansatz dazu zum Testen und Spielen.
Abhängig von den Spaltenbreiten wird das aber nicht immer gelingen mit der Mittigkeit.
Code:



[Cc]



Sub Setze_X_Mittig()
  Dim i As Integer, l As Currency
 
  l = Cells(1, "X").Width \ 2
  For i = 25 To 1 Step -1
      l = l + Cells(1, i).Width
      If l > (ActiveWindow.VisibleRange.Width \ 2) Then Exit For
  Next i
  If i > 2 Then i = i - 1 Else i = 1
  ActiveWindow.ScrollColumn = i
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige