Hallo zusammen,
in einem Arbeitsblatt habe ich 230.000 Zeilen mit Einträgen. In Spalte 4 möchte ich alle leeren Zellen mit "unbekannt" ersetzen. Das Makro dauert ewig. Gibt es elegantere und vor allem schnellere Lösungen dafür?
Auszug:
'Formelberechnung unterbrechen
Application.Calculation = xlCalculationManual
'umbenennen in unbekannt
Dim i
For i = Cells(Rows.Count, 4).End(xlUp).Row To 11 Step -1
On Error Resume Next
If Cells(i, 4).Value = "" Then
Cells(i, 4).Value = "unbekannt"
End If
Next
'Formelberechnung aktivieren und Neuberechnung
Application.Calculation = xlCalculationAutomatic
Application.Calculate
Besten Dank für Eure Hilfe