Office: speichern mit aktuellem datum

hallo!

ich habe hier ein tabelle die ich nach verschiedenen kriterien filtere und dann abspeichere. das ganze würde ich mir gerne mit makros erleichtern allerdings komme ich bei folgendem nicht weiter:

die tablle ist immer unterschiedlich lang, nach dem filtern und löschen einiger zeilen soll noch eine abschließende zeile, in der die summe der spalten steht, eingefügt werden. das einfügen ist kein problem, nur halt am finden der der ersten leeren spalte scheitere ich

(excel 2003)

 

Hallo,

durch diese Befehlszeile wird in Spalte A die erste freie Zelle von oben gesucht:

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

Reicht das schon?

 

danke :)

reicht aber noch nicht ganz. neben den ganzen überschriften fangen die daten immer in zeile 5 an und gehen bis zu diesem variablen ende.
wie kann ich das, nun wo er es findet, in die summenformel einbeziehen auf das er von der gefundenen leeren zeile hoch bis zeile 5 alles addiert?

 

Hallo,

das Beispiel hilft Dir bei der Summenbildung.

 

vielen dank, funktioniert wunderbar :)

nur hat sich ein neues problem ergeben:

es sind 3 spalten (USD/EUR/GBP) in denen am ende die summe gebildet wird. da es eher selten EUR & GBP sind existieren dort viele leere felder. somit haben alle 3 ein unterschiedliches ende. die summen sollen aber einheitlich in einer zeile dargestellt werden, wie schaffe ich das???

 

Hallo,

einfach verschieben!!!!!!!!!!!!!

 

vielen dank, jetzt funktioniert alles wie es soll :)

nach dem filtern wird die datei automatisch abgespeichert, da dies wöchentlich geschieht sollte immer das aktuelle datum hinter den dateinamen gehängt werden, wie mache ich das???

 

Hallo,

nach diesem Schema mußt Du den Code gestalte. Alles nach "XLS" kann weggelassen werden. Wenn Parameter benötigt werden, dann anpassen.

Sub Makro1()
Dim dat
dat = Format(Date, "yyyy.mm.dd")
ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\rerfwl\Eigene Dateien\Eigene Datenquellen\Auswertung" & dat & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

P.S.: Kriege ich bei Deinem Laden bald Prozente? ;-)

 

danke!

wenn du mal etwas verschiffen magst vll ;)

 

Danke J.
Nach sowas habe ich schon lange gesucht Datei mit Namen heute speichern.
Gruß
Tama