Durch klicken auf X(Schließen) Zellen in Tabelle löschen

    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 ?

    MessageBox.Show("mfg Loui!");

    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