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

Nummerierung

Nummerierung
07.06.2006 13:08:21
Phil
Hallo Leute,
versuche gerade ein Makro zu erstellen, dass die Spalte A durchnummeriert, solange in Spalte B noch befüllt ist. Habe es mit "Autofill" versucht, hat aber irgendwie nicht geklappt. Wer kann mir helfen? Danke im Voraus!
Gruss,
Philip

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

Betreff
Datum
Anwender
Anzeige
AW: Nummerierung
07.06.2006 13:15:03
UweD
Hallo
so?

Sub tt()
On Error GoTo Fehler
Dim SP%, LR&, TB1, i&, St&
St = 10 'Startnummer
Set TB1 = Sheets("Tabelle1")
SP = 2 'Spalte B
LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = 1 To LR
TB1.Cells(i, SP - 1) = St + i
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Nummerierung
07.06.2006 13:52:44
Phil
Hallo Uwe,
Danke, hat sehr gut geklappt!
Gruss,
Philip
AW: Nummerierung
07.06.2006 13:27:04
Ramses
Hallo
Warum mit VBA ?
Tabelle3
 ABC
1NummerWert 
21Muster 
32Meier 
4   
5   
6   
Formeln der Tabelle
A3 : =WENN(B3="";"";A2+1)
A4 : =WENN(B4="";"";A3+1)
A5 : =WENN(B5="";"";A4+1)
 

oder wenn es unbedingt VBA sein muss (quick and dirty9
Option Explicit

Sub newNumber()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(i, 1) = i - 1
Next i
End Sub

Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige