Ich möchte gerne das aktuelle Tabellenblatt per Eingabeaufforderung (Inputbox etc.) umbenennen.
(Stehe leider noch in den Kinderschuhen von VBA.)
Thanks.
Ich möchte gerne das aktuelle Tabellenblatt per Eingabeaufforderung (Inputbox etc.) umbenennen.
(Stehe leider noch in den Kinderschuhen von VBA.)
Thanks.
Sub tset()
Dim Name
Name = InputBox("Bitte geben Sie den Namen ein!", "Blattname")
ActiveSheet.Name = Name
End Sub
Gruß
F.
Allerdings müssen eigentlich noch Fehlerbehandlungen erfolgen (Tabellenname schon existent, falsche Zeichen etc.)
Gruß Boris
Private Sub CommandButton1_Click()
Dim pf As String
pateinf = InputBox("Eingabebezeichnung der Worksheet")
Worksheets(1).Name = pf
End Sub
Den CommandButton mußt du allerdings noch oben rechts Menü(Hammer und Schraubenschlüssel) erstellen, und den Code auswählen
(rechte Maustaste).
Danke für die umfngreichen Antworten. Super Forum.
Sub TabSet()
Dim TabName
TabName = InputBox("Bitte geben Sie den Namen ein!", "Blattname")
If TabName = False Then
MsgBox "Eingabe wurde abgebrochen!"
ElseIf TabName = "" Then
MsgBox "Keine Eingabe vorgenommen!"
Else
ActiveSheet.Name = TabName
End If
End Sub
Funktioniert auch. Jedoch hast Du recht, was die Fehlerbehandlung betrifft (ungültige Zeichen, Blattname schon vorhanden).
Wie kann ich dieses realisieren ?
DANKE
m
bau eine Fehlerbehandlungsroutine ein:
Sub TabSet()
On error goto errorhandler
Dim TabName
TabName = InputBox("Bitte geben Sie den Namen ein!", "Blattname")
If TabName = False Then
MsgBox "Eingabe wurde abgebrochen!"
ElseIf TabName = "" Then
MsgBox "Keine Eingabe vorgenommen!"
Else
ActiveSheet.Name = TabName
End If
Exit sub
Errorhandler:
msgbox "Eingabe nicht erlaubt"
End Sub
Hier ist das Endprodukt:
Sub TabSet()
' Tabellenblatt umbenennen
On Error GoTo Errorhandler
Dim TabName
TabName = Application.InputBox(Prompt:="Geben Sie einen Namen ein.", Type:=2, Default:="Blatt1")
If TabName = False Then
MsgBox "Eingabe wurde abgebrochen!"
ElseIf TabName = "" Then
MsgBox "Nix eingegeben!"
Else
ActiveSheet.Name = TabName
End If
Exit Sub
Errorhandler:
MsgBox "Eingabe nicht erlaubt"
End Sub