Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige