Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gültigkeitsliste

Forumthread: Gültigkeitsliste

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

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gültigkeitsliste
16.10.2008 19:46:00
Tino
Hallo,
kannst Du auch sagen was diese Gültigkeitsliste mache soll?
Gruß Tino
AW: Gültigkeitsliste
16.10.2008 19:53:25
Serge
Hallo Tino
Die Gültigkeitsliste (variabel) soll als Dropdownauswahl benutzt werden!
zB.: A1:(Selection.End(xlDown))
Serge
AW: Gültigkeitsliste
16.10.2008 20:03:00
Tino
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

Anzeige
AW: Gültigkeitsliste
16.10.2008 20:28:10
Serge
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
AW: Gültigkeitsliste
16.10.2008 20:53:00
Tino
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

Anzeige
Danke Tino!
16.10.2008 21:02:59
Serge
Es klappt so mit deinem Vorschlag!
Serge
Gültigkeitsliste: gehts auch ohne VBA?
16.10.2008 20:47:37
Serge
Hallo Leute
kann mann eine Gültigkeitsliste variabel als Dropdownauswahl gestallten?
zB.: A1:(Selection.End(xlDown))
Gruss und danke
Serge
AW: Gültigkeitsliste: gehts auch ohne VBA?
16.10.2008 23:36:11
Uduuh
Hallo,
vergib einen Namen.
Name: Liste
Bezug: =bereich.verschieben(A1;;;Anzahl2(A:A);)
Gruß aus’m Pott
Udo

Anzeige
Klappt super!
17.10.2008 07:59:53
serge
Danke Udo
Gruss aus dem Elsass
Serge
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige