Sortierlisten automatisch erzeugen
21.09.2004 14:59:04
LeFay
Beim Starten eines Workbooks soll automatisch geprüft werden, ob
Sortierlisten vorhanden sind. Diese Sortierlisten befinden sich in einem
Tabellenblatt dieser Arbeitsmappe. Da jeder Anwender auch eigene
Sortierlisten besitzt, wäre es erforderlich diese BASIS-Sortierlisten zu
benennen und beim Starten der Arbeitsmappe soll dann halt geprüft werden, ob
unter Optionen/AutoAusfüllen, diese Liste schon vorhanden ist und wenn
nicht, dann soll sie angelegt werden.
Probiert habe ich es erfolglos bislang so:
Sub sortierlisten()
a = MsgBox("Sie haben " & Application.CustomListCount & _
" Sortierlisten im Programm. ", vbYesNo)
If a = vbYes Then
Sheets("Grunddaten").Activate
ActiveSheet.Unprotect password:="plaN"
Application.AddCustomList ListArray:=Range("E3:E41")
Application.AddCustomList ListArray:=Range("F3:F41")
Application.AddCustomList ListArray:=Range("G3:G41")
Application.AddCustomList ListArray:=Range("H3:H41")
Application.AddCustomList ListArray:=Range("I3:I41")
ActiveSheet.Protect password:="plaN"
Else
Exit Sub
End If
End Sub
Würde mich über Hilfe sehr freuen.