Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

letzter Wert in Splate -> in Gültigkeit übernehmen

Forumthread: letzter Wert in Splate -> in Gültigkeit übernehmen

letzter Wert in Splate -> in Gültigkeit übernehmen
08.12.2005 15:32:01
Ellen
Hallo,
wie kann ich zählen bis zu welcher Zeile (oder Zelle) in Spalte M Werte existieren? Diese Zeile (oder Zeile) sollte in eine Variable abgespeichert werden, damit ich bei der Gültigkeit den Bereich bis zu der Zelle angeben kann.
Und wie kann ich die Variable dann in meine Gültigkeit einfügen? So dass ich die Gültigkeitsliste von B2 bis B.... hinterlegt habe.
Hier schon mal meine Gültigkeit:
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$M$2:$M$5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Stop"
.InputMessage = ""
.ErrorMessage = "Please choose a number from the list!"
.ShowInput = True
.ShowError = True
End With
Gruß,
Ellen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzter Wert in Splate -> in Gültigkeit übernehmen
08.12.2005 15:38:05
UweD
Hallo
so ...

LR = Cells(Rows.Count, 13).End(xlUp).Row 'letzte Zeile der Spalte 13 =M
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$M$2:$M$" & LR
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Stop"
.InputMessage = ""
.ErrorMessage = "Please choose a number from the list!"
.ShowInput = True
.ShowError = True
End With

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: letzter Wert in Splate -> in Gültigkeit übernehmen
08.12.2005 16:20:56
Ellen
Hallo Uwe,
vielen Dank, da hätte ich auch selbst drauf kommen können ;-)
Gruß,
Ellen
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige