VBA-Beispiel 109
mail schreiben
mail schreiben

Spalte nach einem Begriff durchsuchen der mehr als 255 Zeichen hat
Sie wollen wissen wie oft eine bestimmte URL in Spalte F vorkommt.

Problem:
mit CountIf darf der Suchbegriff maximal 255 Zeichen lang sein.
Manche URL's haben aber deutlich mehr als 255 Zeichen.

Verwenden Sie nicht CountIf sondern schreiben Sie den Inhalt von Spalte F in ein Array und durchsuchen Sie das Array.
Sub SpalteDurchsuchenArray()
Dim strSB As String
Dim arrSuchen
Dim i As Long, lngTreffer As Long, lngLZ As Long

strSB = Cells(2, 2)  'Suchbegriff in B2

'----------------------------------------------
'----------------------------------------------
'Array füllen
'----------------------------------------------
'
'ganze Spalte F ins Array
'
'arrSuchen = Columns(6)
'----------------------------------------------
'
'ab Zeile 4 bis letzte Zelle mit Inhalt
'
'letzte Zelle mit Inhalt ermitteln
lngLZ = Cells(Rows.Count, 6).End(xlUp).Row
arrSuchen = Range(Cells(4, 6), Cells(lngLZ, 6))
'----------------------------------------------
'MsgBox UBound(arrSuchen) & " Datenfelder", , ""
'----------------------------------------------
'----------------------------------------------

'Array durchlaufen und URL suchen-zählen
For i = 1 To UBound(arrSuchen)
 'genaue Übereinstimmung
 'If arrSuchen(i, 1) = strSB Then lngTreffer = lngTreffer + 1

 'Zelle enthält Suchbegriff
  If InStr(1, arrSuchen(i, 1), strSB) Then lngTreffer = lngTreffer + 1
Next

Erase arrSuchen

MsgBox lngTreffer & " Treffer", , strSB

End Sub
Download:   vba109.zip
relevante Links:

top