title image


Smiley neues tabellenblat duch form erstellen problem mit errorhändling
Hallo user,

ich möchte mit hilfe einer form ein neues tabellenblatt erstellen.

Das klappt auch gut.

Nun sollen aber die errors abgefangen werden.

Aber trotz errormeldung legt excel mir eine tabelle mit Tabelle4 an.

Was mache ich falsch?



Hier meine sub:



Private Sub erstellen_Click()

Dim neuertabellenname As String

neuertabellenname = Me.TextBox1.text

If neuertabellenname "" Then

If Len(neuertabellenname) < 31 Then

On Error GoTo ErrorHandler

ActiveWorkbook.Worksheets.Add.Name = Me.TextBox1.text

Else

MsgBox "Der Tabellenname beinhaltet mehr als 30 Zeichen ! Bitte kürzen !", vbCritical, "Fehler"

End If

Else

MsgBox "Bitte geben Sie einen Tabellenblattname ein", vbCritical, "Eingabefehler"

End If



ErrorHandler:

If Err.Number > 0 Then

If Err.Number = "1004" Then

MsgBox " Sie Haben Zeichen benutzt die nicht zulässig sind ! " & vbCrLf & " Bitte benutzen Sie keine Sonderzeichen z.B: " & vbCrLf & " / \ [ ] * | ~", vbCritical, "Eingabefehler"

Exit Sub

Else

MsgBox vbCrLf & " Es kahm aus Nicht bekannten Problemen zu einem Fehler !! " & vbCrLf & " " & vbCrLf & " Bitte Informieren Sie den Sytemadministrator und " & vbCrLf & " Teilen Sie ihm diese Fehlerbezeichnung mit! " & vbCrLf & " - VB-Errornummer: " & Err.Number & Err.Description _

& " - ", vbCritical, "Unbekannter Fehler"

Exit Sub

End If



End If





End Sub



Danke für alle hinweise

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: