Hallo liebe Forumsmitglieder,

anbei der Code, im dem ich versucht habe, wenn vorbestimmte Zahlen in einer bestimmten Zelle E10 auftreten soll eine bestimmte Zahl in 

AB3 Zelle  erscheinen,

bei weiteren vorbestimmten Zahlen in derselben Zelle E10, sollte eine weitere Zahl in AB3 Zelle erscheinen, und das gleiche 5xMal.

Ich werde mich freuen wenn jemand helfen könnte!

Freundliche Grüße

Axl

Code:

Option Explicit
Sub spalte()
Dim iRow As Long
Dim ws As Worksheet
Dim wb As Workbook

Set wb = ThisWorkbook
Set ws = wb.Worksheets(2)

For iRow = 10 To Cells(Rows.Count, 10).End(xlUp).Row

    If ws.Cells(iRow, 10).Value = "5,0" Or "5,9" Or "2,8" Or "3,5" Or "1,0" Or "3,8" Or "5,0" Then  
    wb.Worksheets("Freigabeantrag").Range("AB3") = "8" 

    ElseIf ws.Cells(iRow, 10) = "5,7" Or "6,3" Or "3,0" Or "5,7" Or "5,3" Or "2,2" Or "5,5" Then
    wb.Worksheets("Freigabeantrag").Range("AB3") = "9"
   
   End If
 
Next

End Sub