Auswahlbox mit VBA erstellen

Eine Auswahlbox, wie man diese normal über Daten –> Datenüberprüfung erstellen kann, ist mit VBA ein wenig umständlicher zu erstellen.

Auswahl-Dropdown
Auswahl-Dropdown

Option Explicit

Sub Auswahl()    

Dim ws As Worksheet
Dim range1 As Range, rng As Range

ActiveSheet.Range("P7").Value = "ja" ' Darf nicht gelöscht werden
ActiveSheet.Range("P8").Value = "nein" ' Darf nicht gelöscht werden

Set ws = ActiveSheet
Set range1 = ws.Range("P7:P8")
Set rng = ws.Range("P10")

With rng.Validation
    .Delete 'delete previous validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="='" & ws.Name & "'!" & range1.Address
End With

End Sub

Dropdown Menü

In OpenOffice.org Calc ist es möglich, Dropdown Menüs in definierte Zellen einzufügen. Die Informationen, die in der Dropdown-Liste abgerufen werden können, werden in einer eigenen Liste hinterlegt.
Im nachfolgenden Beispiel wird das Thema erläutert.

Die Zahlen sind in einer einfachen Liste in das Feld zu schreiben, z.B.

1
2
3
4
5