title image


Smiley Re: neues tabellenblat duch form erstellen problem mit errorhändling
Hallo!



Sorry, habe noch vergessen, dass das neu erzeugte Worksheet, wenn der Name unzulässig ist, wieder entfernt werden sollte.

Das sähe dann so aus:



Sub NeuesWorksheetErstellen()

On Error GoTo Fehler

Dim wsh As Worksheet

Dim str_WshName As String

Dim str_msg As String

str_WshName = InputBox("Name des Arbeitsblattes=")

Set wsh = Worksheets.Add

wsh.Name = str_WshName

Exit Sub

Fehler:

Application.DisplayAlerts = False

wsh.Delete

Application.DisplayAlerts = True

msg = "Benachrichtigen Sie bitte den Anwendungsbetreuer über diesen Fehler"

MsgBox Err.Description & vbCr & vbCr & msg, vbOKOnly, "Fehler-Nr.:=" & Err.Number

End Sub



Gruß

Manes


Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: