Range und Specialcells
30.11.2020 17:04:01
Christian
Bis noch vor 4 Wochen hat mein Makro wunderbar funktioniert... Heute leider nicht mehr. Ich habe am Code nichts verändert. Ich möchte in der ersten Spalte gerne alle leeren Felder füllen und die Werte sozusagen "nach unten ziehen".
Zuerst sorge ich dafür das die Zellen auch wirklich leer sind
Set myRange = Application.ActiveSheet.Range("A2:A" & usedrows)
For Each myCell In myRange
If myCell.Value = " " Then
myCell.ClearContents
End If
Next
und dann kommt der Teil der auffüllen soll...
Set Bereich = Range("A2:A" & usedrows)
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
Kann jemand helfen?