ich würde gerne eine neue Tabelle per InputBox erstellen, die dann den Name hat, den ich in die Box eingegeben habe!
Wie mache ich das?
Danke
Marco
Wie mache ich das?
Danke
Marco
Was fehlt, ist eine Fehlerbehandlung, die z.B. ungültige Zeichen in Blattnamen verhindert oder prüft, ob ein Blatt schon vorhanden ist.
jetzt würde ich nur noch gerne über dieses Makro die Tabelle "NEU" kopieren, das sie danach wie die eingabe der Inputbox heißt.
Danke Marco
habe von jedem etwas verwurstet. So siehts aus.
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 Fehlerbehandlicg betrifft (ungültige Zeichen, Blattname schon vorhanden).
Wie kann ich dieses realisieren ?
DANKE
m