VBA - Find Methode
26.08.2022 13:41:33
Herbert
vorhin hat es noch funktioniert, nachdem ich dann die Werte für die nachfolgenden Textboxen bestimmt habe,
habe ich nur noch die Fehlermeldung With-/ Objektvariable nicht festgelegt... .
Vorab:
Die Anzeige der Ergebnisse basiert auf eine Userform,
die Nummer (txtbx_Nummer) ist auch die einzige benutzbare Textbox in der ganzen Userform.
Code:
Dim a As Range, c As Integer
Set a = Worksheets("Datenbank").Range("tbl_Lieferschein[1-1,3 to.]:tbl_Lieferschein[32 to.]").Find(txtbx_Nummer, LookIn:=xlValues)
On Error GoTo Sprungmarke1:
c = a.Column
If Worksheets("Datenbank").Cells(a.Row, 17).Value "" And Worksheets("Datenbank").Cells(a.Row, 18).Value = "Ja" Then
txtbx_Standort.Value = "Bei KLEIHUES im Werk!"
ElseIf Worksheets("Datenbank").Cells(a.Row, 17).Value "" And Worksheets("Datenbank").Cells(a.Row, 18).Value = "Ja" And Worksheets("Datenbank").Cells(a.Row, 19).Value = "Ja" Then
txtbx_Standort.Value = "Auf Baustelle verblieben!"
Else
txtbx_Standort.Value = "Bei uns in benutzung!"
End If
txtbx_Laststufe.Value = Worksheets("Datenbank").Cells(1, c).Value
txtbx_Lieferschein_Nummer.Value = Worksheets("Datenbank").Cells(a.Row, 1).Value
Exit Sub
Sprungmarke1:
MsgBox "Das von Ihnen gesuchte DEHA-Gehänge" & _
vbCrLf & "ist nicht in der Matrix zu finden," & _
vbCrLf & "bitte überprüfe einmal Manuel!" & _
vbCrLf & _
vbCrLf & "Um direkt auf das Tabellenblatt zukommen," & _
vbCrLf & "Den Button -> WEITER !"
End Sub
weil a nicht der Wert ist der er sein soll,
wobei dieser zu Anfang noch genau das getan hat,
was er sollte und a immer richtig ermittelt wurde.
Um a zu ermitteln wird dieser Code benutzt:
Set a = Worksheets("Datenbank").Range("tbl_Lieferschein[1-1,3 to.]:tbl_Lieferschein[32 to.]").Find(txtbx_Nummer, LookIn:=xlValues)
Danke für jedem seine Hilfe!
MfG
Herbert