Hi!
Weiß jemand, ob man, wenn ein Wert mit einer Range, d.h. einem Wert davon, verglichen worden ist, herausfinden/abfragen, wo, d.h. in welcher Zeile, die Übereinstimmung stattfand?
Es geht um diesen Ausdruck:
ep = eps.Find(file_nr, LookAt:=xlWhole, LookIn:=xlValues)
Dank im Voraus?
ali drin
Weiß jemand, ob man, wenn ein Wert mit einer Range, d.h. einem
Wert davon, verglichen worden ist, herausfinden/abfragen, wo,
d.h. in welcher Zeile, die Übereinstimmung stattfand?
ep = eps.Find(file_nr, LookAt:=xlWhole, LookIn:=xlValues)
Hi Ali,
es ist für mich einfacher nachzubilden wenn du dich allgemein ausdrückst, also so zB. ich suche eine Wert in A1:A10 und möchte bei Übereinstimmung dessen Adresse, als gleich mit ep usw loszulegen.
Wie wärs damit:
Option Explicit
Sub tt()
Dim eps As Range, file\_nr As Byte, n As Byte, ep
Set eps = Range("A1:A10")
file\_nr = 5
For n = 1 To 10
Cells(n, 1) = n
Next n
ep = Application.WorksheetFunction.Match(file\_nr, eps)
MsgBox Cells(ep, 1).Address
End Sub
Gruß
Reinhard