Per Combobox zum richtigen Datum scrollen.

Private Sub ComboBox1_Change() Dim intZeile As Integer 'intZeile = Selection.Row If ComboBox1.Value = "Jänner" Then Range("AZ5").Select ElseIf ComboBox1.Value = "Februar" Then Range("CL6").Select ElseIf ComboBox1.Value = "März" Then Range("EC6").Select ElseIf ComboBox1.Value = "April" Then Range("FW5").Select ElseIf ComboBox1.Value = "Mai" Then Range("HJ5").Select ElseIf ComboBox1.Value = "Juni" Then Range("IS5").Select ElseIf ComboBox1.Value = "Juli" Then Range("KM5").Select ElseIf ComboBox1.Value = "August" Then Range("LZ5").Select ElseIf ComboBox1.Value = "September" Then Range("NU5").Select ElseIf ComboBox1.Value = "Oktober" Then Range("PC5").Select ElseIf ComboBox1.Value = "November" Then Range("QT5").Select ElseIf ComboBox1.Value = "Dezember" Then Range("SH5").Select ElseIf ComboBox1.Value = "Nächster Jänner" Then Range("TW6").Select End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Meine Antwort kommt jetzt etwas spät es hat etwas Zeit gedauert, um zu überlegen wie ich das am besten mache. Um die richtige Frage zu stellen.

Application.Goto Reference:=Worksheets("Dein Tabellenname").Range("AZ5"), scroll:=True

Hat mir schon sehr weiter geholfen, danke @ede für den guten Tipp
Ich habe jetzt jeden Abschnitt der Tabelle einen Bereichsnamen gegeben. (zbsp Jänner_2019). Dieser Bereich würde ich dann später gerne weiter verwenden im Code und auch in den Formeln. Um das ganze flexibel zu gestalten. Der noch nicht ganz ideale Code Schaut jetzt so aus:

Private Sub cboMonatWeahlen_Change()
Dim Auswahl As String
Dim lngZielZeile As Long
lngZielZeile = Selection.Row
Auswahl = cboMonatWeahlen.Value
Select Case Auswahl
Case "Jänner_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "Februar_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "März_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "April_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "Mai_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "Juni_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(Range(Auswahl), Range(Auswahl).Column).Address), Scroll:=True
Case "Juli_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "August_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "September_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "Oktober_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "November_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "Dezember_19"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
Case "Jänner_20"
Application.Goto Reference:=Worksheets("Aktuelles Jahr") _
.Range(Cells(lngZielZeile, Range(Auswahl).Column).Address), Scroll:=True
End Select
End Sub

Mein Problem ist jetzt, ich will das in der Combobox der Monat steht, der gerade sichtbar ist das ist ja auch gut so, um anzuzeigen wo man sich gerade befindet. Aber wenn man nach links oder rechts scrollt gelangt man ja zum nächsten Monat bspw. Februar in der Combobox steht dann noch Jänner.
@Herbert Grom: Danke für deine Antwort. Hab eine Datei hochgeladen bin auf den Lösungsansatz sehr gespannt. https://www.herber.de/bbs/user/125822.xlsm
Grüße
Markus

Hallo
Naja eine gute frage; ich bin da leider nicht sehr bewandert. Meinst du nur die zwei Bereiche "Einsatzgebiet_19 und Personal_19" oder alle Bereiche? Ich versuch mal einen Überblick zu geben was ich vorhabe oder mir gedacht hab umzusetzen und versuch es zu begründen. Vielleicht ist es dann für dich einfacher es abzuschätzen.
Bereiche mit Jahreszahl.
Die Grundidee bei den Bereichs Namen mit Jahreszahl wäre das ich in der Mappe zwei Jahre drinnen hab auf zwei Tabellenblättern Aktuelles Jahr und Vorjahr. Das Problem ist das die Bereichs Namen für die ganze Mappe gelten und nicht pro Tabellenblatt sind. Mit Jahreszahl kann ich sie dann besser ansprechen. Zumindest ist das mein Glaube als Laie. Natürlich wenn du sagst das es ohne besser geht. Ich bin für jeden Input Dankbar.
Der Rest meines Vorhabens
Löschen und wider aufbauen der Bereiche:
Das Löschen und neu erstellen der Bereiche wäre in erster Linie für Änderungen der Spaltenanzahl bei den Personaldaten gedacht. Wenn sich jemand noch ne Notizspalte einfügen will oder etwas in der Richtung, will ich verhindern das die Bereiche Verrutschen. Da ich mir vorgenommen hab alles auf diesen Bereichen Aufzubauen, denn Code wie auch die Formeln.
Formeln Zentral verwalten:
Auf einem Tabellenblatt Einstellungen würden Musterformeln stehen die statt des Tatsächlichen Bereiches nur das Wort Bereich enthalten. Diese sollen dann über VBA auseinandergenommen werden und durch die Bezeichnung des jeweiligen Bereiches ersetzt. Es soll so ne Art Formel Generator werden der das anpassen der Formeln Zentral ermöglicht. Im Moment hat die Mustertabelle ja immer 31 Spalten und dann die Berechnungsspalten dadurch lässt sich die Formel einfach immer weiter kopieren die ungenutzte Spalte 31 in manchen Monaten soll aber dann weg. Der Formelgenerator soll die Musterformeln anpassen dann einfügen und bis zur letzten benutzen Spalte runter ziehen.
Übersichtstabelenblatt:
Ich wollt auf einem dritten Tabellenblatt eine Art Übersicht erstellen mit zwei Combobox zur Personen Auswahl, durch welche die einzelnen Monate/Bereiche einer bestimmte Zeile/Person untereinander ausgegeben bekommt. Dazu noch eine Checkbox durch die Mann bestimmen kann ob nur die Person aus einem Jahr oder aus beiden Jahren angezeigt wird. Oder zwei verschiedene Personen. Um diese miteinander zu vergleichen. Dann noch eine Gehe zu Schaltfläche die einen bei anklicken eines Tages und drücken an die stelle im Haupttabellenblatt bringt um dort etwas zu ändern.
Der Sinn ist das die Leute sich wegen den beliebten Urlaubszeiträumen August usw. oft in den Haaren haben. Und eine schnelle Übersicht wie die Person letztes Jahr auf Urlaub war schnelle Argumente Liefert warum im laufenden Jahr die Person A und nicht die Person B zbsp im August gehen kann.
Vielen Dank für die Hilfe und Grüße
Markus

Beliebteste Forumthreads (12 Monate)

Per Combobox zum richtigen Datum scrollen.

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Per Combobox zum richtigen Datum scrollen.

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread