Makro sehr langsam - kopieren
Lutz
ich habe mal wieder ein kleines Problem:
Ich möchte in Spalte B2:B41473 jede Zelle die nur ein " ' " als Inhalt hat mit dem Inhalt der darüberliegenden Zelle füllen.
Ich habe 2 Makros, das erste geht nicht (weil die Zelle ja nicht blank ist) und das 2te ist sehr langsam aber es geht. Kann jemand das etwas schneller machen?
Sub Auffuellen1()
Set ber = Range("B2:B41473").SpecialCells(xlCellTypeBlanks)
For Each cell In ber
cell.Value = cell.Offset(-1, 0).Value
Next
End Sub
Sub ZellenAusfuellen()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In Range("B2:B41473")
If Zelle = "" Then Zelle = Zelle.Offset(-1, 0)
Next
Application.ScreenUpdating = True
End Sub
Vielen Dank und viele Grüße
Lutz