die folgende funktion fand ich gestern in diesem Forum
Ich bemühe mich, es zu meiner Notwendigkeit zu machen
aber ich bekomme es nicht auf die Weise, die Sie dort sehen, bekommen ich die fehler meldung :
Fehler beim Kompilieren:
Variable nicht definiert
und es ist hier ---------- For I = 2 To 13
was machen ich falsch?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And WorksheetFunction.IsNumber(Target.Value) Then
Range("B" & Target.Row - 1 & ":M" & Target.Row - 1).Copy _
Destination:=Range("B" & Target.Row)
For I = 2 To 13
If Not (Cells(Target.Row, I).HasFormula) Then Cells(Target.Row, I) = ""
Next I
End If
End Sub
für eine Hilfe danke ich ihnen Vorzeitige
Gruß Patricio
PatricioBerlucci@gmx.net