|
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
|