Werte in Array suchen und weiterverwenden
17.09.2004 07:17:22
Thomas
Habe wiedermal ein Problem. Vergleiche einen eingeloggten Usernamen mit einem Array-Wert - das klappt. Jeweils über dem gefundenen Wert des Arrays steht ein weiterer Wert (hier also in b5:g5). Den Wert möchte ich als IF überprüfen und so ein Unterprogramm aufrufen. Leider komme ich bei der IF-bla, bla nicht weiter?
Sub Auto_open()
Dim strUserklein, strUsergross As String
Dim myTime As Date
strUserklein = Environ("Username")
strUsergross = UCase(strUserklein)
'If Range("Auswahl_Montage").Value = "Montage ausblenden" Then Call Ausblenden_Montage
'If UCase(strUsergross).Value = "TZ" Then Call Schützen_Montage
''''''''''If UCase(Environ("Username")) = "RKR" Then Call Schützen_Montage
''''''''''If UCase(Environ("Username")) = "TZ" Then Call Schützen_Automation
Dim arr As Variant
Dim irow As Integer
arr = Range("b6:g6")
irow = Application.Match(strUsergross, arr, 0)
If Err > 0 Then
MsgBox "Name des angemeldeten Systems nicht gefunden!"
Else
?if ? = "Beispiel" then Call Unterprogramm
'''' MsgBox "An " & irow & " .Stelle gefunden"
End If
End Sub
Könnt Ihr mir bitte weiterhelfen?!
Besten Dank schon jetzt.
Viele Grüsse
Thomas