Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

lfd nummern

lfd nummern
22.05.2003 08:56:37
Philipp
Morgen zusammen,
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



3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: lfd nummern
22.05.2003 09:03:37
Holger Levetzow

versuche mal:

Cells(Target.Row, 1) = Cells(Target.Row-1, 1) + 1

Holger

Re: lfd nummern
22.05.2003 09:45:32
Philip

Hi Holger,
hat leider nicht geklappt.
Kann direkt ein Fehler aus!

Schade

Re: lfd nummern
22.05.2003 09:56:19
ingo

Hallo Phillip,
warum setzt Du nicht einfach eine Formel in die Tabelle :

=wenn($B3="";"";max($a$2:$a2)+1)

Eintragen in a3 und nach unten kopieren

Gruß Ingo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige