Microsoft Excel

Herbers Excel/VBA-Archiv

Anwender vergleichen

Betrifft: Anwender vergleichen von: Christian
Geschrieben am: 30.09.2020 08:22:37

Hallo
Ich möchte die Benutzer Zweier Excel Dateien
miteinander Vergleichen
O:\TP-1\TP-15\TP-158\Intern\MechEG\03 Belegungsanalysen\Auslastung2020Test4.xlsm
O:\TP-1\TP-15\TP-158\Intern\MechEG\03 Belegungsanalysen\Beispiel1.xlsm
In etwa so:
IF O:\TP-1\TP-15\TP-158\Intern\MechEG\03 Belegungsanalysen\Auslastung2020Test4.xlsm.User.Name =
O:\TP-1\TP-15\TP-158\Intern\MechEG\03 Belegungsanalysen\Beispiel1.xlsm.User.Name Then
Es wäre für mich auch sehr hilfreich wenn der Pfad und die Dateinamen als Variablen angegeben sind
Ich hoffe ihr versteht was ich benötige

Gruß Christian

Betrifft: Bahnhof! Was willst du bitte vergleichen? (owT)
von: EtoPHG
Geschrieben am: 30.09.2020 14:15:26



Betrifft: AW: Bahnhof! Was willst du bitte vergleichen? (owT)
von: Christian
Geschrieben am: 30.09.2020 14:35:01

Hallo
Ich möchte die beiden Namen miteinander vergleichen
die diese beiden Dateien geöffnet haben

Gruß Christian

Betrifft: AW: Bahnhof! Was willst du bitte vergleichen? (owT)
von: Rudi Maintaire
Geschrieben am: 30.09.2020 15:27:54

imho bekommst du nicht heraus, wer die Dateien zuletzt geöffnet hat.
Allenfalls wer zuletzt gespeichert hat.

Betrifft: AW: Bahnhof! Was willst du bitte vergleichen? (owT)
von: Christian
Geschrieben am: 30.09.2020 16:25:39

Hallo
Wieso funktioniert das nicht
Liegt es daran das es sich um Netzwerkdateien handelt
Mit application.UserName kann man doch den Benutzernamen
ermitteln

Gruß Christian

Betrifft: AW: Bahnhof! Was willst du bitte vergleichen? (owT)
von: Felix
Geschrieben am: 30.09.2020 17:22:09

Application.Username ist nicht 'Workbook.Username', was du dir vielleicht vorstellst.
Application ist die akuell geöffnete Excel-Session. Also ist der Wert von Application.Username der Name, der an dem Computer hinterlegt ist, an dem du beide Dateien öffnest

Betrifft: AW: Bahnhof! Was willst du bitte vergleichen? (owT)
von: Christian
Geschrieben am: 30.09.2020 17:28:30

Hallo
Vielen Dank für die Erklärung

Gruß Christian

Betrifft: AW: Anwender vergleichen
von: Herbert_Grom
Geschrieben am: 30.09.2020 17:31:08

Hallo Christian,

den UserName kannst du mit folgender Funktion ermitteln:
Function User_Name() As String
   Dim DocProp As Object
   Set DocProp = ActiveWorkbook.BuiltinDocumentProperties
      User_Name = DocProp(3).Value
   Set DocProp = Nothing
End Function
Dann schreibst du in eine Zelle
=User_Name()
Und das in beiden AM. Dann kannst du diese beiden Zellen miteinander vergleichen.

Servus

Betrifft: AW: Anwender vergleichen
von: Christian
Geschrieben am: 30.09.2020 17:36:31

Hallo Herbert
Vielen Dank
Gruß Christian

Betrifft: AW: Anwender vergleichen
von: Herbert_Grom
Geschrieben am: 30.09.2020 17:38:23

Hallo Christian,

vielen Dank ist PK, doch hat es dir geholfen?

Servus

Betrifft: AW: Anwender vergleichen
von: Herbert_Grom
Geschrieben am: 30.09.2020 17:38:24

Hallo Christian,

vielen Dank ist PK, doch hat es dir geholfen?

Servus

Betrifft: AW: Anwender vergleichen
von: Christian
Geschrieben am: 30.09.2020 17:45:17

Hallo
Ja zum Teil
Ich wende im Prinzip sowas schon an
Ich wollte eigentlich die beiden Benutzer
Direkt miteinander vergleichen ohne den Umweg
über den Zellen Vergleich

Gruß Christian

Betrifft: AW: Anwender vergleichen
von: Herbert_Grom
Geschrieben am: 30.09.2020 18:17:59

Hallo Christian,

in einer AM kannst du damit den UN auslesen:
Environ("USERNAME")
Probier mal damit, ob dir das hilft.

Servus

Betrifft: AW: Anwender vergleichen
von: Christian
Geschrieben am: 30.09.2020 18:20:25

Hallo
Alles klar
Danke
Gruß Christian

Betrifft: AW: Anwender vergleichen
von: Hajo_Zi
Geschrieben am: 01.10.2020 05:20:40

Hallo Christian,

offen bedeutet es soll noch eine Antwort kommen.
Warum ist dein Beitrag Offen.
Du willst doch was machen. Soll jemand vorbei kommen?

Das ist nur meine Meinung zu dem Thema.

GrußformelHomepage