Hallo - hab nun ein neues Problem. Ich habe hier den Code für das Suchen in einer Tabelle, festen Spalte, über Userform. Nun möchte ich aber dass ich eine EMailadresse über das ganze Excelsheet suche, also nicht mehr nur in einer bestimmten Spalte. Der Suchstring (EMailadresse) ist in Tex_db_Mail .
Hier ein Ausschnitt des Codes:
If Len(Trim$(Tex_db_Mail)) Then
Tex_dblegi_benu = "": tex_dB_HR_ID = ""
For Each objWB In Application.Workbooks
If objWB.FullName = cstrFile Then bolAlreadyOpen = True: Exit For
Next
If objWB Is Nothing Then Set objWB = Workbooks.Open(cstrpath & cstrFile1)
With objWB
Set objRange = .Sheets(cstrTab).Columns(9).Find(What:=Tex_db_Mail, LookAt:=xlWhole, _
LookIn:=xlValues, MatchCase:=False, SearchFormat:=False)
If Not objRange Is Nothing Then
Tex_dblegi_benu = objRange.Offset(0, -7)
tex_dB_HR_ID = objRange.Offset(0, -8)
If Tex_nam1 = "" Then
vorn = objRange.Offset(0, -6)
famn = objRange.Offset(0, -5)
nam = famn & ", " & vorn
Tex_nam1 = nam
tex = objRange.Offset(0, 26)
vb = Split(tex, ",")
tex1 = vb(0)
Tex_Pok1 = Mid(tex1, 4, 8)
chk_db1.Value = True
End If
Else
MsgBox "E-Mailadresse nicht gefunden!"
End If
If Not bolAlreadyOpen Then .Close False
End With
Else
MsgBox "Bitte eine E-Mailadresse eingeben", vbCritical
Exit Sub
End If