in einem Excel Forum habe ich einen wunderbaren Ansatz gefunden, wie man Zellen bis zum nächsten Wert kopieren kann.
Hier der Lösungsansatz
Sub Leerzellen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("A4:A18000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub
Allerdings bezieht man sich hier immer nur Auf die Spalte A.
Wie kann ich den Code verändern, dass das Makro für die mit der Maus ausgewählten Spalte ausgeführt wird?
Es gibt von Herbers gute VBA Anleitungen. Aber unter welchem Punkt könnte ich die Lösung zu meinem Problem nachlesen?
Gruß
Kuhna