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

Automatische durchnummerierung einer Spalte

Automatische durchnummerierung einer Spalte
11.03.2003 20:21:14
Slim
Hi,
kann man durch einen Knopfdruck die erste Spalte einer Tabelle durchnummerieren (abgesehen von der 1 Zeile wegen der Überschrift) ?

Danke für die Hilfe

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

Betreff
Datum
Anwender
Anzeige
Re: Automatische durchnummerierung einer Spalte
11.03.2003 20:41:20
ChrisL

Hallo Slim

Ein kleines Makro für dich...

Option Explicit

Sub Durchnummerieren()
Dim i As Long
For i = 2 To 65536
Cells(i, 1) = i - 1
Next i
End Sub

Gruss
Chris

Re: Automatische durchnummerierung einer Spalte
11.03.2003 20:42:53
Detlef Lange

versuchs mal hiermit:
Sub Zeilenum()
Dim anzz As String
Dim schl As Integer

anzz = InputBox("Wieviele Zeilen", "Frage", , 3400, 3400)
If anzz = Cancel Then Exit Sub
For schl = 2 To anzz + 1
Cells(schl, 1).Activate
ActiveCell.FormulaR1C1 = "=IF(RC[1]<>"""",ROW()-1,"""")"
Next schl
Cells(1, 1).Activate
End Sub

gruß Det

Anzeige
Jungs Ihr seid die besten !!!
11.03.2003 20:47:37
Slim

Danke nochmal !

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige