Hey,
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 Zeile 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 intErstLeereZeile As Long
Dim letzteZeile As Long
ElseIf Cells(s, 14) = "11210" And Cells(s, 1) = "" Then
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = "Maxi"
End If
Next s
Leider tut sich da nichts und ich weiß leider nicht woran das liegen könnte. Ich hoffe, dass mir da jemand weiterhelfen kann.
LG
|