Office: Freigegebene Exceldatei aus VBA aktualisieren

Hallo Sven,

hier ist mein versprochener Bericht. Hat etwas gedauert, weil ich mich erst von dem "Rückschlag" erholen musste.

Wie geplant bin ich den Weg der kleinen Schritte gegangen und habe relativ schnell gemerkt, das mein Problem nicht im Skript selber lag, sondern in der Dateiversion. Selbst mit völlig fehlenden Skript gab es "Stress", wenn die Datei als *.xlsm" freigegeben wurde. Zwei bis drei Personen hatten Zugriff und der nächste hat die Freigabe der Datei zerstört (ganz sicher: Kein mutwilliges umschalten *wink.gif*

Nach diesm Erlebnis bin ich wieder auf das Format "*.xls" zurückgegangen und habe jeden Tag ein Stück von meinem neuen Skript "freigemacht". Heute lief alles zum ersten Mal unter "Volllast": Und keiner hat sich beschwert !!!!!!!

Dieses Erlebnis fällt für mich zwar unter die unerklärbaren EXCEL-Mysterien, aber letztendlich zählt, das es nun so läuft, wie erwartet *grins

In diesem Sinne viele Grüße

Gaby

 

Ich befasse mich im Moment auch mit genau diesem Thema.

Meine Idee ist, das genaue Datum bei öffnen der Datei lokal zu speichern (in einer Variable). Bei schreiben von Daten in die Tabelle (bei mir nur über eine Userbox möglich) wird das gespeicherte Datum mit dem letzten Stand der Datei verglichen. Ist das letzte Speichern jünger wie die "Öffnungszeit", so soll die Datei aktualisiert werden und dann erst können neue Werte eingetragen werden (es kommt bei evtl. Überschreiben eine Fehlermeldung auf [hab ich schon programmiert]). Natürlich wird nach jedem EIntrag es unmittelbar gespeichert.

Haltet mich auf dem Laufenden. (Hab noch 2 Wochen Zeit u.a. dafür). Wenn ich's hab melde ich mich.

Danke Gruß

Flo

 

Hallo an alle,

Nouri meine Name und grüße erst einmal alle hier im Forum.
Habe nun etliche Forenbeiträge gelesen, nur leider nichts konkretes zu meinem Problem gefunden. Bin auch kein VBA-Profi und hoffe deshalb das jemand von euch in der Lage ist mir zu helfen bzw. so nett ist mir zu helfen.

Nun zu meinem Problem:
Wenn ich die entsprechende Excel-Datei freigebe funktioniert das Makro nicht mehr.
Erhalte die Fehlermeldung: Laufzeitfehler 1004 - Dieser Befehl ist bei freigegebenen Dateien nicht verfügbar.

Klicke dann auf `Debuggen`

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim lRow, zRow As Long

lRow = Sheets("TEA 51").Range("A65536").End(xlUp).Row
zRow = Sheets("Erledigt TEA 51").Range("A65536").End(xlUp).Row + 1

Set Bereich = Range("W4:W99" & lRow) '*** hier eintragen wo das Datum steht

If Not Intersect(Target, Bereich) Is Nothing Then
If IsDate(Target.Value) = True And Target.Value "" Then

With Range("A" & Target.Row & ":W" & Target.Row) '*** hier eintragen was kopiert werden soll
.Copy

Sheets("Erledigt TEA 51").Paste Destination:=Sheets("Erledigt TEA 51").Range("A" & zRow)
Application.EnableEvents = False
.Delete shift:=xlShiftU
End With
End If
End If

Application.EnableEvents = True
End Sub

Das farblichmarkierte ist wohl nicht ganz korrekt... Weiß nur leider nicht wie ich das ändern soll?!?!

Wäre euch sehr dankbar wenn mir jemand helfen könnte...

Gruß
Nouri