Tabelle löschen
16.04.2006 17:37:26
Thomas
mit der UserForm wähle ich die Tabelle aus und die soll dann gelöscht werden.
Was muss man am Code ändern und wenn es geht noch eine Abfrage ob wirklich gelöscht werden soll.
Gruß Thomas
Private Sub UserForm_Activate()
Dim objWorksheet As Worksheet
For Each objWorksheet In ThisWorkbook.Worksheets
Select Case objWorksheet.Name
Case "1"
Case Else
Me.ComboBox1.AddItem objWorksheet.Name
End Select
Next
End Sub
Anzeige