Herbers Excel-Forum - das Archiv

Nummerrierung

Bild

Betrifft: Nummerrierung
von: Michael
Geschrieben am: 14.12.2003 17:35:30
Hallo,
bekanntlich kann man ja mit folgenden Script Datensätze nummerieren.
Das heisst in Spalte A wird eine fortlaufende Nummer gesetzt wenn in Spalte B ein Wert eingegeben wird. Folgendes Script Nummeriert:
1
2
3
usw.
Ich benötige aber
1.1
1.2
1.3
kann mir jemand weiterhelfen. Eigene Versuche sind fehlgeschlagen.

Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)
Dim varFeld1 As Variant, varFeld2 As Variant, lngIndex As Long, lngCount As Long
If Target.Column < 3 Then
ReDim varFeld1(1 To Cells(65536, 2).End(xlUp).Row, 1 To 1)
ReDim varFeld2(1 To Cells(65536, 2).End(xlUp).Row, 1 To 1)
varFeld2 = Range(Cells(3, 2), Cells(Cells(65536, 2).End(xlUp).Row, 2))
For lngIndex = 1 To UBound(varFeld2)
If varFeld2(lngIndex, 1) <> "" Then
lngCount = lngCount + 1
varFeld1(lngIndex, 1) = lngCount
End If
Next
Application.EnableEvents = False
Range(Cells(3, 1), Cells(Cells(65536, 2).End(xlUp).Row, 1)) = varFeld1
Application.EnableEvents = True
End If
End Sub



Gruß
Michael
Bild

Betrifft: AW: Nummerrierung
von: Ulf
Geschrieben am: 14.12.2003 17:53:24
varFeld1(lngIndex, 1) = "'1." & lngCount
Bild

Betrifft: AW: Nummerrierung
von: Michael
Geschrieben am: 14.12.2003 18:10:11
Super. Danke !
Bild

Betrifft: AW: Nummerrierung
von: Gert Seler
Geschrieben am: 14.12.2003 19:02:41
Hallo Michael,
die einfachste Art der Formatierung wäre : Format --->Benutzerdefiniert
##"."00
mfg
Gert
Bild