Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.05.2024 13:10:18
Pivot-Tabelle mit Monaten und nicht Tagen
09.05.2024 11:36:45
workbook schließen ohne abfrage
09.05.2024 08:18:18
Feldformatierung (Einzahl/Mehrzahl) ohne VBA
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Application.UserName etwas abfragen

Mit Application.UserName etwas abfragen
18.04.2022 16:53:58
Tony
Hallo meine Lieben,
ich habe da grade eine Idee und muss gestehen das ich nicht wirklich sicher bin ob dies überhaupt umsetzbar ist.
Über 

Application.UserName
begrüsse ich die Nutzer persönlich und dies funktioniert super.
Meine Idee ist jetzt das nach dem erkennen des Nutzers auch geprüft wird ob in einer anderen Datei 

Pendenzen.xlsm
etwas zwischen 


B14:C23
drin steht und wenn ja dann öffnet sich eine weitere Userform mit diesen Daten zur Information. Ich hoffe das ich mich einigermassen Verständlich ausdrücken konnte. :)
Was ich damit meine:

Application.UserName = Tony dann öffne Pendenzen.xlsm und schaue ob im Bereich B14:C23 etwas drin steht. Wenn ja dann Userform öffnen und die Daten eintragen, wenn nein dann nichts machen und Begrüssungsuserform einfach schliessen
bei einem Anderen User dann eigentlich das gleiche..
Application.UserName = Thomas dann öffne Pendenzen.xlsm und schaue ob im Bereich E14:F23 etwas drin steht. Wenn ja dann Userform öffnen und die Daten eintragen, wenn nein dann nichts machen und Begrüssungsuserform einfach schliessen
... usw
Lieber Gruss Tony

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Application.UserName etwas abfragen
18.04.2022 21:20:00
ralf_b
mit vba gut solltest du tatsächlich die benötigten Codezeilen (selbst) zusammenbekommen. Zumindest sie dir (selbst)zusammensuchen können.
AW: Mit Application.UserName etwas abfragen
18.04.2022 21:23:09
AlterDresdner
Hallo Tony,
völlig ungetestet und unvollständig

Sub nn()
Dim User, Bereiche, UName As String
Dim i As Long, found As Boolean, zelle, Pend As Object
User = Array("Tony", "Thomas")
Bereiche = Array("B14:C23", "E14:F23")
UName = Application.UserName
For i = LBound(User) To UBound(User)
If User(i) = UName Then
found = True
Exit For
End If
Next i
If found Then
found = False
Set Pend = Workbooks.Open(ThisWorkbook.Path & "\Pendenzen.xlsm")
For Each zelle In Pend.Range(Bereiche(i))
If Not IsEmpty(zelle) Then
found = True
Exit For
End If
Next zelle
End If
If found Then 'es steht was drin
'Userform öffnen
' Daten eintragen
End If
End Sub
Gruß der ALteDresdner
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige