Vielen Dank @Crazy Tom, hat ja mal wieder super geklappt!
Das Einzige was ich angepasst habe, war das ich die exakten Werte angeben musste, da in L4:L99 noch Formeln hinterlegt waren, und die Prüfung >0 somit immer angeschlagen hat.
So siehts jetzt aus:
Sub Mail()
Dim i As Long
With Sheets("AÜ")
For i = 4 To 99
If .Cells(i, 12).Value = 1 Then
.Cells(i, 14).Value = "Mail"
Else
If .Cells(i, 12).Value = 2 Then
.Cells(i, 14).Value = "Mail"
Else
If .Cells(i, 12).Value = 3 Then
.Cells(i, 14).Value = "Mail"
Else
If .Cells(i, 12).Value = 4 Then
.Cells(i, 14).Value = "Mail"
Else
If .Cells(i, 12).Value = 5 Then
.Cells(i, 14).Value = "Mail"
End If
End If
End If
End If
End If
Next
End With
End Sub
Auch an dich Christian vielen Dank für deine Bemühungen!
|