Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage von User Anmeldename

Forumthread: 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
Anzeige

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
Anzeige
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)

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