VBA-Beispiel 004
mail schreiben
mail schreiben

mit vba Tabelle einfügen und Name vergeben

Das Makro fügt eine neue Tabelle in die Arbeitsmappe ein. Der Blattname wird über eine InputBox festgelegt. Danach überprüft das Makro ob eine Tabelle mit dem eingegebenen Namen schon existiert. Falls ja, erscheint eine Meldung und das Makro wird abgebrochen.
Sub Blatterstellen()
Dim wks As Worksheet
Dim neu As String

neu = InputBox("Bitte geben Sie einen Namen ein:")
If neu = ("") Then
  Exit Sub
End If

  For Each wks In ThisWorkbook.Worksheets
    If wks.Name = neu Then
    MsgBox "Blattname existiert schon !", vbInformation, _
           "A C H T U N G ! ! !"
    Exit Sub
  End If
  Next wks

Sheets.Add
ActiveSheet.Name = neu
End Sub

Download:   vba004.zip