Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmNeuesBlatt

Private Sub cmdAbbrechen_Click()
   Unload Me
End Sub

Private Sub cmdNeuesBlatt_Click()
   Dim wks As Worksheet
   On Error Resume Next
   Set wks = Worksheets(txtNeuesBlatt.Text)
   If Err > 0 Or wks Is Nothing Then
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = txtNeuesBlatt.Text
      Worksheets(2).Select
   Else
      Beep
      MsgBox "Blatt besteht schon!"
   End If
   On Error GoTo 0
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmNeuesBlatt.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox