Okay... aktuell habe ich es so gemacht, weil ich nicht verstehe wie man between benutzt...
Private Sub Worksheet_Calculate()
If Range("G1").Value = "6704" Or Range("G1").Value = "6705" Or Range("G1").Value = "6706" Or Range("G1").Value = "6707" Or Range("G1").Value = "6708" Or Range("G1").Value = "6709" Or Range("G1").Value = "6710" Or Range("G1").Value = "6801" Or Range("G1").Value = "6802" Or Range("G1").Value = "6803" Or Range("G1").Value = "6806" Or Range("G1").Value = "6807" Or Range("G1").Value = "6808" Or Range("G1").Value = "6809" Or Range("G1").Value = "6810" Or Range("G1").Value = "6901" Or Range("G1").Value = "6902" Or Range("G1").Value = "6903" Or Range("G1").Value = "6904" Or Range("G1").Value = "6905" Then
MsgBox "Falscher Wert"
End If
End Sub
Das ganze muss jetzt auch in G2-G16 abgefragt werden und ich habe keine lust das mein Code so lange wird.... kann mir jemand erklären wie ich das besser hinbekomme.... möglichst so das eine Leihe das versteht :P
|