Liebes Forum, folgender Code:
Dim loopcounter As Long
Dim myValue() As Long
Modulesc = InputBox("how many modules are there")
c = Range("A2", Range("A2").End(xlDown)).Count
For loopcounter = 1 To Modulesc
ReDim Preserve myValue(1 To loopcounter)
myValue(loopcounter) = WorksheetFunction.Subtotal(101, Range(Cells(2, loopcounter), Cells(c + 1, loopcounter)))
Next loopcounter
Range("G10").Select
For loopcounter = 1 To 4
ActiveCell.Value = myValue(loopcounter)
ActiveCell = ActiveCell.Offset(1, 0).Select
Next loopcounter
End Sub
Alles läuft bis auf ein Detail, wenn alle myvalue(loopcounter) eingefügt sind, habe ich am Ende der G Reihe "Wahr" stehen, wieso??
Gruß Dank, Jens
|