VBA umbenennen eines Tabellenblattes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub bsp() Dim strName As String Error_Nochmal: strName = InputBox("Name der Tabelle") If StrPtr(strName) 0 Then On Error Resume Next ThisWorkbook.Sheets(1).Name = strName If Err.Number 0 Then MsgBox "Geben Sie einen gültigen Tabellennamen ein" Err.Number = 0 GoTo Error_Nochmal: End If On Error GoTo 0 End If End Sub

Hallo Tino,
warum On Error Goto 0 ? Ok, Resume Next ist keine Fehlerbehandlung sondern nur eine Unterdrückung. Und wenn die Prozedur aus einer anderen heraus aufgerufen wird, würde der Fehler durchgeschleift. Wird dann in der aufrufenden Prozedur der Fehler abgefragt, könntest du einen Errorhandler aufrufen. Aber die Resume Next - Anweisung wird nicht weitergegeben, die ist nur auf Prozedurebene gültig.
Und was haben wir über Goto gelernt?

Public Sub Beispiel()
    Dim strName As String
    On Error Resume Next
    Do
        strName = InputBox("Name der Tabelle")
        If StrPtr(strName) = 0 Then Exit Do
        ThisWorkbook.Sheets(1).Name = strName
        If Err.Number <> 0 Then
            MsgBox "Geben Sie einen gültigen Tabellennamen ein"
            Err.Clear
        Else
            Exit Do
        End If
    Loop
End Sub

So habe ich das bei HP vor 25 Jahren beigebracht bekommen.
Gruß
Nepumuk

Hallo,
aber viele kopieren sich den Code in eine bestehende Prozedur und rufen diese nicht separat auf.
Bei mir müsste nur die on error oben und unten stehen, sonst wird bei Abbruch diese nicht aufgehoben.

Dim strName As String
On Error Resume Next
Error_Nochmal: strName = InputBox("Name der Tabelle")
If StrPtr(strName)  0 Then
ThisWorkbook.Sheets(1).Name = strName
If Err.Number  0 Then
MsgBox "Geben Sie einen gültigen Tabellennamen ein"
Err.Number = 0
GoTo Error_Nochmal:
End If
End If
On Error GoTo 0

Was Du gegen GoTo hast weiß ich nicht,
ok braucht vielleicht etwas mehr Zeit um die Sprungmarke zu finden und ist bei größerem Code etwas umständlicher zu lesen, aber bei einem so kleinen Code sehe ich das weniger kritisch.
Oder welche Nachteile gibt es da noch.
Gruß Tino
Gruß Tino

Beliebteste Forumthreads (12 Monate)

VBA umbenennen eines Tabellenblattes

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA umbenennen eines Tabellenblattes

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread