Supportnet / Forum / Tabellenkalkulation

Moin, Moin, ich möchte Tabellenblätter automatisch mit dem Namen des Wertes in Zelle A1 benennen und die gesamte Arbeitsmappe mit dem Namen aus Zelle C1 der Tabelle speichern. Danke für die Hilfe ExcelZwerg

hi zwerg :)

hier schon mal beispiele fuer namensvergabe der arbeitsmappen.

gruss nighty

hier wird datum und zeit addiert und als namen angelegt.

Sub Makro2()
Name$ = Time$
name1$ = Mid$(Name$, 1, 2) + Mid$(Name$, 4, 2) + Mid$(Name$, 7, 2)
name2$ = Date$
name3$ = Mid$(name2$, 4, 2) + Mid$(name2$, 1, 2) + Mid$(name2$, 7, 4)
name4$ = name3$ + name1$
Range("a1") = name4$
ActiveWorkbook.SaveAs Filename:=name4$ + ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

oder wie du wolltest aus zelle c1

Sub Makro2()
Range("c1") = name4$
ActiveWorkbook.SaveAs Filename:=name4$ + ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

gruss nighty :)

ops so natuerlich

Sub Makro2()
name4$=Range("c1")
ActiveWorkbook.SaveAs Filename:=name4$ + ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

gruss nighty :)

ops so natuerlich

Sub Makro2()
name4$=Range("c1")
ActiveWorkbook.SaveAs Filename:=name4$ + ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

gruss nighty :)

hi zwerg :)

ohje einmal zuviel zuvor :(

hier werden alle sheets erfasst und jeder einzelne sheet uebernimmt den namen der zelle a1,wobei natuerlich darauf zu achten ist das keine doppelte namensvergabe stattfindet oder noch erweitern das makro.

gruss nighty

Sub Makro1()
For i% = 1 To Sheets.Count
Sheets(i%).Select
Sheets(i%).Name = Range("a1")
Next i%
End Sub

• abfrage
• Keine automatische Formelberechnung in Excel2003
• Excel: automatische Großschreibung nach einem Punkt
• Auto speichern einer Excel Datei