Arbeitsblatt speichern
01.09.2002 12:47:08
Silvia
ich beabsichtige die Speicherung des Arbeitsblattes unter Abfrage von Zellinhalten, wie folgt:
'StandardModule: mHWH
Sub UnterNamenSpeichern()
Dim TB As Worksheet
Dim dName$
Set TB = ActiveSheet
dName = "c:\" & _
TB.Range("B3") & " " & _
TB.Range("B4") & ".xls"
ActiveWorkbook.SaveAs dName
End Sub
Den Code möchte ich soweit modifizieren, das eine automatische Abfrage der Zellen bei Beendigung des Programms erfolgt.
Danke Silvia
Anzeige