AW: Zeilennummer nach .Find
19.09.2010 18:04:58
Lorenz
Hallo Hajo,
Ich dachte mir, weil ich die "Variablen in "Funktionen" in ein Modul auslagerte, habe ich dementsprechend einzelne Var. daraus gemacht. Etwa so:
Option Explicit
Dim myAdress As Range, myZeile As Integer, loLast As Long, loLetzte As Long
Public Function Berechtigt() As Boolean
myUser
loLetzte = IIf(IsEmpty(wksEinstellung.Cells(Rows.Count, 1)), wksEinstellung.Cells(Rows.Count, 1) _
.End(xlUp).Row, Rows.Count)
Berechtigt = Not wksEinstellung.Rows("1:" & loLetzte).Find(What:=myUser, LookIn:=xlValues, _
LookAt:=xlPart) Is Nothing
End Function
Public Function myUser() As String
myUser = Environ("Username")
End Function
Public Function UserZeile() As Long
loLast = IIf(IsEmpty(wksEinstellung.Cells(Rows.Count, 1)), wksEinstellung.Cells(Rows.Count, 1). _
End(xlUp).Row, Rows.Count)
Set myAdress = wksEinstellung.Rows("1:" & loLast).Find(What:=myUser, LookIn:=xlValues, LookAt:= _
xlPart)
If Not myAdress Is Nothing Then UserZeile = myAdress.Row
End Function
Dies hatte ich so gelöst, da ich in drei verschiedenen UF, sowie in div. Sheets auf die Fkt zugreifen möchte.
Was sagst Du? Ist der Weg in diese Richtung vielleicht falsch?
Grüße Lorenz