Hallo zusammen,
komme leider nicht mehr weiter. Möchte gerne in eine Zelle eine Formel eintragen. Das funktioniert auch soweit, aber die ganze Spalte wird automatisch mit dieser Formel gefüllt.
Verwende folgenden Code
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If InStr(Target, "1") > 0 Then
.Cells(Target.Row, 2).Formula = "=MID([@Scan],18,16)"
End If
End With
End Sub
Außerdem bekomme ich einen Laufzeitfehler 1004, kann zwar beenden und es funktioniert. Der Fehler nervt aber.
Hoffe ihr habt eine Idee.
|