Office: automatisches speichern

Hallo,
habe mit excel ein Formblatt erstellt.
Ist es möglich dass nach jeden neuen Eintrag das Formblatt in einen bestimmten Ordner AUTOMATISCH gespeichert wird?
Dateiname soll ein bestimmter Zellwert sein.
Das Original soll natürlich unverändert bleiben.

Schöne Grüße
ponte

 

Hallo!

Dieser Code tritt bei jeder manuellen Änderung im Blatt ein:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Mappe As Workbook
'Neue Mappe erstellen:
Set Mappe = Workbooks.Add
'Blatt kopieren:
Me.Copy Before:=Mappe.Sheets(1)

'VBA-Code aus neuer Mappe entfernen:
'(Quelle: Nepumuk)

Dim objVBComponents As Object
With Mappe.VBProject
For Each objVBComponents In .VBComponents
Select Case objVBComponents.Type
Case 1, 2, 3 'Module, Klasssenmodule, Userforms
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Case 100 'Workbook, Sheets
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With

'Neue Mappe speichern:
'(Dateiname steht in A1)
Mappe.SaveAs "E:\Test\" & Me.Range("A1") & ".xls"
'Neue Mappe schließen:
Mappe.Close
End Sub

 

hallo,
vielen Dank für die schnelle Hilfe,
aber sobald ich in meiner Vorlage eine Änderung vornehme,
erscheint eine Meldung LAUFZEITFEHLER (siehe Attachment).
Woran kann das liegen?

gruß
ponte

 

hallo,
vielen Dank für die schnelle Hilfe,
aber sobald ich in meiner Vorlage eine Änderung vornehme,
erscheint eine Meldung LAUFZEITFEHLER (siehe Attachment).
Woran kann das liegen?

gruß
ponte

 

Hallo!

Bei mir kommt dieser Fehler nicht.
Das könnte an deinen Sicherheitseinstellungen liegen.
Schau mal unter Menü Extras > Makro > Sicherheit
und stelle dort ggfs. auf "mittel".
(ist aber nur geraten...)

 

Hallo!
Habe die Sicherheit auf mittel gesetzt.
Der Fehler kommt trotzdem.

Viele Grüße
ponte