Hilfe beim Makro
30.03.2020 12:00:31
Marc
Ich habe folgendes Makro, welches zu 80% funktioniert. Ich möchte, dass nur die EIngabe 1 - 5 funktioniert oder allenfalls dann die Eingabe unten in den Anführungszeichen "1 = AD1". Es erkennt aber z.B. "1DDD" nicht als falsch oder alles grösser als 10.
Um die Hilfe wäre ich sehr dankbar.
Beste Grüsse
Marc
Fehler = 0
Application.EnableEvents = False
For Zähler = 1 To Anzahl
If Sheets("Liste").Range("X1").Offset(Zähler) = "5" Then
Sheets("Liste").Range("X1").Offset(Zähler).Interior.ColorIndex = 3
Fehler = Fehler + 1
ElseIf Sheets("Liste").Range("X1").Offset(Zähler).Interior.ColorIndex = 3 Then
Sheets("Liste").Range("X1").Offset(Zähler).Interior.ColorIndex = xlNone
End If
If Sheets("Liste").Range("X1").Offset(Zähler) = "1" Then Sheets("Liste").Range("X1"). _
Offset(Zähler) = "1 = AD1"
If Sheets("Liste").Range("X1").Offset(Zähler) = "2" Then Sheets("Liste").Range("X1"). _
Offset(Zähler) = "2 = AD2"
If Sheets("Liste").Range("X1").Offset(Zähler) = "3" Then Sheets("Liste").Range("X1"). _
Offset(Zähler) = "3 = AD3"
If Sheets("Liste").Range("X1").Offset(Zähler) = "4" Then Sheets("Liste").Range("X1"). _
Offset(Zähler) = "4 = AD4"
Next Zähler
Application.EnableEvents = True
Range("F31") = Fehler
Fehler = 0