in Spalte B meiner Excel Tabelle stehen unterschiedlich viele Nummer, unter den Nummern sind unterschiedlich viele Kürzel ("EA"). Das Kürzel soll jeweils mit der darüber stehenden Nummer aufgefüllt werden, solange bis eine neue Nummer erscheint. Das Kürzel kommt unterschiedlich oft vor und auch die Anzahl der Nummern variiert.
Ich hab bereits ein bisschen gebastelt und bin zu diesem Code gekommen:
Sub Schaltfläche10_Klicken()
Dim Ersatz As String
Ersatz = ""
For i = 5 To 6000
If Cells(i, 2) "" Then
If Cells(i, 2).Value "" Then
Ersatz = Cells(i, 2).Value
i = i + 1
Cells(i, 2).Value = Ersatz
End If
If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Ersatz
End If
Next i
End Sub
Der Code ersetzt bisher aber leider nur 1 Zeile unter der Nummer und nicht alle Kürzel. Vielleicht hat ja jemand eine Idee? :)
Vielen Dank schon mal und noch einen schönen Sonntag!
Liebe Grüße,
Zopf