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

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

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

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

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

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

32 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige