Hallo,
ich habe auch schon in diesem Forum geschrieben https://www.vba-forum.de/View.aspx?ziel=61024-Leere_Zeile,_Wert_einf%C3%BCgen
Bis jetzt noch nicht weitegkommen. Ich versuche die ganze Zeit folgendes zu lösen, doch ich komme leider nicht weiter. In Spalte N habe ich Kostenstellen gegeben und ich möchte gerne, dass wenn in Spalte N zb die Kostenstelle "11400" steht, dass in der ersten leere Zeile in A der Name z.B "Maxi" eingefügt wird.
Folgendermaßen sieht mein Code bis jetzt aus :
Dim s As Long
For s = LastRow To 10 Step -1
If Cells(s, 14) = "11200" Then
Cells(9, 1).Value = "Sabine"
ElseIf Cells(s, 14) = "11400" Then
Cells(Cells(Rows.Count, 1).End(xlDown).Row + 1, 1).Value = "Maxi"
End If
Next s
Noch ist zuzufügen, das ich die leeren Zeilen davor per Code eingefügt habe, ich weiß nicht ob es was damit zutun hat.
Leider tut sich da nichts und ich weiß leider nicht woran das liegen könnte. Ich hoffe, dass mir da jemand weiterhelfen kann.
LG