VBA: Array aus Zellbereich mit Name
24.03.2018 09:21:50
Markus
ich verwende aktuell folgenden Code in VBA, der soweit auch funktioniert.
Kann mir jemand sagen, wie ich hier das Array mit den Werten eines Zellbereichs mit Name (benannter Zellbereich) befüllen kann anstatt diese manuell im Code zu erfassen ?
Zellbereich, der für das Array verwendet werden soll:
Worksheets(2).Range("Keywords") 'entspricht den Werten in Spalte A, ohne Überschrift
Mein Code:
Sub checkTxt()
Dim i As Long, j As Long, arrKeywords() As Variant, varLastRow As Long
arrKeywords = Array("text1", "text2", "text3")
With Worksheets(1)
varLastRow = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To varLastRow
With .Range("A" & i)
For j = LBound(arrKeywords) To UBound(arrKeywords)
If .Value Like "*" & arrKeywords(j) & "*" Then
.Offset(0, 1).Value = True
Exit For
End If
Next j
End With
Next i
End With
End Sub
Vielen Dank im Voraus für Eure Hilfe, Markus