Blattname=Zellenwert
01.04.2003 23:31:53
Gringo
die Zahl in A13 soll der Name der Datei beim Speichern sein.
Das ganze soll über einen Button gehen, aber mein Code hat einen Haken: die "123456" ist nur eine Beispielzahl, wie ersetze ich diese die jeweils aktuelle Zahl in A13?
Hier mein Code:
Sub nameSpeichern()
'
' nameSpeichern Makro
' Makro am 01.04.2003 von Grigo aufgezeichnet
'
'
Range("A13").Select
ActiveCell.FormulaR1C1 = "123456"
ChDir "K:\VB - Projekte\Hannes"
Range("A13").Select
ActiveCell.FormulaR1C1 = "123456"
ActiveWorkbook.SaveAs Filename:="C:\VB - Projekte\123456.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Wer kann helfen?
Danke
Gringo
Anzeige