Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Automatische Nummerierung in Spalte A

Forumthread: Automatische Nummerierung in Spalte A

Automatische Nummerierung in Spalte A
06.07.2003 11:42:58
Sigi
Hallo,
ich möchte eine automatische Nummerierung der Spalte A. Die Nummerierung soll so lange durchgeführt werden, wie in der Spalte B Einträge vorhanden sind.
Ich benötige diese Nummerierung, da ich eine .txt-Tabelle einfüge, die jedes mal verschieden viele Zeilen hat. Die Nummerierung soll bei der letzten Zeile enden.
Kann mir jemand bei dem hierfür erforderlichen Code helfen?
Grüsse und Danke
Sigi
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Nummerierung in Spalte A
06.07.2003 12:00:02
ivan
hi Sigi
ich habe da was ausgegraben für dich.
du mußt die spalten anpassen.
'füllt automatisch tabelle1 mit zahlen

Sub zahlen()
Application.ScreenUpdating = False
On Error Resume Next
If Err.Number <> 0 Then
End If
Sheets("Tabelle1").Activate
lz = Range("D1").CurrentRegion.Rows.Count
Range("D1") = 1
Range("D2").FormulaR1C1 = "2"
Range("D1:D2").AutoFill Destination:=Range("D1:D" & lz), Type:=xlFillDefault
Application.ScreenUpdating = True
End Sub

hoffe es hilft
ivan

Anzeige
AW: Automatische Nummerierung in Spalte A
06.07.2003 11:53:40
PeterW
Hallo Sigi,
als Code sieht das so aus:
Option Explicit

Sub Nummern()
Dim lgCount As Long
For lgCount = 1 To Range("B65536").End(xlUp).Row
Cells(lgCount, 1) = lgCount
Next
End Sub

Gruß
Peter

DANKE
06.07.2003 12:27:57
Sigi
Hallo Ihr,
vielen Dank für die schnelle Hilfe. Hat super geklappt.
Grüsse
Sigi

Anzeige
DANKE
06.07.2003 12:27:53
Sigi
Hallo Ihr,
vielen Dank für die schnelle Hilfe. Hat super geklappt.
Grüsse
Sigi

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige