Gültigkeit mit VBA Festlegen
12.01.2003 17:27:43
wolfgang
In einer OrteDatei in Tabelle2 sind zu gleichen Postleitzahlen
unterschiedliche Orte gespeichert
Ich möchte nun in einer Zelle in Tabelle1 eine Zelle mit den Gültigkeiten variabel je nach Postleitzahl reinschreiben.
Ich probiere schon nee ganze weile
hier mal mein ProgrammCode
Sub Gueltigkeit()
Dim zei1, zei2 As Variant
zei1 = 2
zei2 = 5
Sheets("Tabelle3").Range(Cells(zei1, 2), Cells(zei2, 2)).Name = "Liste"
Sheets("Tabelle1").Range(Cells(3, 4)).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Liste"
End With
End Sub
kann jemand helfen?
gruß wolfgang