Aus Tabelle4 in Tab1 ZeilenPosition finden
Franz
Was muss ich hier ändern um den Zeilenwert zu erfahren?
Sub Suche_NEW()
Dim Zeilenwert As Integer
Zeilenwert= iRowValueItem("29437436", 1)
MsgBox (Zeilenwert)
End Sub
Function iRowValueItem_NEW(sWhat As String, iCol As Integer) As Integer
Dim rng As Range
If sWhat = "" Then Exit Function
'Set rng = Columns(iCol).Find(What:=sWhat, LookAt:=xlWhole, LookIn:=xlFormulas)
Set rng = Worksheet("SEQUENZEN").Columns(iCol).Find(What:=sWhat, LookAt:=xlWhole, LookIn:= _
xlFormulas)
If rng Is Nothing Then
Exit Function
End If
iRowValueItem = rng.Row
End Function
Wenn ich auf "SEQUENZEN" stehe funktionniert es gut, aus einer "fremden" Tabelle kommt leider NULL.
Kann es auch eleganter gehen? Könntet Ihr mir wieder helfen?
Tschüss!
Franz D.