Letzte Spalte anzeigen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
ScrollColumn ist ja immer am linken Rand orientiert, nicht am rechten.
Die Frage ist, vieviele Spalten sollen den sichtbar sein, bzw welches ist die kleinste Spalte, die am linken Rand erscheinen muss?
Diese solltest du erstmal mit ACTIVEWINDOW.SCROLLCOLUMN einstellen.
Dann solltest du die Zoomstufe so einstellen, daß die Summe am rechten Rand erscheint.
(falls du den Befehl für die Zoomstufe nicht weist - Makrorecorder)
Das kannst du beispielsweise in einer iterartiven Schleife (z.B. von 150% in 5%-Schritten) die Zoomstufe verkleinern, bis die letzte Spalte sichtbar ist.
Den Sichtbaren Bereich ermittelst du mit ACTIVEWINDOW.VISIBLERANGE
Diese funktion gibt dir ein Range-Objekt zurück, daß du ganz normal auswerten kannst.
Also mit (AcitveWindow.visiblerange.column + acitivewindow.visblerange.columns.count-1)
erhältst du die Spalten-Nr. der letzten sichtbaren Zelle, die kannst du ja mit deiner letzten verwendeten Spalte vergleichen.
Gruß, Daniel

Hallo Forum,
nachfolgend der Vollständigkeit halber meine Umsetzung - wie sie tatschlich funktioniert. (Dann kann auch ich sie später einfach auf herber.de wiederfinden ;-))
-- schnipp ----


Sub Teste_letzte_Spalte_ganz_rechts()
maxSpalten = Sheets(ActiveSheet.Name).UsedRange.Columns.Count
'Startzustand letzte Spalte ganz links
ActiveWindow.ScrollColumn = maxSpalten
'Da Spalten unterschiedliche Breite besitzen, kann Anzahl der sichtbaren Spalten nicht vorhergesagt werden.
'Loop, um Letzte Spalte so weit nach rechts zu verschieben, bis gerade noch sichtbar
'Activewindow.VisibleRange.Columns.Count gibt im GETEILTEN Fenster
'die Anzahl der im freien Bereich rechts sichtbaren Spalten an:
sichtbare_freie_Spalten = ActiveWindow.VisibleRange.Columns.Count
Do While ActiveWindow.ScrollColumn + sichtbare_freie_Spalten >= maxSpalten
'solange die erste freie Spalte links plus die Anzahl der sichtbaren,freien Spalten
'größer ist als die letzte Spalte des Datenbereichs:
ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn - 1 'verschiebe den freien Bereich
If ActiveWindow.ScrollColumn = ScrollColumn_alt Then Exit Do     'Möglichkeit abfangen, dass eine Verschiebung nicht möglich ist, weil bereits am linken Anschlag bei Tabellen mit wenig Spalten
ScrollColumn_alt = ActiveWindow.ScrollColumn
Loop
End Sub

-- schnapp ----
Nochmals vielen Dank an Daniel - ohnen Deinen Tipp (VisibleRange) hätte ich keine Chance gehabt.
Gruß
Adi

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread