Alle Blätter auflisten durch Combobox-Filter
21.01.2015 22:05:18
Andreas
ich habe im Netz folgenden Code gefunden, der alle Blätter der Mappe im Tabellenblatt "Blätter" auflistet:
Sub blätter()
Dim blatt As Object
Dim zeile As Double
zeile = 3
For Each blatt In Sheets
Sheets("Blätter").Cells(zeile, 1).Value = blatt.Name
zeile = zeile + 1
Next blatt
End Sub
01.01.2015-A1-jhhhg
01.02.2015-L2-hubib
01.02.2015
Desweiteren habe ich ein UserForm mit einer ComboBox die folgendermaßen befüllt wird:
Private Sub UserForm_Initialize()
With Me.ComboBox1
.RowSource = "Userform!A4:A44"
.ListIndex = -1
End With
End Sub
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, ("dd.mm.yyyy"))
End Sub
1. liste nur die Blätter in Spalte A der Tabelle "Blätter" deren Name folgendem Syntax entspricht: Inhalt der ComboBox-A*****
2. liste nur die Blätter in Spalte B der Tabelle "Blätter" deren Name folgendem Syntax entspricht: Inhalt der ComboBox-L*****
Beispiele wenn in ComboBox 20.01.2015 steht:
Blattname: 20.01.2015-A4-gvviu - soll in Spalte A aufgelistet werden
Blattname: 20.01.2015-L1-bububb - soll in Spalte B aufgelistet werden
Blattname: 20.01.2015-A2-zdjnbddh - soll in Spalte A aufgelistet werden
Blattname: 20.01.2015-L15-lkkjugvviu - soll in Spalte B aufgelistet werden
Blattname: 20.01.2015 - soll nicht aufgelistet werden, da nach dem Datum kein -A oder -L steht
Ich hoffe ich habe mich verständlich ausgedrückt und mir kann Jemand helfen. Das ist ein wenig zu hoch für mich.
Vielen Dank fürs lesen und die Hilfe!
mfg, Andreas