Nummerrierung
14.12.2003 17:35:30
Michael
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