VBA-Beispiel 9
mail schreiben
mail schreiben

mit VBA Tabellenname aus Zelle vergeben

Es wird eine neue Tabelle eingefügt. Als Tabellenname wird der "Wert" aus Zelle B10 vergeben. Sollte die Zelle B10 leer sein, erscheint eine entsprechende Meldung und das Makro bricht ab.
Sub Tabellenname_aus_Zelle()
Dim Wert As String

If [B10] <> "" Then
    Wert = [B10].Value
    MsgBox "die Tabelle bekommt den Namen: " _
    & vbNewLine & vbNewLine & Wert
    Sheets.Add
    ActiveSheet.Name = Wert
Else
  MsgBox "in Zelle B10 steht nix drin." _
  & vbNewLine _
  & "Daher kann auch keine neue Tabelle eingefügt werden." _
 , vbInformation, "in der Zelle muß ein Tabellenname stehen !"
End If

End Sub

Download:   vba009.zip