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

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.