title image


Smiley Re: Auswahlliste ; manuelle Ergänzung
Hallo Selin!



versuch mal folgendes:



1.VBA-Code einfügen:

Füge im VBA-Editor in das Codefenster von "Diese Arbeitsmappe" den folgenden Code ein:



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Dim n_liste As Name

Dim r_Liste As Range

Set n_liste = ActiveWorkbook.Names("Liste")

Set r_Liste = n_liste.RefersToRange

If Not Application.Intersect(Target.Offset(-1), r_Liste) Is Nothing Then

Set n_liste = ActiveWorkbook.Names.Add(Name:="liste", RefersTo:="=" & r_Liste.Resize(r_Liste.Rows.Count + 1).Address)

End If

'evtl. hier diese Neudefinition speichern

End Sub



2.Liste anlegen

Erstelle eine Liste mit beliebigen untereinander eingetragenen Werten.

Gib den Zellen, in die Du die Eintragungen vorgenommen hast, den Namen Liste.



3.Gültigkeitsregel erstellen

Definiere in einer Zelle eine Gültigkeitsregel, und zwar mit

Daten-Gültigkeit- Zulassen:Liste -Quelle: = Liste



Wenn Du nun die Liste unterhalb der letzten Eintragung erweiterst, erscheint dieser hinzugekommene Eintrag in der Gültigkeitsliste.



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: