Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
268to272
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatische Nummerierung VBA

Automatische Nummerierung VBA
18.06.2003 16:03:42
Simone, 27
Hallo,

ich hoffe Ihr könnt mir helfen.

ab Spalte A 5 soll in einer Excel Liste immer automatisch aufsteigend nummeriert werden.(1,2,3 usw.) Es soll aber nur da nummeriert werden wo in Spalte B ein Eintrag ist. Das ganze muss über VBA gelöst werden, da Einträge einkopiert werden und somit die Formeln im Blatt verloren gehen könnten(überschrieben werden könnten).
Wird also beispielsweise in Spalte B 17 ein Wert einkopiert, so soll geprüft werden ob ab A5 eine Nummerierung bis A 17 vorhanden ist, wenn nicht soll sofort eine Nummerierung von A5 bis A 17 erfolgen.

Vielen Dank für Eure Hilfe,

Gruß

Simone

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Automatische Nummerierung VBA
18.06.2003 16:20:26
L.Vira

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long
If Target.Column = 2 and Target.row > 4 Then
For N = 5 To [b65536].End(xlUp).Row
If Cells(N, 2) <> "" Then
Cells(N, 1) = N - 4
End If
Next
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige