Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

per Formel oder VBA bestimmte Blätter auflisten

per Formel oder VBA bestimmte Blätter auflisten
13.03.2018 17:21:12
Andreas
Hallo Excelprofis,
ich habe ein Problem, bei dem ich nicht weiterkomme.
In meiner Mappe befinden sich neben anderen Tabellen, mehrere Tabellen nach dem Prinzip:
Kasse 2016
Kasse 2017
Kasse 2018
Konto 2016
Konto 2017
Konto 2018
Hier kommt natürlich jedes Jahr ein Satz dazu.
Über eine ComboBox auf einem UserForm möchte ich eins der jeweils beiden aktuellsten Blätter aktivieren können.
Also müßten derzeit in der ComboBox die Einträge:
Kasse 2017
Kasse 2018
Konto 2017
Konto 2018
stehen. Kommen dann die Blätter für 2019 dazu, müssten in der ComboBox die Blätter für 2018 und 2019 stehen.
Ich weiß nicht mal im Ansatz, wie ich das hinbekomme.
Kann mir bitte Jemand weiterhelfen.
Danke fürs lesen und die Hilfe,
mfg, Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: per Formel oder VBA bestimmte Blätter auflisten
13.03.2018 17:39:39
Werner
Hallo Andreas,
so:
Private Sub ComboBox1_Change()
'gewähltes Blatt aktivieren
Worksheets(CStr(Me.ComboBox1)).Activate
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
'Blattauswahl in Combobox
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Kasse*" Or ws.Name Like "Konto*" Then
If CLng(Right(ws.Name, 4)) = Year(Date) _
Or CLng(Right(ws.Name, 4)) = Year(Date) - 1 Then
Me.ComboBox1.AddItem ws.Name
End If
End If
Next ws
End Sub
Gruß Werner
AW: per Formel oder VBA bestimmte Blätter auflisten
13.03.2018 17:53:47
Andreas
Hallo Werner,
vielen Dank für die superschnelle Hilfe, funktioniert super. Das hilft mir sehr weiter.
Einen schönen Abend noch.
mfg, Andreas
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
13.03.2018 18:03:00
Werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige