Hey Jungs. Leider ist mein untenstehendes Makro out of Function. Er geht das leidenschaftslos durch, es passiert leider nur gar nix. Bin davon ausgegangen, dass der RowIndex auch bei ausgeblendeten Spalten identisch geblieben ist. :-}
Dim k, i As Integer
With Sheets("Umsatz")
For i = 30 To i = 150
For k = 1 To 10
Cells(i, k).Replace What:="Value", Replacement:="V.", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Next k
Next i
End With
Keine Ahnugn warum das nicht funzt. Bitte dringend um Hilfe ! Danke.