Gruppe
Feature
Problem
In Zelle C8 wird über eine Formel die Addition der Werte aus Tabelle Daten gem. Name, Start- und Endmonat ermittelt.
StandardModule: mHWH
Sub Uebertragen()
Dim iCounter As Integer, iRow As Integer
For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
If Rows(iCounter).Hidden = False Then
iRow = iRow + 1
Worksheets("Tabelle2").Cells(iRow, 1).Value = _
Cells(iCounter, 1).Value
End If
Next iCounter
End Sub