HERBERS Excel-Forum - das Archiv
Makro funktioniert nach Beenden von Excel nicht
Excel

Hallo zusammen,
ich habe jetzt mehrfach erfolgreich ein Makro erstellt welches mir einen Audittrail bzw. eine Änderungsnachverfolgung gibt. Ich war ziemlich froh, dass es funktioniert hatte. Jedoch funktioniert es nach dem Beenden von Excel (gespeichert wurde) nicht mehr.
Schreibe ich das Makro 1:1 neu ab oder kopiere es in eine neue Mappe, funktioniert es wieder. Nach dem erneuten Schließen der Datei kommt wieder eine Fehlermeldung. Jetzt bin ich echt ratlos.
Ich verwende Excel auf macOS. Jedoch passiert das gleiche bei Windows. Habe ich bereits probiert.
Leider habe ich Probleme mit dem Hochladen der Datei. Vielleicht kann mir jemand ohne die Datei eine gute Lösung für mein Problem nennen bzw. mit erklären, wie ich hier meine Datei hochladen kann.
Viele Grüße, Maik

AW: Makro funktioniert nach Beenden von Excel nicht
Excel

Hallo Maik,
dazu kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue und damit das Makro nicht sehe.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
dann halt die Fresse
WF

.
Danke für Deine VBA Lösung
Hajo_Zi

die war ja gewünscht.
Gruß Hajo
Lern endlich lesen...
{Boris}

Hi Hajo,
...er schrieb:
Leider habe ich Probleme mit dem Hochladen der Datei. Vielleicht kann mir jemand [.......] erklären, wie ich hier meine Datei hochladen kann
Warum schreibst Du jedesmal solch einen arroganten Bullshit statt konstruktiv zu antworten?
Da Max sich hier auch eingebracht hat, weiß ich den Frager in besten Händen.
VG Boris
AW: Makro funktioniert nach Beenden von Excel nicht
Excel

Hallo zusammen,
vielen Dank für die schnellen Antworten. Ich habe es wieder probiert it dem Hochladen. Ich habe es auch gestern schon genauso wie beschrieben probiert und finde die Datei auch auf meinem Schreibtisch. Leider ist diese grau und kann nicht ausgewählt werden. Hat dafür noch jemand eine Lösung?
Ich würde jetzt mal noch den Code hier rein kopieren. Vllt hilft auch das schon.
Dim AlterWert
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Value <> AlterWert Then
With Sheets("Log").Range("A1000").End(xlUp)
.Offset(1, 0).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
.Offset(1, 1).Value = Application.UserName
.Offset(1, 2).Value = Target.Address
.Offset(1, 3).Value = AlterWert
.Offset(1, 4).Value = Target.Value
End With
End If
End Sub

Private Sub Worksheet_selectionchange(ByVal Target As Range)
AlterWert = Target.Value
End Sub
Vielen Dank schon mal und viele Grüße,
Maik der ahnungslose ;)
AW: Makro funktioniert nach Beenden von Excel nicht
Excel

Hallo Maik,
in meiner Datei ist das Makro nach Neu öffnen noch drin.
Zu Deiner Datei habe ich schon was geschrieben.
Bei Change ist AlterWert nicht Vorhanden.
Da unter Option ExPlicit die Variable nicht definiert ist.
Gruß Hajo
Nicht nachvollziehbar...
Boris

Hi,
...der Code funktioniert einwandfrei. Und ich kann auch so viel speichern und schließen wie ich will.
Was gibt es denn genau für eine Fehlermeldung?
VG, Boris
AW: Nicht nachvollziehbar...
Maik

Hi,
ich habe das Sheet "Log" mit folgendem Code geschützt:
Sub protect_log()
Sheets("Log").Protect Password:="Log", UserInterfaceOnly:=True
End Sub
Meines Wissens nach, müsste es dem Makro das Schreiben erlauben.
Die Fehlermeldung besagt, dass das zu ändernde Blatt Schreibgeschützt ist. (Was ja eigentlich nicht sein sollte und auch beim ersten Mal funktioniert hat.)
Danke für die schnelle Rückmeldung.
Viele Grüße,
Maik
Wann schützt Du denn das Blatt?
Boris

Hi,
Du postest eine "normale" Sub. Versuch doch mal, den Code in das Klassenmodul "DieseArbeitsmappe" zu integrieren:
Private Sub Workbook_Open()
Sheets("Log").Protect Password:="Log", UserInterfaceOnly:=True
End Sub
VG, Boris
AW: Makro funktioniert nach Beenden von Excel nicht
Excel

Hallo Maik,
unter dem Beitragsfenster findest du den Button "Zum File-Upload". Auf dieser Seite gibst du deine Maiadresse und dein Kennwort ein. Das Häkchen bei "Ich bin mit einer Speicherung meiner personenbezogenen Daten entsprechend der Datenschutzerkärung einverstanden." setzen und auf "Durchsuchen" klicken. Deine Datei im sich öffnenden Dialog anklicken dann der "OK" Button. Jetzt "Datei zum Server" klicken. Eine weitere Seite öffnet sich in dem du den Link zu der hochgeladenen Datei findest. Diesen Link kopieren und in deinen Beitrag einfügen.
Gruß
Nepumuk