Office: Speichern unter per Zellbezug

Hallo Forum,

habe folgende Versuch gestartet einen Dateinamen welcher in Zelle G30 steht mit dem aktuellen Pad zu versehen und dann mittels Button zu schreiben.

Sub Save_a_New_index_Path()
'
' Save_a_New_index Macro
'
'
ActiveWorkbook.SaveAs Filename:=ActiveWoorkbook.Path & "\" & Range("G30")
End Sub

Folgende Fehlermeldung gibt Excel aus: Object required (Error 424)
Das gleiche Makro mit manuell geschreibenem Pfad funktioniert. Ist es möglicherweise notwendig den Pfad erst in einen String einzulesen?


Gruß
Bernd


Win XP, XL2010UK, Datei im 2003 Kompatibilitätsmodus

 

:-D Ersetze ActiveWoorkbook durch ActiveWorkbook
Dann klappts bestimmt

 

wer lesen kann ist klar im Vorteil.
Danke für den Hinweis. ;-)

Habe dann noch eine Formellösung gefunden: =CELL("filename"), Position der linken Klammer ([) suchen, Left(Zelle;Pos([)-1) und mit dem Dateinamen zusammenbauen.

Gruß Bernd