Kleines Problem Formel anpassung
28.11.2016 13:58:48
Pascal
Ich habe ein kleines Problem.
Diese untere Formel habe in der Sparte Arbeitsmappe.
Ich will, dass nach dieser Aufgabe "Range("E" & l, "E1048576").ClearContents" die untere Aufgabe ausgeführt wird ohne dass ich die gesamte Aufgabe noch mal ausführen muss. Ich habe schon einiges getestet und es will nicht funktionieren.
Wie lautet die Lösung?
Vielen Dank für eure Hilfe.
Sub test()
Dim lze As Long
Dim lz As Long
Dim l As Long
lze = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row - 1
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
l = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
If IsEmpty(ActiveSheet.Range("E" & l, "E1048576").Value) = False Then
Range("E" & l, "E1048576").ClearContents
Range("E" & lze).AutoFill Destination:=Range("E" & lze, "E" & lz), Type:=xlFillDefault
Else
Range("E" & lze).AutoFill Destination:=Range("E" & lze, "E" & lz), Type:=xlFillDefault
End If
End Sub
Datei Anhang zum Testen:
https://www.herber.de/bbs/user/109759.xlsm