Nummerieren mit VBA
21.01.2011 13:41:46
Erich
Hi Kurt,
mit VBA würde ich das wohl so machen:
Sub NummernAzuE()
Dim arrA, arrE(), lngE As Long, lngN As Long, zz As Long
lngE = Cells(Rows.Count, 5).End(xlUp).Row - 3
If lngE > 0 Then
arrA = Cells(4, 5).Resize(lngE)
ReDim arrE(1 To lngE)
For zz = 1 To UBound(arrA)
If Application.IsNumber(arrA(zz, 1)) Then
lngN = lngN + 1
arrE(zz) = lngN
End If
Next zz
Cells(4, 1).Resize(lngE) = Application.Transpose(arrE)
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort