Hallo zusammen,
ich habe in einer Excel-Tabelle in jeder Zeile dieselbe Formel stehen. Weil das beim Speichern unnötig viel Platz benötigt, möchte ich nun ein Makro schreiben, das beim Speichern alle Zeilen bis auf die erste löscht, dann speichert und dann wieder die erste Zeile nach unten kopiert. Beim Öffnen soll dann mittels dem Ereignis Workbook_Open auch wieder der Inhalt der ersten Zeile nach unten kopiert werden. Das ganze funktioniert auch beim Öffnen.
Das Makro zum Speichern würde ich in etwa so schreiben:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub
Jetzt wird aber nach dem Speichern noch nicht nach wieder nach unten aufgefüllt. Wie kann ich das lösen?
Danke! |