Array richtig ausgeben.
16.04.2020 16:19:48
bozan
ich habe folgenden Code zum Durchsuchen einer Zelle nach einem Text geschrieben:
Sub przs()
Dim varBegrArr() As Variant
ReDim varBegrArr(1)
varBegrArr(0) = "80-T*"
varBegrArr(1) = "AIPS*"
Dim c As Range
Dim firstAddress As String
With Sheets("Sheet1").Range("F1:F1155")
Set c = .Find(varBegrArr(0), LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(c.Row, 7) = varBegrArr()
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Mit dem aktuellen Code wird nur das Suchwort "80-T*" ausgegeben. Das gesuchte Wort fängt allerdings nur mit "80-T" an und soll dann aber komplett ausgegeben werden. Der Code funktioniert in so fern, dass bei einem Treffer das Suchwort in der Spalte daneben ausgegeben wird, nicht aber der eigentliche Treffer.
Ich hoffe ich konnte das einigermaßen gut erklären. Danke vorab für eure Hilfe!