Hente data fra række
Nedenstående finder data i rækken under den række, hvor data i celle bliver fundet. Hvad er der galt?Private Sub Containernummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim X As Integer
Static C
With Worksheets("Stamdata").Range("B2:B10000")
Set C = .Find(Nummer, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
'C.Address er den celle hvor data bliver fundet f.eks.$A$20
X = InStr(2, C.Address, "$")
Rekke = Val(Mid(C.Address, X + 1, 3)) ' Finder den række hvor din søgning er fundet
Størrelse = .Cells(Rekke, 5)
Else
Størrelse = ""
End If
End With
End Sub