Kann man die untere Formel auch als VBA Code einfügen ?
Könnte mir dabei bitte jemand helfen.
Danke Heinz
Formel in N13
=WENN(N10=1;8;WENN(N10=2;8;WENN(N10=3;8;WENN(RECHTS(N10)="S";8;0))))
If Range("N10").Value > 0 And _
Range("N10").Value < 4 Or _
Right(Range("N10").Value, 1) = "S" Then
Range("N13").Value = 8
Else
Range("N13").Value = 0
End If
Sub tt()
Range("N13").FormulaLocal = "=WENN(N10=1;8;WENN(N10=2;8;WENN(N10=3;8;WENN(RECHTS(N10)=""S"";8;0))))"
Range("N13").Copy Destination:=Range("N13:AR13")
End Sub
'
' wenn in Spalte/Zeile N10 bis AR10 eine 1, 2, 3 enthalten ist oder
' das rechteste Zeichen ein S ist, soll in Spalte/Zeile N13 bis AR13
' eine 8 erscheinen, sonst eine Null.
'
Sub VBA_Wenn()
Dim iSpalte As Integer
For iSpalte = 14 To 44
If Cells(10, iSpalte).Value > 0 And _
Cells(10, iSpalte).Value < 4 Or _
Right(Cells(10, iSpalte).Value, 1) = "S" Then
Cells(13, iSpalte).Value = 8
Else
Cells(13, iSpalte).Value = 0
End If
Next iSpalte
End Sub