VBA abbrechen einfügen
07.11.2008 15:13:40
maruseru
Habe den untenstehend Code übernommen und die Name der Arbeitsblätter angepasst.
Folgendes:
Besteht das Arbeitsblatt 'Selected' bereits, erscheint die Inputbox für die Eingabe des gewünschten Namen.
Wie kann ich diese Inputbox abbrechen?
Danek und Gruss
Maruseru
Sub AddSheet()
Dim ActNm As String
With ActiveWorkbook.Sheets
.Add after:=Worksheets(Worksheets.Count)
End With
ActNm = ActiveSheet.Name
On Error Resume Next
ActiveSheet.Name = "Selected"
NoName: If Err.Number = 1004 Then ActiveSheet.Name = InputBox("Give name.")
If ActiveSheet.Name = ActNm Then GoTo NoName
On Error GoTo 0
Sheets("Data1").Activate
Range("A2").Select
MsgBox ("Sheet added")
End Sub