Worksheet

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 2000
nach unten

Betrifft: Worksheet
von: Josi
Geschrieben am: 30.04.2002 - 12:25:13

Hallo zusammen

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


nach oben   nach unten

Re: Worksheet
von: Tobi@s
Geschrieben am: 30.04.2002 - 12:49:27

Hallo,

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

nach oben   nach unten

Vielen Dank oT
von: Josi
Geschrieben am: 30.04.2002 - 12:53:42

Klappt super

nach oben   nach unten

Re: Worksheet
von: Matthias
Geschrieben am: 30.04.2002 - 12:53:58

Hi Josi,

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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "SetFocus funktioniert nur einmal"