wenn Wert in Zelle dann...
30.11.2022 23:47:14
Lapos
Ich möchte erreichen das wenn in Spalte A ab genau A3 ein Wert vorhanden ist, in Spalte P dazu 0,19 ausgegeben wird. Wenn in A keine Wert vorhanden ist soll P natürlich leer bleiben bzw. geleert werden.
Sub test()
Dim i As Integer
With Sheets("Tabelle1")
For i = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Range("A3" & i) > 0 Then .Range("P" & i) = "0,19" Else .Range("P" & i) = "" ' wenn ein Wert in Zelle A dann Wert in P ausgeben
Next i
End With
End Sub
Lapos