Hallo ich bins nochmal.
Nach langem rumprobieren bin ich etwas weitergekommen, aber noch nicht ganz. Ich möchte, dass wenn die Kostenstelle zb 11210 ist, dass der Name in Spalte A eingefügt wird. Dies ist mein Code dazu :
Dim s As Long
For s = LastRow To 10 Step -1
If Cells(s, 14) = "11200" Then
Cells(9, 1).Value = "Sabine"
Else
intErsteLeereZeile = ActiveSheet.Cells(s, 1).End(xlUp).Row + 1
If Cells(intErsteLeereZeile, 14) = "11210" Then
Cells(intErsteLeereZeile, 1) = "Max"
End If
End If
Next s
ZurZeit sieht es bei mir so aus:

Ich möchte aber gerne, dass der Name Max in Spalte A in Zeile 18 steht quasi über das Datum. Ich komme da aber nicht weiter. Hoffe, da kann mir jemand weiterhelfen. Danke im Voraus.
LG
https://www.vba-forum.de/View.aspx?ziel=61063