leere Zellen füllen
09.02.2016 08:07:17
thomas
ich habe eine Terminliste die folgendermassen aufgebaut ist.( Spalte E:F)
nun versuche ich gerade alle leeren zellen der Spalte F mit den werten der spalte E zu füllen.
Beispiel Ausgang:
11.04.2015 11.04.2015
16.07.2015 19.07.2015
19.07.2015
25.08.2015 25.08.2015
08.09.2015 08.09.2015
25.04.2015 25.04.2015
mein Ziel:
11.04.2015 11.04.2015
16.07.2015 19.07.2015
19.07.2015 19.07.2015
25.08.2015 25.08.2015
08.09.2015 08.09.2015
25.04.2015 25.04.2015
leider will es mir nicht in einer annehmbaren Geschwindigkeit gelingen.
mit dem recorder bin ich soweit gekommen
Sub AAAA_Leere_Zellen_ersetzen()
' Makro6 Makro
Range("A2").Select
ActiveWorkbook.Worksheets("Kalender Daten").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Kalender Daten").Sort.SortFields.Add Key:=Range( _
"F2:F997"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Kalender Daten").Sort
.SetRange Range("A2:I997")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Kalender Daten").Range("E2:E50").Copy ' dieser bereich ist _
falsch '
ActiveWorkbook.Worksheets("Kalender Daten").Range("f2").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
end
Sub
nun weiss ich aber nicht wie ich den bereich Range("E2:E50").Copy
bestimmen kann.
Kann hier jemand helfen?
liebe grüsse thomas