Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mappe speichern

Forumthread: Mappe speichern

Mappe speichern
21.12.2005 09:10:53
Rene
Ich habe mir diese Mappe:
https://www.herber.de/bbs/user/29470.xls
zusammengebastelt natürlich mit Hilfe von hier :) beim öffnen der Mappe "Vorlage" werden die aktuellen Wochen des Monats erstellt und dann kann ich die Tabellen bearbeiten.Worum es mir nun geht ist das speichern der Mappe.
Gibt es eine Möglichkeit die Mappe unter dem Namen der Tabellenblätter abzuspeichern? z.B. 52.-01.Woche das ganze sollte vor dem schließen sein das LW und der Pfad sollte über eine Constante vorgegeben werden,wenn aber die Mappe schon so heißt (nach Wochen) dann soll keine Abfrage beim schließen mehr kommen.Also die Abfrage soll nur kommen wenn die Mappe "Vorlage" heißt.Ich hoffe ich habe mich verständlich ausgedrückt und es kann mir einer helfen und es gibt eine Möglichkeit.
Danke im vorraus
Rene
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mappe speichern
21.12.2005 10:11:01
Eugen
hi

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sPath As String, sName As String
Dim dat As Date
sPath = "c:\arbeitsachen\stunden\"
dat = ActiveSheet.Cells(4, 4).Value
sPath = sPath + Trim(Str(Year(dat))) + "\"
sPath = sPath + Format(dat, "mmmm") + "\"
sName = ActiveSheet.Name
Application.DisplayAlerts = False
If ActiveWorkbook.Name = "vorlage.xls" Then
ActiveWorkbook.SaveAs (sPath + sName)
Else
ActiveWorkbook.Save
End If
Application.DisplayAlerts = True
End Sub

versuchs mal damit
mfg
Anzeige
AW: Mappe speichern
21.12.2005 10:27:59
Erich
Hallo Rene,
da du die beiden Prozeduren im Workbook_Open aufrufst, wird bei jedem Öffnen der Mappe (ob von Vorlage oder bereits gespeichert) versucht, die Wochenblätter neu anzulegen. Das geht schief, wenn die Blätter schon angelegt sind. Das könntest du so lösen: 

Private Sub Workbook_Open()
If Worksheets.Count < 2 Then WochenAnlegen
End Sub

Das Anlegen der Ordner würde ich nur dann aufrufen, wenn auch die Blätter erstellt werden. Das würde ich dann etwa so machen: 

Option Explicit
Sub WochenAnlegen()
Dim datStart As Date, datEnd As Date, lKW As Long
Dim strName As String
Application.ScreenUpdating = False
datStart = DateSerial(Year(Date), Month(Date), 1)
datStart = datStart - Weekday(datStart, 2) + 1 ' geht auf den Montag <= datstart
datEnd = DateSerial(Year(Date), Month(Date), 31)
For lKW = datStart + 7 To datEnd Step 7
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(ISOWeek(CDate(lKW)), "00") & ".-Woche"
Sheets("Vorlage").Cells.Copy ActiveSheet.Cells(1, 1)
Next lKW
With Worksheets(1)
.Name = Format(ISOWeek(CDate(datStart)), "00") & ".-Woche"
strName = Left(.Name, 3)
.Select
End With
strName = JahrOrdnerAnlegen(datEnd) & strName _
& "-" & Format(ISOWeek(CDate(lKW - 7)), "00") & ".Woche"
ActiveWorkbook.SaveAs strName
Application.ScreenUpdating = True
End Sub
Private Function ISOWeek(dat As Date) As Integer
With WorksheetFunction
ISOWeek = Fix((dat - .Weekday(dat, 2) - _
DateSerial(Year(dat + 4 - _
.Weekday(dat, 2)), 1, -10)) / 7)
End With
End Function
Function JahrOrdnerAnlegen(datBis As Date) As String
Dim sPath As String
sPath = "D:\Arbeitsachen\Stunden\"
On Error Resume Next
MkDir sPath & Year(datBis)
sPath = sPath & Year(datBis) & "\"
MkDir sPath & Format(datBis, "mmmm")
sPath = sPath & Format(datBis, "mmmm") & "\"
On Error GoTo 0
JahrOrdnerAnlegen = sPath
End Function

Das ".Move" hinter dem Worksheets.Add habe ich weggelassen - ist unnötig.
In der Schleife werden nur Blätter ab der zweiten Woche angelegt. Für die erste Woche kannst du die Vorlage umbenennen und musst dieses Blatt dann auch nicht löschen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Mappe speichern :)
21.12.2005 16:41:59
Rene
Hallo zusammen,
Erst mal danke an Euch beide für Eure Mühe.Leider ist der Code von Eugen nicht ganz so ideal(nicht böse sein Eugen)der von Erich ist für meine Zwecke besser geeignet.Dieser geht genauso wie ich es mir vorgestellt hatte.Danke für die Hilfe vielleicht werde ich die ganze VBA-Sache doch irgend wann mal besser verstehen,aber bis dahin habe ich bestimmt noch viele Fragen.
Ich wünsche Euch allen ein Frohes Fest und schöne Feiertage
Viele Grüße aus dem Schaumburger Land
sagt Rene
Anzeige
AW: Mappe speichern :)
21.12.2005 17:02:57
Rene
Hallo Erich,
Hier nur noch eine kleine Ergänzung habe dieses geändert:
strName = JahrOrdnerAnlegen(datEnd) & strName _
& "-" & Format(ISOWeek(CDate(lKW - 7)), "00") & ".Woche.xls"
ActiveWorkbook.SaveAs strName
Denn es hatte mir nicht als ".xls" abgespeichert sondern als ."Woche" habe es gesucht und gefunden welche Zeile dafür verantwortlich ist und geändert.Wollte dieses dir nur noch mal sagen.
Danke noch mal
Gruß Rene
Anzeige
AW: Mappe speichern :)
21.12.2005 17:35:09
Erich
Hallo Rene,
... schon hast du mich bei einer Schlamperei erwischt.
Und ich stelle mir jetzt die Frage, ob sich Excel2003 hier anders verhält als meine Version 2002. Bei mir wird die Mappe als .xls gespeichert, trotz meines Fehlers ...
Grüße von Erich aus Kamp-Lintfort
Danke für Rückmeldung ...
21.12.2005 17:25:12
Erich
Hallo Rene,
danke für deine Rückmeldung und die guten Wünsche!
Bestimmt wirst du den VBA-Kram nicht irgendwann, sondern mit jedem Tag besser verstehen - solange es dir Spaß macht und du dich damit beschäftigst. Ich mache das seit etwa einem Jahrzehnt, und das einzige, was sich ändert, ist die Art meiner Fragen. Weniger Fragen sind es jedenfalls nicht geworden. Das ist ein Grund, aus dem ich ein wenig in diesem Forum mitspiele: Ich hab hier schon viel gelernt!
Auch dir wünsche ich schöne Feiertage und einen guten Rutsch ins neue Jahr.
Grüße ins Schaumburger Land von Erich aus Kamp-Lintfort
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige