zelle kopieren bis zum nächsten Wert
19.01.2017 12:00:51
Abendwind
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
Anzeige