Application.Match ..
26.05.2003 15:35:12
Martin
Hallo,
ich habe eine Arbeitsmappe, deren Makros nur von bestimmten, autorisierten Personen gestartet werden sollen.
Dazu habe ich folgende Abfrage vorgeschaltet, die den Benutzernamen, den die Kollegen beim Einloggen ins Netzwerk benutzen ausliest:
Sub CheckUserNetwork()
UserList = Sheets("Sheet1").Range("Users")
pcUser = Environ("Username")
If Application.IsNumber(Application.Match(pcUser, UserList, 0)) = True Then
.. 'weitere Aktion ok
Else
.. 'weitere Aktion nicht ok
End If
End Sub
Verglichen wird also der Benutzername mit Einträgen, die in einem definierten Bereich stehen.
Nun loggen sich die Leute aber nicht mit deren Namen ein, sondern mit den IDs, die die Firma vergibt. Hier gibt es folgende Möglichkeiten:
A*
FI*
FT*
Für das Sternchen (*) steht eine Zahl.
Leider kann ich aber nicht nach A* usw. abfragen, das erkennt Excel nicht als korrektes Argument. Ich denke mal, dass ich mit "Like A*, Like FI*" usw. arbeiten muss, weiss nur nicht wie.
Kann mir jemand eine Hilfestellung geben bitte?
Gruss,
Martin