VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Gemäss Gültigkeits-Listenauswahl Beträge addieren

Gruppe

Feature

Bereich

Gültigkeit

Thema

Gemäss Gültigkeits-Listenauswahl Beträge addieren

Problem

In Zelle C8 wird über eine Formel die Addition der Werte aus Tabelle Daten gem. Name, Start- und Endmonat ermittelt.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit