per VBA ausfüllen
heike
habe mir folgendes Makro rausgesucht, um die Spalte A nach unten auszufüllen.
Sub Auffuellen()
With Intersect(Selection, ActiveSheet.UsedRange)
If WorksheetFunction.CountBlank(.Cells) > 0 Then
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End If
End With
End Sub
Wenn der 1. Eintrag in A1 steht, funktioniert es auch, wenn ich vorher die Spalte A markiere. Allerdings fängt mein zu kopierender Eintrag in A4 an. Ich habe leider keine Ahnung, wie ich das Makro ändern muss. Kann mir das jemand sagen?
Des Weiteren möchte ich ganz gerne, dass das Makro automatisch immer die Spalte A und B ab Zeile 4 ausfüllte, ohne, dass ich vorher etwas markieren muss. Ist auch das möglich?
Bin für jede Hilfe sehr dankbar.
Gruß
Heike