VBA Funktion aktualisiert sich nicht

21.01.2025 20:11:14

Ayax_0

Hallo zusammen,

ich habe jetzt schon einige Beiträge zu dem Thema hier aus dem Forum gelesen und ausprobiert. Leider führt mich keine Lösung zum Ergebnis..

Ich würde gerne in einem schreibgeschützen Arbeitsblatt (Datei, Arbeitsblatt und Arbeitsmappe sind geschützt) automatisch den Benutzernamen des Anwenders hinterlegen.

Hierfür habe ich folgende Funktion in VBA im Bereich Module hinterlegt:

Function Anwender() As String

    Anwender = Application.Username

End Function

Das funktioniert an sich auch. Nur leider aktualisiert sich der Benutzername nicht, wenn ich die Datei öffne. Erst über STRG + ALT + F9 wird die Funktion neu berechnet und der neue Nutzername steht in meiner Zelle. Das funktioniert auch trotz des Schreibschutzes.

Ich finde in VBA unter Extras - Optionen leider keinen Punkt "Berechnung".

Auch folgendes führt zu keinem Ergebnis:

Private Sub Worksheet_Activate()

Anwender

End Sub

Gibt es irgendeine Möglichkeit, wie ich die Funktion beim Öffnen der Datei ausführen kann, sodass sich der Benutzername aktualisiert?

Vielen Dank für eure Hilfe!

Liebe Grüße
Alex

AW: VBA Funktion aktualisiert sich nicht

21.01.2025 20:14:27

{Boris}

Hi,

die "Keule" wäre, zu Beginn der Function

Application.Volatile

zu schreiben.

Besser wäre es aber, im Workbook_Open-Ereignis den Nutzer einzutragen - ganz ohne Funktion. Eben da, wo Du ihn stehen haben möchtest.

VG, Boris

AW: VBA Funktion aktualisiert sich nicht

21.01.2025 20:21:33

Uduuh

Hallo,

Private Sub Workbook_Open()

  Calculate

End Sub

Gruß aus'm Pott
Udo

AW: VBA Funktion aktualisiert sich nicht

21.01.2025 23:43:27

Oppawinni

also.... es gibt ja verschiedene Funktionen die Volatile sind.
Und die könnte man auch zweckentfremden.
z.B.
=WENN(ZUFALLSZAHL()5;Anwender();"")
Das würde aber natürlich bedeuten, dass die Funktion bei jeder Änderung neu berechnet wird, was in vorliegendem Fall ja wahrscheinlich nicht viel Sinn macht.

AW: VBA Funktion aktualisiert sich nicht

21.01.2025 20:25:39

{Boris}

Dann noch besser:

Application.CalculateFull

VG, Boris

hatte ich mir auch gedacht, ....

21.01.2025 21:12:37

Uduuh

Hallo,
... nachdem ich den Beitrag abgeschickt hatte. ;-)
Sollte so aber auch reichen.

Gruß aus'm Pott nach D
Udo

AW: VBA Funktion aktualisiert sich nicht

21.01.2025 21:34:29

Ayax_0

Vielen Dank Boris!

Das hat mein Problem behoben und die Formel aktualisiert sich endlich, wenn man die Datei öffnet :)

BG
Alex

AW: VBA Funktion aktualisiert sich nicht

21.01.2025 20:20:29

Ayax_0

Hi Boris,

meinst du so?

Function Anwender() As String

Application.Volatile

    Anwender = Application.Username

End Function

Falls ja, bewirk das leider auch nicht, dass sich die Funktion aktualisiert. Mit STRG + ALT + F9 funktioniert es weiterhin.

Was meinst du damit, dass ich den Benutzer eintragen soll? Da nicht nur eine Person mit der Datei arbeiten soll, kann ich keinen festen Benutzernamen hinterlegen.

BG
Alex

AW: VBA Funktion aktualisiert sich nicht

21.01.2025 20:31:03

Onur

Die Funktion muss Public sein UND sich in einem STANDARDMODUL befinden.

ICH würde es aber SO lösen:

Private Sub Workbook_Open()

    Sheets("WasWeissIch").Range("A1") = Application.Username' Blattnamen und Bereich anpassen

End Sub

VBA Funktion aktualisiert sich nicht

Forumthread: VBA Funktion aktualisiert sich nicht

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Funktion aktualisiert sich nicht

Forumthread: VBA Funktion aktualisiert sich nicht

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread