Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro am Ende des Monats

Makro am Ende des Monats
20.01.2008 22:59:42
Peter
Liebe Excel Freunde, schon wieder ich,
ich bräuchte ein makro, mit dem ich ein Bereich in einem Blatt, automatisch am Ende des Monats, in einem anderem Blatt speichern kann.
Das makro soll jedoch automatisch erkennen welcher Monat gerade ist und somit auch den letzten Tag um 24. 00 Uhr den Bereich speichern. Es wäre schön wenn das makro editierbar wäre.
Mit freundlichen Grüßen
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro am Ende des Monats
21.01.2008 00:21:00
Daniel
Hi
solange es nicht als XLA-gespeichert ist, ist jedes Makro editierbar.
allerdings ist es nicht möglich, auf deine Pauschale Anfrage ein fertiges Makro zu schreiben, dazu müsste man schon wissen, wie deine Daten genau aussehen.
Gruß, Daniel

AW: Makro am Ende des Monats
21.01.2008 21:03:00
Peter
Danke für Antwort Daniel.
Ich möchte nur, zb. Werte aus Spalte A von Blatt 1 automatisch am Ende des Monats, in einem anderem Blatt in Spalte B speichern, (aber immer am Ende des Monats)
Vielen Dank im Voraus
Peter

AW: Makro am Ende des Monats
21.01.2008 23:11:00
Daniel
Hi
wenn du alle Daten des Monats kopieren willst, würde ich nicht am Ende, sondern am Anfang des neuen Monats kopieren.
dieses Makro kommt ins Modul "DieseArbeitsmappe"
die Daten werden kopiert, wenn die letzte Speicherung in einem anderen Monat liegt als das aktuelle Datum, dh. es müsste loslaufen, wenn du die Datei zum ersten Mal im neuen Monat öffenst.

Private Sub Workbook_Open()
If Month(Date)  Month(ThisWorkbook.BuiltinDocumentProperties(12).Value) Then
Sheets("Tabelle1").Columns(1).Copy Destination:=Sheets("Tabelle2").Columns(2)
End If
End Sub


Gruß, Daniel

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige