Einen kleinen Teil habe ich schon mal versucht zu schreiben:
sub SuchenUndFinden()
Dim finden As Range
Dim treffer As String
Dim Programme()
Dim size As Integer
Set finden = Columns(1).Find(what:="Line*")
If Not finden Is Nothing Then
treffer = finden.Address
MsgBox treffer
Do
ReDim Preserve Programme(1, size)
MsgBox finden.Value
If finden.Value = "" Then
Else
Programme(0, size) = finden.Offset(4, 8).Value
Programme(0, size) = finden.Offset(4, 16).Value
Programme(0, size) = finden.Offset(4, 23).Value
size = siz + 1
End If
Set finden = Columns(1).FindNext(finden)
Loop While Not finden Is Nothing And treffer <> finden.Address
End If
End Sub