vba worksheetfunction match fehler
21.12.2020 21:07:55
DOMINIK
ich habe ein Problem mit einer Worksheetfunction Formel. Diese funktioniert warum auch immer in der beigefühte Datei nicht. Öffne ich eine neue Arbeitsmappe und füge dort die exakt gleiche Formel ein funktioniert sie. Kann mir vllt jemand von euch helfen, ich verstehe wirklich nicht warum die Formel in einer neuen Arbeitsmappe funktioniert und in der angehängten nicht. Es soll folgendes ausgeführt werden. Eine Zahl in Userform1.Texbot17 soll in Tabelle Kunden Spalte A:A gefunden werden, dann soll er in dieser Zeile nach dem Vertreter suchen in Spalte 15 und diesen vergleichen den Überschriften. Und bei der gefunden Überschrift den Text aus Userform7.Texbox1 hineinschreiben.
Private Sub CommandButton1_Click()
Dim rng As Range
Dim lngZeile As Long
Dim arr As Variant
letztespalte = Cells(1, Columns.Count).End(xlToLeft).Column
'Spalte A na1ch Wert durchsuchen
Set rng = Sheets("Kunden").Range("a:a").Find(what:=UserForm1.TextBox17.Value, lookat:=xlWhole, _
LookIn:=xlValues)
'Wenn Wert gefunden
If Not rng Is Nothing Then
lngZeile = rng.Row
Sheets("Kunden").Cells(lngZeile, WorksheetFunction.Match(Sheets("Kunden").Cells(lngZeile, 15). _
Value, Sheets("Kunden").Range(Sheets("Kunden").Cells(1, 1), Sheets("Kunden").Cells(1, letztespalte)), 0)) = UserForm7.TextBox1
End If
End Sub
Gruß Dominik