Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SpinButton + Variable x-Achsen Scrollbar

Forumthread: SpinButton + Variable x-Achsen Scrollbar

SpinButton + Variable x-Achsen Scrollbar
26.11.2019 10:41:29
Felix
Hallo zusammen,
nachfolgend die Test-Datei:
https://www.herber.de/bbs/user/133440.xlsm
In der Test-Datei (Urlaubsplan) gibt es 3 SpinButtons, welche für die Navigation → auftretenden Fehler, Kalenderwochen und Monate dienen.
Ein Fehler entsteht, sobald 2 Mitarbeiter zur gleichen Zeit im Urlaub sind, angezeigt wird dies in der Zeile 6.
Durch Betätigung der SpinButtons springt er immer in die Zeile 12 (Tage) und in die Spalte, welche in den Zellen C1 (Fehler); C2 (Kalenderwochen); C3 (Monate), durch die VERGLEICH-Funktion ermittelt wird.
In der Original-Datei haben wir ca. 40 Mitarbeiter und das Problem ist, dass sobald der Sprung zur Zielzelle erfolgt, soll sich die Scrollbar der horizontalen x-Achse so weit nach rechts verschieben, dass die Zielzelle immer direkt neben den Mitarbeitern zu sehen ist.
Das würde für eine deutlich bessere Übersicht sorgen.
Ich bin leider in dem Thema VBA noch nicht so tief drin, um das Problem selber zu lösen, deshalb würde ich mich freuen, wenn mir einer helfen würde und mir auch die Lösung erklären kann, damit ich diese nachvollziehen kann.
Danke im Vorraus!
Felix
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SpinButton + Variable x-Achsen Scrollbar
26.11.2019 11:05:22
Torsten
Hallo Felix, fuer Spinbutton1 so:

Private Sub SpinButton1_Change()
If Not IsError(Range("C1")) Then Application.Goto reference:=Cells(12, Range("C1"))
ActiveWindow.ScrollColumn = ActiveCell.Column
SpinButton1.Min = 1
SpinButton1.Max = Range("A1").Value + 1
If SpinButton1 > Range("A1").Value Then MsgBox "Keine weiteren Fehler!"
End Sub

Gruss Torsten
Anzeige
AW: SpinButton + Variable x-Achsen Scrollbar
26.11.2019 12:21:34
Felix
Hallo Thorsten,
so einfach kann es gehen :).
Danke dir!
Grüße
Felix
gerne...
26.11.2019 12:24:12
Torsten
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige