ich habe eine Tabelle, in der jeden Monat ein neues Blatt eingefügt wird, das mit "KW" beginnt. In einer Auswahlliste möchte ich jetzt per Gültigkeit eine Dropdownliste mit allen Tabellenblättern, die mit KW beginnen, einfügen. Leider scheitere ich bei der Definition dieser Gültigkeit bzw. bereits beim Zuweisen des definierten Namens.
Mein bisheriger Ansatz:
Sub Blätter()
Dim wks As Worksheet
Dim Anzahl As Byte
Dim Blatt(100)
For Each wks In Worksheets
If Left$(wks.Name, 2) = "KW" Then
Anzahl = Anzahl + 1
Blatt(Anzahl) = wks.Name
End If
Next
'activeworkbook.Names.Add (Name:="Test1", RefersTo
'aufgezeichnet: ActiveWorkbook.Names.Add Name:="Testname", RefersToR1C1:="=Tabelle1!R3C3:R14C3"
MsgBox Anzahl
End Sub
Damit hab ich ein Array Blatt(), in dem alle betreffenden Blätter vorhanden sind. Nun soll in der Zelle F1 eine Dropdownliste erscheinen, die das Array auflistet (am besten auch noch ohne die leeren Array-Elemente).
Der Rekorder hat mich in dem Fall nicht weitergebracht.
Kann mir hier jemand unter die greifen? Danke schon mal.
Gruß
David