Validierung mit Variablen

Hallo weltbestes Forum
ich möchte in einem Code folgenden Befehle für die Validierung eine Zelle benutzen.
An Stelle der 1 in der Listenbezeichnung "Liste1" möchte ich wie sonst üblich statt der 1 eine Variable einbauen, " & i & ". Funktioniert ab hier nicht ...
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Liste1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Liste" & i & ""
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
vielleicht kann mir jemand auf die Sprünge helfen. In der Hilfe habe ich bis jetzt nichts gefunden.
VG Thomas S.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim i As Long i = 1 With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Liste" & i .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

Vielen Dank für Eure Mithilfe!
Am Ende habe ich hier im Forum einen Artikel entdeckt, wo ein änliches Problem diskutiert wurde. Eine der Forumskollegen hat da entnerft gemeint: '... nimm einfach mal ein neues Blatt! Das Alte scheint einen Knick zu haben ...'
Genau das war der Fall. Ich habe eine neuen Datei angelegt die Inhalte der Blätter kopiert, den Code seperat kopiert und übertragen. Alle Listen neu angelegt und siehe da alles, aber auch alle vorgeschlagenen Lösungen und meine alte:
a.Range("B34:C34").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Liste" & i
funktionieren alle.
Wenn ich zurück überlege, was ich gemacht habe, fällt mir nur ein, dass ich aus einer alten Datei ein ähnliches Blatt kopiert und eingefügt habe. Dann habe ich die Tabellenbezeichnungen im Editor geändert ... und ich arbeite mit verschiedenen Versionen O2010 O2007 und O2003.
Na ja, nach ca 8 Stunden Ärger, überwiegt das Erfolgserlebnis.
Viele Grüße und Danke nochmal.
Thomas S.

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread