Hallo Leute...
Ich habe nun rumprobiert und gegoogled aber nix hilft 
ich habe ein userform in einem programm über das daten in eine Tabelle in excel geschrieben werden.
durch das kliken des Schließenknopfes[X] sollen diese zellen wieder gelöscht werden.
weiß zufällig einer von euch wie ich das machen muss ?
Hallo,
vll hilft ja das...^^
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Tabellen die nicht in der Liste sind entfernen
Dim Arr_wks()
Dim wks As Worksheet
Dim i As Integer
Dim weg_damit As Boolean
'Liste der Tabellen die NICHT gelöscht werden sollen
Arr_wks = Array("Start", "Daten", "Test")
For Each wks In ThisWorkbook.Worksheets
For i = LBound(Arr_wks) To UBound(Arr_wks)
If wks.Name <> Arr_wks(i) Then
weg_damit = True
Else
weg_damit = False
Exit For
End If
Next i
If weg_damit = True Then
wks.Visible = xlSheetVisible
'löschen ohne Nachfrage
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
weg_damit = False
Next wks 'nächste Tabelle
ThisWorkbook.Save 'Datei speichern
End Sub
