Makro mit Find-Funktion und die Rückkehr cell position
Ich versuche zu erkennen, dass eine Funktion mit zwei Eingängen (sheetname, word) und die Rückkehr der Zelle, die Position von "Wort" in (Zeile , Spalte)
Hier ist der code für die Rückgabe der Zeile mit dem Wert
Function RowFinder(sheet1 As String, word1 As String) As Integer
Dim rng As Range
Dim rngFound As Range
' I know that the word is situated btw A and C
Set rng = Sheets(sheet1).Range("A:C")
Set rngFound = rng.Find("word1", LookAt:=xlWhole, SearchOrder:=xlByRows)
If rngFound Is Nothing Then
MsgBox "not found"
Else:
MsgBox "found"
RowFinder = rngFound.row
End If
End Function
Private Sub CommandButton1_Click()
Call RowFinder("Feuil1", "A")
End Sub
Ich nicht zu finden, mit "A" in Feuil1 wie oben im code. jedes mal, wenn ich den code auszuführen, ich habe die msg "nicht gefunden". -Ich bin sicher, dass es -
Danke für die Hilfe!
- versuchen
rng.Find(What:=word1, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
- Ich denke, du meintest
Word1
und nicht"Word1"
? - Ich habe schon aktualisiert, meinen Kommentar, Sie können die Seite aktualisieren, um es zu sehen:)
- Ah ok 🙂
Du musst angemeldet sein, um einen Kommentar abzugeben.
Du erzählst es auf die Suche nach "wort1" (eine Zeichenfolge, die sagt, "wort1") nicht die variable wort1, entfernen Sie die Anführungszeichen. also
rng.Find(wort1, lookat:=xlwhole)
Das problem ist alles, was innerhalb von Anführungszeichen werden als string.
Ändern
zu