Und falls Du es doch mit Array versuchen möchtest, Lars:
Könntest Du es z.B. so versuchen:
Sub Test2()
Dim vArr As Variant, i As Long
'Bereich in Array schaffen
vArr = Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
For i = 1 To UBound(vArr)
vArr(i, 1) = "@$B$1*" & vArr(i, 1)
Next
'Auf Tabelle ausgeben
Range("C1").Resize(UBound(vArr)) = vArr
'Formeln aktivieren
Columns("C:C").Replace What:="@", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, FormulaVersion:=xlReplaceFormula2
End Sub
Natürlich kann man das auch in einer Schleife ausgeben, das bringt dann aber ggü. der normalen Version ohne Schleife nicht sehr viel.
Da die o.a. Ausgabe des Arrays keine Formeln unterstützt, habe ich zunächst einen Platzhalter eingesetzt und diesen dann ersetzt.
viele Grüße
Karl-Heinz
|