kann jemand von euch helfen, das bekommt Ihr sicher schnell hin.
Habe eine Datumsberechnung siehe unten, wenn Zelle H6 oder O6 nicht gefüllt sind soll er mir in der Zielzelle nichts ausgeben.
Mit Zellbezüge bekomme ich das hin, aber in VBA nicht.
Vielen Dank im voraus!!
Andi
Sub DatumBerechnen()
Dim letztezeile As Integer
Dim i As Integer
' Zielzelle = DateSerial(Year(QuellenZelle), Month(QuellenZelle) + 6, Day(QuellenZelle))
'=WENN(ODER(H6="";O6="");"";DATUM(JAHR(O6)+H6;MONAT(O6);TAG(O6)))
letztezeile = Worksheets("Ziel").Cells(Rows.Count, 17).End(xlUp).Row
For i = 6 To letztezeile
If Cells(i, 8).Value Or Cells(i, 15).Value "" Then
Cells(i, 17).Value = DateSerial(Year(Cells(i, 15)) + Cells(i, 8), Month(Cells(i, 15) _
_
_
_
), Day(Cells(i, 15)))
Else
IsEmpty (Cells(i, 17))
End If
Next i
End Sub