Aktuelles Arbeitsblatt sichern
chris58
Ich ersuche um Hilfe. Ich kann mit dem u.a. Code die Arbeitsblätter sichern, jedoch nicht dieses, wo ich den Button für die Sicherung angebracht habe. Ich habe ein zusätzliches Arbeitsblatt in die Mappe eingefügt, jedoch bleibt dann der Code bei der4.letzten Zeile hängen (.Sheets(1).Select)....die Zahl 1 ist hier das ausschlagebende. Kann mir bitte wer helfen, wie ich das lösen kann.
Danke
chris
Private Sub CommandButton1_Click()
UserForm1.Show 0
End Sub
Private Sub CommandButton2_Click()
Ausblenden
Sichern
Einblenden
End Sub
Private Sub Ausblenden()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name "Menü" Then
If Ist_datum(WS.Range("A2").Text) = False Then
WS.Visible = xlSheetHidden
End If
End If
Next WS
End Sub
Private Sub Einblenden()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name "Menü" Then
WS.Visible = xlSheetVisible
End If
Next WS
End Sub
Public Function Ist_datum(datum As String) As Boolean
Dim D As Date
On Error GoTo Fehler
D = DateValue(datum)
Ist_datum = True
Exit Function
Fehler:
Ist_datum = False
End Function
Dim i As Integer
Application.ScreenUpdating = False
With ThisWorkbook
For i = 2 To .Worksheets.Count
If .Sheets(i).Visible Then
.Sheets(i).Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Parent.SaveAs Filename:="C:\Dokumente und Einstellungen\art\Desktop\Sommer 2011\Monatslisten alle Buchungen\" & _
"Monatsliste_" & .Name & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
.Parent.Close
End With
End If
Next i
.Sheets(1).Select
End With
MsgBox "Dateien wurden gespeichert"
End Sub