Windowsname automatisch in Zelle eintragen

Question

Hallo zusammen,

erst einmal Gratulation und Danke für die tolle Unterstützung bei den kleinen Problemen des Alltags.

Nun zu meiner Frage.

Ich habe eine Tabelle welche von mehreren Teilnehmern benutzt werden kann. Diese Datei wird allerdings nach Ende der Bearbeitung unter einem neuen Namen z.B. Material_1 abgespeichert. Die Urdatei z.B. Material_0 bleibt erhalten.

Jeder der die Urdatei öffnet soll automatisch mit seinem Windowsnamen z.B. in B1 eingetragen werden. Dieser Name soll beim abspeichern unter dem neuen Dateinamen auch erhalten bleiben, auch wenn diese Datei nochmals geöffnet werden sollte. Nur bei einer Änderung von Inhalten wird der WinName in B1 eingetragen und gespeichert, ansonsten bleibt der alte Wert erhalten.

Leider ist mein VBA Wissen relativ gering, daher wäre es super wenn ihr für meine Frage eine Lösung hättet.

Danke und Gruß an die Community

Answer 1

Ich habe das hier einmal probiert, aber ich muss hierbei den Code manuell starten.

Es soll aber so sein, das der Username direkt beim öffnen der Datei eingefügt werden soll.

Gerüchteküche...

Eine Private Sub kann man via ALT+F8 nicht aufrufen.
Selbst wenn man sie Public macht geht es nicht weil sie Argumente hat.

Der Code ist eine Ereignisroutine, die funktioniert nur wenn sie im richtigen Modul ist => DieseArbeitsmappe.

In Workbook_Open kann man den Code ZUSÄTZLICH ausführen, aber NUR ist dumm, denn nach dem Öffnen kann ich ohne Probleme "Hase" in die Zelle schreiben... und dann war's hinterher wieder keiner der es gemacht hat.

Beside that, das alles funktioniert generell nur wenn Makros aktiviert sind und sonstige Sicherheitseinstellungen die Ausführung nicht verhindern.

Andreas.

Answer 2

Hallo,

danke für deine Antwort.

Leider klappt das irgendwie nicht.

Ich habe das hier einmal probiert, aber ich muss hierbei den Code manuell starten.

Es soll aber so sein, das der Username direkt beim öffnen der Datei eingefügt werden soll.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Den User in diese Datei im ersten Blatt in Zelle A1 schreiben
Me.Worksheets(1).Range("A1") = Application.UserName
End Sub

Answer 3

Zum Test mach eine neue Datei

Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"

Links im Projekt-Explorer das Modul "DieseArbeistmappe" doppelklicken
Füge den folgenden Code ein
Schließe den VBA-Editor
Speichere die Datei

Wenn Du
Worksheets(1)

zu

Worksheets("qwe")
änderst, dann wird der Name in das Blatt "qwe" geschrieben.

Andreas.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Den User in diese Datei im ersten Blatt in Zelle A1 schreiben
Me.Worksheets(1).Range("A1") = Application.UserName
End Sub