Microsoft Excel

Herbers Excel/VBA-Archiv

Gültigkeitsliste | Herbers Excel-Forum


Betrifft: Gültigkeitsliste von: Serge
Geschrieben am: 16.10.2008 18:46:48

Hallo Leute
kann mann eine Gültigkeitsliste variabel gestallten?
zB.: A1:(Selection.End(xlDown))
Gruss ujn danke
Serge

  

Betrifft: AW: Gültigkeitsliste von: Tino
Geschrieben am: 16.10.2008 19:46:40

Hallo,
kannst Du auch sagen was diese Gültigkeitsliste mache soll?


Gruß Tino


  

Betrifft: AW: Gültigkeitsliste von: Serge
Geschrieben am: 16.10.2008 19:53:25

Hallo Tino
Die Gültigkeitsliste (variabel) soll als Dropdownauswahl benutzt werden!
zB.: A1:(Selection.End(xlDown))
Serge


  

Betrifft: AW: Gültigkeitsliste von: Tino
Geschrieben am: 16.10.2008 20:03:26

Hallo,
bin mir nicht sicher, aber dies wird nur mit VBA machbar sein.

Hier ein Beispiel für die aktive Tabelle.

Sub Makro1()
Dim rngBereich As Range
Set rngBereich = Range("A1", Range("A1").End(xlDown))
Range("A:A").Validation.Delete
    With rngBereich.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$M$1:$M$10"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub



Gruß Tino


  

Betrifft: AW: Gültigkeitsliste von: Serge
Geschrieben am: 16.10.2008 20:28:10

Tino
dein Vorschlag nimmt aus M1:M10 die Liste und fügt sie in A:A ein!
Es sollte aber in etwa so sein:M1:M(Selection.End(xlDown))
Serge


  

Betrifft: AW: Gültigkeitsliste von: Tino
Geschrieben am: 16.10.2008 20:53:38

Hallo,
machen wir es eben so rum.

Option Explicit

Sub Makro1()
Dim rngBereich As Range
Set rngBereich = Range("M1", Range("M1").End(xlDown))

    With Range("A:A").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & rngBereich.Address
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub




Gruß Tino


  

Betrifft: Danke Tino! von: Serge
Geschrieben am: 16.10.2008 21:02:59

Es klappt so mit deinem Vorschlag!
Serge


  

Betrifft: Gültigkeitsliste: gehts auch ohne VBA? von: Serge
Geschrieben am: 16.10.2008 20:47:37

Hallo Leute
kann mann eine Gültigkeitsliste variabel als Dropdownauswahl gestallten?
zB.: A1:(Selection.End(xlDown))
Gruss und danke
Serge


  

Betrifft: AW: Gültigkeitsliste: gehts auch ohne VBA? von: Uduuh
Geschrieben am: 16.10.2008 23:36:11

Hallo,
vergib einen Namen.
Name: Liste
Bezug: =bereich.verschieben(A1;;;Anzahl2(A:A);)

Gruß aus’m Pott
Udo



  

Betrifft: Klappt super! von: serge
Geschrieben am: 17.10.2008 07:59:53

Danke Udo

Gruss aus dem Elsass
Serge