Hallo Zusammen,

ich würde per Schaltfläche gerne eine Datenüberprüfung einfügen. Dabei soll, wenn in einer Zelle "zylindrisch" drin steht, der maximale Wert der Geschwindigkeit 80 betragen dürfen.

Ich hab das nun folgendermaßen gelöst:

Sub Makro3()
'
Range("B10").Select
Range("B10").Clear
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=wenn(B11=""zylindrisch""; B1081; """")"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Ich habe das auch mit dem Makro Aufzeichnen gegengecheckt, allerdings bekomme ich immer einen Laufzeitfehler (1004) und kann mir nicht erklären woran das liegt. Kann mir jemand von euch helfen?


Liebe Grüße
KG