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

berechtigung abfragen

berechtigung abfragen
24.10.2005 08:32:21
Bernd
guten morgen,
ich möchte folgendes realisieren:
in tabelle1 habe ich in spalte a untereinander 5 usernamen.
in a1 steht hans
in a2 steht fred
in a3 steht paul
in a4 steht anna
in a5 steht gabi
(die namen sind usernamen)
nun möchte ich über einen button in einer userform abfragen, bevor der code ausgeführt wird, ob der angemeldete user einer dieser personen aus der liste im tabellenblatt ist.
mit einem namen habe ich es hinbekommen:
(der angemeldete user steht auch in einer textbox in der UF)
z.b.
if textbox1 "hans" then
dadada
nachfolgender code
weiss jetzt nicht wie ich abfragen muss
if textbox1 Bereich tabelle1 von a1 bis a5
ich hoffe ihr habt mich verstanden und könnt mir helfen.
sonst gerne nachfragen.
vielen dank
gruss Bernd

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: berechtigung abfragen
24.10.2005 08:51:08
u_
Hallo,
nach folgendem Schema:
Dim blnUser As Boolean
Dim i As Integer
For i = 1 To 5
If TextBox1 = Cells(i, 1) Then
blnUser = True
Exit For
End If
Next i
If blnUser = False Then
MsgBox "Das darfst du nicht!"
Exit Sub
Else
'Code
End If
Gruß
Geist ist geil!
AW: berechtigung abfragen
24.10.2005 09:12:48
Bernd
hi u_,
danke für den ansatz.
werde es gleich mal testen.
melde mich nochmal. so oder so :-)
gruss bernd
AW: berechtigung abfragen
24.10.2005 10:08:05
Bernd
hi nochmal,
der code funzt so ganz gut.
mein problem ist nun noch, dass ich auf mehreren userformen die user abfragen möchte.
die user stehen alle in tabelle "user" von a1:a5
habe mal die reihe:
If TexteBox1 = Cells.(i, 1) then
in:
If TexteBox1 = Sheets("User").Cells.(i, 1) then
umgeschrieben.
das funzt aber nicht
hat da noch jemand eine idee?
danke und gruss
Bernd
Anzeige
AW: berechtigung abfragen
24.10.2005 10:37:14
Matthias
Hallo Bernd,
vielleicht so:

If WorksheetFunction.CountIf(Sheets("Tabelle1").Range("A1:A5"),TextBox1) = 0 Then
MsgBox "Du darfst das nicht!"
Exit Sub
End If

Gruß Matthias
AW: berechtigung abfragen
24.10.2005 11:31:20
Bernd
hi matthias,
deine idee funzt leider nicht.
aber danke für deine mühe.
gruss bernd
AW: berechtigung abfragen
24.10.2005 11:35:17
Matthias
Hallo Bernd,
was klappt denn nicht?
Gruß Matthias
Danke, alles klar o.t.
24.10.2005 15:15:38
Bernd
f

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige