mir stellt sich folgendes Problem:
In drei Tabellenspalten könnten Inventarnummern vorhanden sein.
Also lasse ich diese drei Spalten nach "Inv" durchsuchen.
Hat mitunter soweit ganz gut geklappt, bis folgender Eintrag vorhanden war:
Maschinen-Inventarnummer: 123
Warum findet er hier das "Inv" nicht?
Auszugsweise der Code:
strFind = "Inv"
Set wsSearch = ThisWorkbook.Sheets(Tbl2)
'Suche in der Mappe in Spalte W (Wert der Zelle muss in diesem Fall komplett ü _
bereinstimmen, wenn das nicht gewünscht ist LookAt:= auf xlPart ändern)
With wsSearch.Range("G:I")
Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Range(c.Address).Select 'Die Zeile in der der zu suchende Wert ist _
markieren
Do
Range(c.Address).Select 'alle Zeilen in denen der zu suchende Wert _
vorkommt markieren
If Range("C" & c.Row) "" Then
'Finde den nächsten passenden Eintrag
Set c = .FindNext(c)
Else
MsgBox "In Zeile " & c.Row & " ist wahrscheinlich eine Inventarnummer zu _
finden" & Chr(10) & _
"Lies dir diesen Eintrag durch:" & Chr(10) & _
c & Chr(10) & _
"Wenn eine Inventarnummer vorhanden ist, dann trage sie unbedingt ein"
Exit Sub
End If
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
was bitte muss ich ändern?
Gruß Oisse