Gruppe
Dialog
Bereich
TextBox
Thema
Neues Tabellenblatt und Name über UserForm ermitteln
Problem
Wie kann ich der aktiven Arbeitsmappe ein neues Tabellenblatt hinzufügen und dessen Name in einer UserForm festlegen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
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