ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.
Sub fixed_behoben()
Sheets("Datenbasis").Select
ActiveWindow.SmallScroll ToRight:=-3
Columns("I:I").Select
Selection.Replace What:="Fixed", Replacement:="Behoben", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Fälligkeit").Select
End Sub
Mein Problem ist allerdings folgendes:
Dort wo nichts steht soll "nicht erledigt" stehen.
Aber wenn ich leere Zellen durch "nicht erledigt" ersetzte füllt er mir die ganze Spalte wo nichts steht mit "nicht erledigt" auf.
Er soll dies aber nur machen bis zum letzten Eintrag von Spalte A.
D.h. wenn in Spalte A insgesamt 50 Einträge sind. Dann soll er in Spalte I auch nur die ersten 50 prüfen. Und hier dann Fixed durch Behoben und leere Zellinhalte durch "nicht erledigt" ersetzten