AW: Sorry, kannst Du dein Script posten ?
02.06.2017 10:44:59
Stephan
Public Sub Main()
Dim varOut() As Variant
Dim objRegEx As Object
Dim lngSpalte As Long
Dim objRegA As Object
Dim varArr As Variant
Dim lngUArr As Long
Dim lngTMP As Long
On Error GoTo Fin
With Tabelle1
varArr = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Set objRegEx = CreateObject("VBScript.Regexp")
With objRegEx
.Pattern = "(VB-\d{2})(?!.*?\1.*$)"
.Global = True
For lngUArr = 1 To UBound(varArr)
Set objRegA = .Execute(varArr(lngUArr, 1))
If objRegA.Count >= lngSpalte Then
lngSpalte = objRegA.Count
End If
Set objRegA = Nothing
Next lngUArr
If lngSpalte = 0 Then Exit Sub
ReDim varOut(1 To UBound(varArr), 1 To lngSpalte)
For lngUArr = 1 To UBound(varArr)
Set objRegA = .Execute(varArr(lngUArr, 1))
For lngTMP = 1 To objRegA.Count
varOut(lngUArr, lngTMP) = objRegA(lngTMP - 1)
Next lngTMP
Set objRegA = Nothing
Next lngUArr
End With
.Cells(2, 2).Resize(UBound(varOut), UBound(varOut, 2)) = varOut
End With
Fin:
Set objRegA = Nothing
Set objRegEx = Nothing
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub