Code an Excel 2007 anpassen
Fritz_W
mit dem nachfolgendem Code speichere ich die Datei unter dem Namen des Zellinhalts der Zelle O1 der Tabelle1 ab.
Ich möchte das Makro nun in einer Datei im Format xlsm (Excel 2007) verwenden.
Was muss man ändern?
Vielen Dank für Eure Hilfe.
mfg
Fritz
Sub SpeichernUnter()
If Worksheets("Tabelle1").Cells(4, 15) "" Then
With ActiveWorkbook 'ThisWorkbook ?
.SaveAs Filename:=.Path & "/" & .Worksheets("Tabelle1").Cells(4, 15) & ".xls", FileFormat:= _
xlExcel8
End With
End If
End Sub
Anzeige