ne kurze frage. ich möchte ein Workbook speichern aber es soll vor dem speichern
im Tab 1 zellen leeren so das ich beim wieder öffnen eine leere tabelle vorfinde.
Button auf Tab 2 zu leerende zellen auf tab1 B3:G65535
gruß jens
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("B3:G65535").Clear
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Range("B3:G65535").ClearContents
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Tabelle1-M").Visible = True
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = "Tabelle1" Then
Application.DisplayAlerts = False
Ws.Delete
Application.DisplayAlerts = True
End If
Next
ActiveWorkbook.Sheets("Tabelle1-M").Copy Before:=Sheets("Tabelle1-M")
ActiveSheet.Name = "Tabelle1"
Sheets("Tabelle1-M").Visible = False
Application.ScreenUpdating= True
End Sub