lfd nummern
22.05.2003 08:56:37
Philipp
ich möchte gerne das eine laufende nummer (ab A3) eingeziegt wird, wenn z.b in der Spalte B etwas reingeschrieben wird
Folgenden Code hab ich bereits geschrieben:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Cells(Target.Row, 7) = "" Then
Cells(Target.Row, 9) = ""
Else
Cells(Target.Row, 9).Formula = "=G" & Target.Row & "*100/(100+h" & Target.Row & ")" ' netto
Cells(Target.Row, 1) = Range("A3") + 1 ' Lfd Nummer <--- Problem
End If
End If
End Sub
Aber dann wird in A3 1 angezeigt und in A4 2, das ist ja auch richtig, nur die nächsten sind alles 2.
Was hab ich falsch gemacht?
Vielen Dank im Vorraus.
Gruß Philipp
Anzeige