VBA-Beispiel 070
mail schreiben
mail schreiben

Exceldatei automatisch speichern

Bei einer Eingabe in Zelle B2, wird die Datei mit dem Dateinamen aus B2 als neue Datei gespeichert.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

   If Target.Address = "$B$2" Then
      ThisWorkbook.SaveAs Range("B2")
      MsgBox "gespeichert", , ThisWorkbook.Path
   End If

End Sub


Download:   vba070.zip