Thema: Werte in Abhängigkeit zugeordneter Indizes multiplizieren

Home

Gruppe

Funktion

Problem

Jedem Buchstaben in Spalte A ist ein Wert zugeordnet. Die Zuordnung befindet sich in Tabelle2. Entsprechend dieser Zuordnung sollen die jeweiligen Werte mit 3,14 multipliziert und in Spalte B eingetragen werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.

ClassModule: Tabelle1

Private Sub CheckBox1_Click()
   Call GetSum
End Sub

Private Sub CheckBox2_Click()
   Call GetSum
End Sub

Private Sub CheckBox3_Click()
   Call GetSum
End Sub

Private Sub CheckBox4_Click()
   Call GetSum
End Sub

Private Sub CheckBox5_Click()
   Call GetSum
End Sub

Sub GetSum()
   Dim chb As OLEObject
   Dim dSum As Double
   Dim iChb As Integer
   For iChb = 1 To 5
      Set chb = OLEObjects(iChb)
      If chb.Object.Value = True Then
         dSum = dSum + chb.TopLeftCell.Offset(0, -1).Value
      End If
   Next iChb
   Range("B7").Value = dSum
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS

Copy funktioniert nur einmal	Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei	Match Funktion spinnt (?)
SVerweis funktioniert nicht	PasteSpecial funktioniert nicht.
SVERWEIS Formel Ergänzen	sverweis mit mehreren Lösungen
SVERWEIS mit wahr via Zeit hh:mm bzw. hh:mm:ss	VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion	SVERWEIS aber wie?
sverweis klappt nicht ( bei runter kopieren)	kann das mit SVerweis gelöst werden ?
SVERWEIS mit Zählenwenn	Zelladressen von FunktionsParametern ermitteln
Sverweis gibt falschen Wert wieder	Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis	doppelten sverweis nach #nv
Makro funktioniert nach Beenden von Excel nicht	VLOOKUP auf Links funktioniert offline
Formatgleichheit von Zeichenfolgen für SVERWEIS	@DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen	Polynomfunktion
Mit vba Funktionen in Excel Zellen	sverweis oder doch andere lösung
sverweis nach links möglich?	Rang-Funktion für Strings?
Skript funktioniert nur auf einer seite?!?!	Hyperlink auf Excel-Datei funktioniert nicht
sverweis auf combobox	indirekt(verketten.. + sverweis oder alternative
Public Funktion / Variabel	VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion	Userform mit Löschfunktion
Frage zu Wenn Dann Funktion	Wenn-Funktion
SVERWEIS per VBA?	Frage zur Funktion DISAGIO
SVERWEIS ?	Funktion um Chart zu kreieren
Zell-Name in Sverweis möglich?	SVerweis Ergebnis #NV
Wenn-Funktion verschachtelt	VBA Suchfunktion erweitern
Code für Sverweis	Makro funktioniert nicht richtig