Codezusammenlegung
chris58
ich brauche bitte eure hilfe. Ich habe 2 VBA Codes und will diese zusammensetzen, damit dies mit einem Button funktioniert. Der zweite Code ist für die Sicherung in einem Ordner. Der erste soll vor dem sichern, die Tabellenblätter die in A2 kein Datum enthalten, ausblenden und nach Sicherung wieder einblenden. Ich habe beide Codes aus diversen Recherchen und komme, auch nach langem probieren, nicht dahinter, wie ich sie zusammenbauen kann, damit bei Buttondruck alle Aktionen auf einmal ablaufen.
Bitte könnt Ihr mir helfen.
Danke
chris58
Hier der erste Code für das Ausblenden:
Option Explicit
Private Sub CommandButton1_Click()
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 CommandButton2_Click()
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
Der zweite Code für die Sicherung:
Sub Sichern()
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\XXXXX\Desktop\XXXX xxxx\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