Zählen !
07.07.2003 15:35:40
Ellen
ein ähnliches Problem wie vorhin. Ich blicke nicht ganz, was das Programm macht. Wie kann ich denn das Makro so verändern, dass es die Zähldaten in einer anderen Spalte in Tabelle2 ausgibt, z.B. in Spalte C. Habe mal versucht, an dem Makro rumzuspielen, hatte aber keinen Erfolg.
Außerdem sollte es in Tabelle1 erst bei Zeile 9 anfangen zu zählen, aber das müßte wohl hinhauen, wenn ich iCount = 9 stelle, oder ?
Gruß
Ellen
Sub zaehlen3()
Dim lgRow As Long
Dim lgZiel As Long
Dim wks As Worksheet
Dim iCount As Integer
Set wks = Worksheets("Tabelle2")
lgRow = 1
lgZiel = 1
iCount = 1
Do
If Right(Cells(lgRow + 1, 1), 1) < Right(Cells(lgRow, 1), 1) Then
wks.Cells(lgZiel, 1) = "Einzelsubstrat " & lgZiel
wks.Cells(lgZiel, 2) = iCount
lgZiel = lgZiel + 1
iCount = 1
End If
iCount = iCount + 1
lgRow = lgRow + 1
Loop Until IsEmpty(Cells(lgRow, 1))
End Sub