Ich bräuchte nocheinmal eure Hilfe!
Ich habe mir einen Code aufgezeichnet, der meine Zelleneingabe auf Gültigkeit prüft.
Habe das Macro um einiges gekürzt und in das Worksheet_Change Ereignis gepackt!
Hat geklappt!
So sieht es aus:
With Range("C13,C14,D4").Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlLess, Formula1:="999999"
.ErrorTitle = "Bitte Materialnummern verwenden!"
.ErrorMessage = "Die Zelle ist auf 6 Stellen begrenzt!"
End With
End Sub
Jetzkann ich aber immer noch Zahlen die weniger als 6 Stellen haben eingeben, dass will ich aber nicht!
Aslo noch mal aufgezeichnet.
sieht so aus:
With Range("C13,C14,D4").Validation
.Delete
.Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="1", Formula2:="6"
.ErrorTitle = "Zellenbegrenzung!"
.ErrorMessage = "Die Zelle ist auf 6 Stellen begrenzt!"
End With
Wie kann ich aber nun den VBA so umarbeiten, dass beide Gültigkeiten greifen? Im Sheet selbst kann ich nur eine eingeben und das Change_Ereignis reagiert auch nur auf eins.
Wer erklärt mir wie man das macht, ob es der richtige Weg ist oder der Holzweg!
Ich freue mich auf eure Antworten
Lisa