Thema Datum  Von Nutzer Rating
Antwort
Rot Workbook_BeforeSave
 05.01.2007 14:19:57 Hutzebutz
NotSolved
07.01.2007 00:50:19 Stef_113
NotSolved

Ansicht des Beitrags:
Von:
Hutzebutz		 Datum:
05.01.2007 14:19:57		 Views:
1918		 Rating:
     
Antwort:
  Ja
Thema:
Workbook_BeforeSave
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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Workbook_BeforeSave
 05.01.2007 14:19:57 Hutzebutz
NotSolved
07.01.2007 00:50:19 Stef_113
NotSolved