Dropdown-Auswahlliste in VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sebastian,
das von Dir gesuchte Feature nennt sich "Gültigkeitsprüfung" und befindet sich bis Excel 2003 im Menü "Daten - Gültigkeit - Zulassen: Liste - Quelle: Bereich".
Damit Du eine Dropdown-Auswahlliste in einem Tabellenblatt erhältst, die mit Werten aus einem anderen Tabellenblatt gefüllt ist, musst Du dem Bereich im Quellblatt (bei Dir also Blatt "A") einen Namen vergeben :
- Bereich im Quellblatt markieren
- Strg+F3 drücken
- Einen Namen vergeben (z.B. "NamenAusA")
- mit "Hinzufügen" und "OK" bestätigen
Ohne diesen Namen funktioniert das grundsätzlich nicht in einem externen Tabellenblatt !
Nun folgt die eigentliche Beantwortung Deiner Frage :
Per VBA kannst Du auf neu erstellte Tabellenblätter reagieren, indem du im Klassenmodul "DieseArbeitsmappe" das Ereignismakro "Workbook_NewSheet" erstellst.
Füge also folgendes Makro in das Klassenmodul "DieseArbeitsmappe" ein :

'Dieser Code muss in das Klasenmodul "DieseArbeitsmappe" im VBA-Editor !

'10.04.2008, NoNet - www.excelei.de

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    If Sh.Type = xlWorksheet Then 'Gültigkeit nur für neue Tabellenblätter erstellen !

        With Sh

            With [E3].Validation 'Gültigkeit in neuem Blatt in Zelle E3 erstellen

                .Delete 'nur prophylaktisch : Bestehende Gültigkeit löschen

                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

                xlBetween, Formula1:="=NamenAusA" 'NamenAusA muss in Blatt "A" definiert sein !

                .IgnoreBlank = True

                .InCellDropdown = True

                .InputTitle = "Bitte Wert auswählen" 'Eingabemeldung kann auch gelöscht werden

                .ErrorTitle = "Ungültige Eingabe !"

                .InputMessage = "Bitte Wert aus A!A1:A10 auswählen" 'Erscheint bei Falscheingabe

                .ErrorMessage = "Bitte einen gültigen Wert aus der Liste auswählen !"

                .ShowInput = True

                .ShowError = True

            End With

        End With

    End If

End Sub

Es wird im neuen Tabellenblatt in Zelle E3 eine Gültigkeit definiert mit Bezug auf den Bereichsnamen "NamenAusA", der dazu wie oben beschrieben definiert sein muss.

ACHTUNG : Wenn Du (z.B. per gruppierten Tabellenblättern) mehrere Tabellenblätter GELICHZEITIG einfügst, dann reagiert dieses Makro nur auf das ERSTE dieser eneuen tabellenblätter, daher wird diese Gültigkeit auch nur im ERSTEN dieser Blätter eingefügt !!

Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdown-Auswahlliste in VBA

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread