Makro : Sheet eines Monats in neue Datei speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sbLastMonth() Application.ScreenUpdating = False Sheets(Month(Date) - 1).Copy With ActiveWorkbook .SaveAs Filename:="C:\Users\UserGobi.PCI58GB\Documents\" & Month(Date) - 1 & ".txt", _ FileFormat:=xlText .Close False End With Application.ScreenUpdating = True End Sub

Sub sbLastMonth() Application.ScreenUpdating = False Sheets(Month(Date) - 1).Copy With ActiveWorkbook .SaveAs Filename:="C:\Daten\" & Month(Date) - 1 & ".txt", FileFormat:=xlText .Close False End With Application.ScreenUpdating = True End Sub

Sub sbLastMonth() Application.ScreenUpdating = False ThisWorkbook.Sheets(Month(Date) - 1).Copy With ActiveWorkbook .SaveAs Filename:="C:\Daten\" & Format(DateSerial(Year(Date), Month(Date) - 1, _ Day(Date)), "MMMM") & ".txt", FileFormat:=xlText .Close False End With Application.ScreenUpdating = True End Sub

Hallo Sabrina,
du kannst das mit dem folgenden Programm machen

Sub monatsBlatt()
Dim monatsBlatt As String
Dim letzterMonat As Long
Dim dateiDaten As String
Dim dateiMonat As String
Dim pfadDaten As String
Dim pfadMonat As String
Dim wbDaten As Workbook
Dim wbMonat As Workbook
Dim wsMonat As Worksheet
dateiDaten = "Daten.xls"
pfadDaten = ThisWorkbook.Path & "\"
If Dir(pfadDaten & dateiDaten) = "" Then
MsgBox pfadDaten & dateiDaten & vbNewLine & _
"existiert nicht!"
Exit Sub
End If
Application.DisplayAlerts = False
On Error Resume Next
Workbooks(dateiDaten).Close
On Error GoTo 0
Application.DisplayAlerts = True
Set wbDaten = Workbooks.Open(Filename:=pfadDaten & dateiDaten)
letzterMonat = Month(DateSerial(Year(Date), Month(Date), 1) - 1)
monatsBlatt = Format$(letzterMonat, "00")
wbDaten.Sheets(monatsBlatt).Copy
Set wbMonat = ActiveWorkbook
Set wsMonat = wbMonat.Sheets(1)
dateiMonat = MonthName(letzterMonat) & ".txt"
pfadMonat = "C:\Daten\"
' Eine event. vorhandene Datei gleichen Namens löschen und schließen
Application.DisplayAlerts = False
On Error Resume Next
Kill pfadMonat & dateiMonat
Workbooks(dateiMonat).Close
On Error GoTo 0
Application.DisplayAlerts = True
wbMonat.SaveAs Filename:=pfadMonat & dateiMonat, _
FileFormat:=xlText
wbDaten.Close
wbMonat.Close SaveChanges:=False
End Sub

Sieht etwas lang aus, berücksichtigt dafür alle möglichen Sondersituationen.
Das Programm geht davon aus, dass die Mappe "Daten.xls" im gleichen Verzeichnis ist, wie die Mappe mit dem Programm.
Viele Grüße
Dieter

Beliebteste Forumthreads (12 Monate)

Makro : Sheet eines Monats in neue Datei speichern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro : Sheet eines Monats in neue Datei speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread