Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage von User Anmeldename

Abfrage von User Anmeldename
03.11.2006 08:08:21
User
Hallo alle zusammen,
in den Zellen von D1 bis D30 ist mit Hilfe einer Formel jeweils ein User- Anmeldenamen hinterlegt. Wie kann ich folgendes Makro umschreiben, dass der Bereich D1 bis D30 abgefragt wird ob der User vorhanden ist.

Sub user()
If Environ("Username") <> Worksheets("Tabelle1").Range("D5") Then Exit Sub
MsgBox ("User vorhanden")
End Sub

Ich hoffe mir kann jemand helfen.
Danke im voraus!
Andre

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage von User Anmeldename
03.11.2006 08:29:00
User
Hallo Andre,

Sub Makro1()
On Error GoTo err
such = Environ("Username")
Range("D1:D30").Find(What:=such, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
MsgBox ("User vorhanden")
Exit Sub
err:
MsgBox ("User nicht vorhanden")
End Sub

Gruß
marcl
AW: Abfrage von User Anmeldename
03.11.2006 08:53:19
User
Hallo
so z.B.

Sub user()
If WorksheetFunction.CountIf(Sheets("Tabelle1").Range("D1:D30"), Environ("username")) = 0 Then Exit Sub
MsgBox ("User vorhanden")
End Sub

TabellenBlattname ggf. anpassen
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Abfrage von User Anmeldename
03.11.2006 09:04:59
User
Hallo marcl,Uwe
danke für die Antworten. marcl, deine Lösung funktioniert leider nicht bei mir. Die Lösung von Uwe funzt prima.
Nochmals DANK an euch!
MFG
Andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige