Speichern beim verlassen einer Zelle

Question

Hallo,
ich habe eine Frage ich möchte in Spalte C was eintragen. Sofern in eine Zelle was eingetragen ist, soll beim verlassen der Zelle die Arbeitsmappe gespeichert werden.
zb c2 "Klaus" enter -> Automatisch speichern
c3 "Peter" enter -> Automatisch speichern
usw.
Habt Ihr da eine Lösung ?
Mfg
Andi

Answer 1

Hallo Andi,

das Makro gehört in das VBA-Projekt der Tabelle, in der du deine Eingaben machst:

Private Sub Worksheet_Change(ByVal Target As Range)

'Code nur bei Eingabe in Spalte C ausführen
If Not Intersect(Target, Range("C:C")) Is Nothing Then
'falls Arbeitsmappe geändert wurde, dann
If ThisWorkbook.Saved = False Then
'prüfen, ob sie überhaupt schon einmal gespeichert wurde
If ThisWorkbook.Path <> "" Then
'falls ja, dann speichern
ThisWorkbook.Save
Else
'falls nein, dann Speichern-unter-Dialog aufrufen
Application.Dialogs(xlDialogSaveAs).Show
End If
End If
End If
End Sub

Gruß

M.O.

Answer 2

Hallo M.O
leider scheint der Code nicht zu gehen. Liegt es daran das ich die Arbeitsmappe Freigegeben habe und auf dem Server abgelegt ist.
Der 1. User soll diese Datei öffnen und der 2. und 3 der dann was in Spalte c einträgt, da soll dann nach dem Eintrag eine Automatische Speicherung erfolgen.

Danke Gruß Andi

Answer 3

Hallo Andi,

wo hast du den Code eingefügt? Sind Makros auf allen Rechnern zugelassen?

Beachte, dass der Code nur bei der Tabelle funktioniert, bei der der Code hinterlegt wurde. Oder soll der Code bei allen Tabellen in der Arbeitsmappe ausgeführt werden?

Der Code sollte auch bei fregegebenen Arbeitsmappen funktionieren.

Gruß

M.O.

Answer 4

Hallo Andi :-)

ist der code an der richtigen stelle eingefuegt worden ?

Alt+f11 > Projektexplorer > Tabelle1 z.b.
Mit Doppelclick auf Tabelle1 und in das rechts erscheinende Fenster einfuegen

Sind die schreibrechte geregelt auf dem Server ?

Gruss Nighty

Answer 5

Hallo
Stimmt war an der falschen Stelle eingefügt.

Danke euch :-)