ich möchte ein Tabellenblatt per Makro einfügen. Vorher sollte er mich fragen wie das neue Tabellenblatt heißen soll. Ist das möglich? Über Hilfe wäre ich sehr dankbar!
Gruß
Andreas
Sub ArbeitsBlatt_Einfügen()
Dim Name As String
Name = InputBox("Namen für das neue Blatt eingeben", "Name")
ActiveWorkbook.Worksheets.Add.Name = N
End Sub
Sub einfueger()
Dim wks As Worksheet
Dim strNam As String
strNam = InputBox("Name des neuen Blatts?", "Blattname", "Tabelle")
If strNam = "" Then Exit Sub
On Error Resume Next
Set wks = Worksheets(strNam)
If Err.Number <> 0 Then
Set wks = Worksheets.Add(Worksheets(1))
wks.Name = strNam
Else
MsgBox ("name existiert bereist")
End If
On Error Resume Next
End Sub