Datei Speichern unter den Inhalt 2er Zellen
04.01.2005 10:41:44
Matthias
Ich habe folgendes Problem.
Ich möchte eine Datei so abspeicher, daß sie den als Namen den Inhalt zweier Zellen hat.
Folgendes Makro habe ich geschrieben, dieses Funktioniert aber nicht.
Sub Rechnungsnummer()
Application.ScreenUpdating = False
Dim neuName As String
neuName = Range("ah3")
Dim neuName1 As String
neuName = Range("ah6")
ActiveWorkbook.SaveAs Filename:="c:\Spartechnik Rechnungen\Aktuelle Rechnungen\" & neuName & neuName1 & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Range("ah3").Select
ActiveCell.FormulaR1C1 = Range("ah3") + 1
End Sub
Wäre toll wenn Ihr mir weiterhelden könntet.
Gruß
Matthias
Anzeige