Aktueller Inhalt von PHW

Ruhig Blut.... Habs hinbekommen, hab nur noch einmal nachgefragt, da ich diverse Fehlermeldungen bekam wenn ich das Skript aufgerufen habe! (bzgl. Dateiformat, etc). Teste das ganze bei mir mit Excel 2007 und da wird zwischen Arbeitsmappe (xls) und Arbeitsmappe mit Makro (xlsm) unterschieden...

Ich glaub wir schreiben gerade aneinander vorbei ;) Die Datei "Vorlage" (mit makros) wird einmal am Monatsende gespeichert ("Monatsdatei"), anschließend die Zellen gelöscht, dann wieder als "Vorlage" gespeichert und am Monatsende wieder von Vorne! In der "Monatsdatei" möchte ich keine Makros...

@pm dann wird die Datei aber immer noch mit Makros gespeichert!

Hi, ich habs doch abgeändert. Ich speicher die Datei, lösch dir Daten raus und speicher die leere Datei nur nochmals zur Sicherheit. Also quasi Speichern, leeren, speichern.... Das Ganze muss als Exceldatei gespeichert werden, da sich in der Datei Diagramme etc. befinden. Wenn sich derjenige...

Ne, hab ich noch nicht! Aber ich werd es bei Gelegenheit testen. Habs heute mal im Geschäft umgesetzt und funktioniert bis jetzt super! Das es in der anderen Lösung immer die komplette Spalte löscht stört mich eigentlich recht wenig...muss ja nicht ich sondern das Programm arbeiten ;) Jetzt...

Die erste Lösung wär sicher die sauberste und eleganteste Lösung gewesen, funktioniert eigentlich auch. Aber immer im ersten Tabellenblatt funktioniert sie eben nicht? Weiß auch nicht warum aber es werden immer unterschiedlich zwischen 5 und 12 zeilen gelöscht! Naja, mit der anderen lösung...

Habs rausgefunden: Application.DisplayAlerts = False 'Dann speichern Application.DisplayAlerts = True Allerdings versteh ich noch nicht warum er mir im ersten tabellenblatt nur die ersten paar Zeilen löscht...

Danke, funktioniert bis auf Tabellenblatt1, Da werden nur die erste 5 Zeilen gelöscht? If (aktDate = endDate) Then 'save the current file to another location ActiveWorkbook.SaveAs ("C:\Users\Administrator\Desktop\Verfügbarkeit_" & endDate & ".xlsm") 'Delete all...

Guten Morgen, ich hab jetzt alles so gelöst, und es funktioniert auch...fast ;) Das in "Diese Arbeitsmappe" Private Sub Workbook_Open() 'When the Workbook is opened the timer is activated to run MyMacro at one second past midnight Application.OnTime TimeValue("00:00:01")...

Funktioniert leider nicht :-( Sub Auto_Open() Dim aktDate As Date 'aktuelles Datum Dim endDate As Date 'Monatsende Const pfad As String = "C:\Users\Administrator\Desktop\Verfügbarkeit_" aktDate = Format(Now(), "dd.mm.yyyy") endDate =...

Alles klar, Danke! und wo genau muss ich das einbinden? bekomm je nachdem wo ich es einfüge unterschiedliche fehlermeldungen!

Und das nächste Problem: Habs um zu testen mal mit meiner PC Uhr simuliert, dabei ist mir folgendes Problem aufgefallen: Beim Start wird die ganze Prozedur gestartet: wenn das "aktDate <> endDate" ist, passiert nichts (ist ja auch gut so). wenn sich dann das Datum so ändert, dass "aktDate =...

Noch ein Frage: Wo genau muss ich das Skript einbinden das es beim öffnen automatisch gestartet wird? Habs jetzt mit Private Sub Workbook_Open() in Modul 1 eingebunden? edit: habs gefunden...diese Arbeitsmappe wars :)

Top Sache ;) Vielen Dank für die Hilfe, auch an die natürlich, die sich mit meinem Problem beschäftigen! So siehts jetzt aus! Sub Workbook() Dim aktDate As Date 'aktuelles Datum Dim endDate As Date 'Monatsende Const pfad As String =...

Dankeschön, das sieht genau nach dem aus was ich brauche! Mein Stand ist gerade folgender: Sub Test() Dim aktDate As Date 'aktuelles Datum Dim endDate As Date 'Monatsende aktDate = Day(Now()) & "." & Month(Now()) & "." & Year(Now()) endDate =...