In Tabelle 1 zelle a1 steht ein Name. Ich möchte in meiner Mappe ein neues Tabellenblatt (Register) erzeugen, und es soll so heißen wie der Name in zelle A1 Tabelle1
Im Vorraus schon herzlichen Dank
In Tabelle 1 zelle a1 steht ein Name. Ich möchte in meiner Mappe ein neues Tabellenblatt (Register) erzeugen, und es soll so heißen wie der Name in zelle A1 Tabelle1
Im Vorraus schon herzlichen Dank
schreib folgendes Makro:
Bei Änderungen gerne nochmal anmailen.
Sub Name_ändern()
Titel = Sheets(1).Range("A1").Value 'liest Zelle aus
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) 'neues Blatt am Ende der Tabelle
Sheets(Worksheets.Count).Name = Titel 'vergibt neuen Namen
End Sub
Cu
ich habe die Aktion in einen CommandButton gesteckt.
Jedesmal wenn du ihn drückst wird ein Sheet mit dem Namen A1 erzeugt.
MFG Matze
Private Sub CommandButton1_Click()
Dim variable As String
Range("A1").Select
variable = ActiveCell.Value
Sheets.Add
ActiveSheet.Name = eins
End Sub