Question

也许这是一个简单的问题。但不是我我有什么？我有一个包含5列的工作表（名为ZTN）在A下有两个值“是或否” / B列CHNumber（例如CH4711）/ C列示例“盐”的项目D列为空（无值），E ZTN为数值（ZTN数）

我还有一个用户窗体，其中包含3个文本框Txtbx44（用于ZTN号的项目文本框46）和一个名为MatNr的Txtbx

我还有一个命令按钮搜索

我做了什么？

当我手动填写文本框“ Ware”并触发搜索按钮时，宏在工作表“ ZTN”中找到值，然后填写Txtbxes MatNr和ZTN 这是我的代码

Dim raFund As Range

Set raFund = Worksheets("ZTN").Columns("C").Find(what:=UserForm1.Ware, LookIn:=xlValues, LookAt:=xlWhole)
    If Not raFund Is Nothing Then                    
           TextBox46 = Worksheets("ZTN").Cells(raFund.Row, "E")
           MatNr = Worksheets("ZTN").Cells(raFund.Row, "B")
              
           If Worksheets("ZTN").Cells(raFund.Row, "E") = Worksheets("ZTN").Cells(raFund.Row, "A").Value = "JA" Then
                MsgBox "T1 RELEVANT!"
           End If
    Else
           If MsgBox("Ware ist nicht vorhanden, soll ein neuer Eintrag angelegt werden?", vbYesNo, "Neuer Eintrag") = vbYes Then
             With Worksheets("ZTN")
                loLetzte = .Columns(2).Find(what:="*", LookIn:=xlValues, LookAt:=xlWhole, searchdirection:=xlPrevious).Offset(1).Row
                .Cells(loLetzte, "A") = Me.MatNr
                .Cells(loLetzte, "B") = Me.Ware
              ' .Cells(loLetzte, "D") = Me.Zolltarifnummer
             End With
           End If
    End If
Set raFund = Nothing

End Sub

我想做什么？我尝试确定找到的ZTN NUmber是否是T1案例，而不是用于其他工作流程。（这就是为什么我在工作表“ ZTN”中有A列，其值分别为“是”或“否”，以表示ZTN号。

现在，我卡住的原因与我输入的内容相等... Msgbox说“ T1相关！”

我也坚持使用这些物品现在，当我尝试寻找盐时，它将找到盐。但我的清单中有不同种类的盐（另一个例子 UCC0.1 / UTN0.2 / BTS0：0; Reinigungs-andÄtzmischungenfürMikroelektronikanwendungen

这表示项目UCC.1表示UTN0.2表示... Reinigungs -...）

最好在Excel自身中找到与搜索功能相似的项目。不考虑大小写

我希望有个好主意

提前皮特

使用“值列”工作表识别“值”文本框

0 个答案: