Wie muß ich folgendes Makro umändern, damit es auch Namen (Buchstaben) hochzählt. (Zur Zeit zählt es nur bei Zahlen hoch)
Sub aufzählen()
Dim intCounter As Variant, LetzteZelle As Variant, Anfang As Variant
LetzteZelle = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Anfang = 2 'Alternativ Anfang = ActiveCell.Row
For intCounter = Anfang To LetzteZelle
If IsNumeric(Cells(intCounter - 1, 1)) Then
If Cells(intCounter, 1) <> Cells(intCounter - 1, 1) Then
Cells(intCounter, 1).Offset(0, 1) = _
Cells(intCounter, 1).Offset(-1, 1) + 1
Else
Cells(intCounter, 1).Offset(0, 1) = _
Cells(intCounter, 1).Offset(-1, 1)
End If
Else
Cells(intCounter, 1).Offset(0, 1) = 1
End If
Next intCounter
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Vielen Dank für eure Hilfe!
Tschüß
Rolf