Ich habe eine Userforms und darin ein Textfeld Tex_Mail1, indem ich eine Mailadresse eingebe.
Diese Mailadresse wird in einem Worksheet in der Spalte I (Columns(9)) gesucht, und wenn gefunden dann werden die Daten von Spalte A (Textfeld Tex_benu1), Spalte B (Textfeld tex_ID1) ausgegeben.
mit folgendem Code war alles o.k.
Nur hat sich nun der Ort der Mailadresse geändert. Die Mailadresse ist jetzt nicht mehr zwingend in Spalte I zu finden, sondern in einer beliebigen Spalte.
Jetzt habe ich keinen Plan, wie ich mein Problem nun lösen könnte
Wäre echt dankbar, wenn mir jemand eine Hilfestellung gibt.
Hier der wichtige Teil des funktionierenden Codes:
If Len(Trim$(Tex_Mail1)) Then
Tex_benu1 = "": tex_ID1 = ""
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_Mail1, LookAt:=xlWhole, _
LookIn:=xlValues, MatchCase:=False, SearchFormat:=False)
If Not objRange Is Nothing Then
Tex_benu1 = objRange.Offset(0, -7)
tex_ID1 = objRange.Offset(0, -8)
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