Function UgeListe() IFra = Range("IndlæstFraUge").Value ITil = Range("IndlæstTilUge").Value
weekList = IFra I = 1
For Uge = IFra To ITil - 1 weekList = weekList & ";" & IFra + I I = I + 1 Next Uge
UgeListe = weekList
End Function
---------------------
Mit spørgsmål er, hvordan jeg får denne til at virke som input til en datavalideringsliste?
Har forsøgt med =UgeListe eller =weeklist men de virker ikke. Datavalideringslisten læser ikke tekststrengen som elementerne (2,3,4,5) delt med ; men som et element 2;3;4;5.
Sub Uger() Dim Ugeliste As String IFra = Range("IndlæstFraUge").Value ITil = Range("IndlæstTilUge").Value For Uge = IFra To ITil - 1 Ugeliste = Ugeliste & Uge & "," Next Uge
With Range("F7").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Ugeliste .IgnoreBlank = True .InCellDropdown = True End With End Sub
hvis du nu smider koden op arkets modul, så gøres det automatisk , når Indlæsfrauge of indlæstiluge skifter
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:B2")) Is Nothing Then Dim Ugeliste As String IFra = Range("A2").Value'Range("IndlæstFraUge").Value ITil = Range("B2").Value'Range("IndlæstTilUge").Value For Uge = IFra To ITil - 1 Ugeliste = Ugeliste & Uge & "," Next Uge
With Range("F7").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Ugeliste .IgnoreBlank = True .InCellDropdown = True End With End If
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
