Hallo,
ich möchte gerne in VBA eine xlValidateList nutzen, wenn eine andere Zellen nicht leer ist, aber irgendwie fehlt mir die idee wie ich das machen kann.
Konkret wenn z.b. in Cells(i,31) <> "" then Range("A2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="Orange,Apfel,Mango,Birne,Pfirsich"
Ich habe das so versucht umzusetzen
aber leider führt das zu zwei Problemen, zum einen wird der rest des Codes recht langsam (es wird ein Tabellenblatt mit ca. 500-600 Zeilen und 35 Spalten befüllt und formatiert) und zum anderen wenn ich dann in Cells(i,30) etwas eintrage bekomme ich die Validatlist gefüllt, aber wenn ich dann einen Eintrag auswähle bekomme ich einen einen Laufzeitfehler 1004 an dieser stelle
Wie kann ich das besser/richtig umsetzen? Danke
ich möchte gerne in VBA eine xlValidateList nutzen, wenn eine andere Zellen nicht leer ist, aber irgendwie fehlt mir die idee wie ich das machen kann.
Konkret wenn z.b. in Cells(i,31) <> "" then Range("A2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="Orange,Apfel,Mango,Birne,Pfirsich"
Ich habe das so versucht umzusetzen
Quellcode
- Private Sub Worksheet_Change(ByVal Target As Range)
- lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
- For i = 5 To lngLastRow Step 4
- If Cells(i, 30) <> "" And Cells(i, 31) = "" And Cells(i, 32) = "" Then
- ActiveSheet.Unprotect "PW"
- With Cells(i, 33).Validation
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="Berlin,München,Mailand,Turin"
- .IgnoreBlank = True
- .InCellDropdown = True
- End With
- End If
- Next i
- End Sub
aber leider führt das zu zwei Problemen, zum einen wird der rest des Codes recht langsam (es wird ein Tabellenblatt mit ca. 500-600 Zeilen und 35 Spalten befüllt und formatiert) und zum anderen wenn ich dann in Cells(i,30) etwas eintrage bekomme ich die Validatlist gefüllt, aber wenn ich dann einen Eintrag auswähle bekomme ich einen einen Laufzeitfehler 1004 an dieser stelle
Wie kann ich das besser/richtig umsetzen? Danke
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Tina“ ()