Teilstring in Array
04.04.2017 09:54:47
Markus
hab schon wieder massig Probleme mit meiner Tabelle.
Ich suche einen Teilstring in Spalte D und möchte bei jeden Treffer in das Sheets ber kopieren. _ Bisher habe ich:
Sub suchen()
Dim dic
Dim arr
Dim ID As String
Dim z As Long
Dim suchtext As String
suchtext = "Fische"
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("Quelle")
arr = .Range("D2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
For z = 1 To UBound(arr, 1)
ID = Join(Array(arr(z, 1)))
dic(ID) = dic(ID) + 1
Next
End Sub
Damit schreibe ich die Spalte d in den Speicher. Wie schaffe ich es nun, das in der Spalte D Der Teilstring 'suchtext' gefunden wird und die gesamte Spalte kopiert wird?
Danke
Markus