ich habe ein Problem bei dem ich leider nicht mehr weiter weiß, ihr mir aber sicher helfen könnt.
Ich möchte per VBA Code einen Abgleich machen ob zum angemeldeten Systemuser der Kenner "J" in einem Tabellenblatt gefunden wird. Wenn der Kenner gefunden wurde sollen weitere Aktionen ausgeführt werden.
Der code sieht bisher so aus:
Dim sUser As Variant, sTable As Variant, sFormel As Variant
Sub User ()
ThisWorkbook.Worksheets("User").Activate
sUser = Environ("Username")
sTable = ThisWorkbook.Worksheets("User").Range("A:A")
sFormel = Application.VLookup(sUser, sTable, 2, 0)
If sFormel = "J" Then
End Sub
Nach einer Prüfung mit dem Code
If IsError(sFormel) Then
MsgBox "Du da ist ein Fehler drin"
End If
habe ich gemerkt das der SVERWEIS auf einen Fehler läuft.
Ich weiß aber nicht wo der Fehler liegt. Muss ich mit einer anderen Formel/Funktion an die Sache heran gehen?
Danke im Voraus für eure Hilfe