Thema Datum  Von Nutzer Rating
Antwort
13.06.2015 17:58:52 Basil Schüpbach
NotSolved
13.06.2015 22:38:28 Gast12255
NotSolved
Rot Summe aller Möglichkeiten
 14.06.2015 10:06:44 Trägheit
NotSolved

Ansicht des Beitrags:
Von:
Trägheit		 Datum:
14.06.2015 10:06:44		 Views:
874		 Rating:
     
Antwort:
  Ja
Thema:
Summe aller Möglichkeiten		 
Option Explicit

Sub Bsp()
  
  Dim rngNums As Excel.Range
  Dim dblSum As Double
  Dim i As Long
  Dim j As Long
  
  Set rngNums = Worksheets("Tabelle1").Range("A1:A3")
  
  Debug.Print "Summe = " & dblSum
  For i = 1 To rngNums.Cells.Count
    For j = i + 1 To rngNums.Cells.Count
      Debug.Print "Summe := Summe + " & rngNums.Cells(i).Value & " * " & rngNums.Cells(j).Value & " = " & dblSum + rngNums.Cells(i).Value * rngNums.Cells(j).Value
      dblSum = dblSum + rngNums.Cells(i).Value * rngNums.Cells(j).Value
    Next
  Next
  
  Call MsgBox("Summe = " & dblSum, vbInformation)
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.06.2015 17:58:52 Basil Schüpbach
NotSolved
13.06.2015 22:38:28 Gast12255
NotSolved
Rot Summe aller Möglichkeiten
 14.06.2015 10:06:44 Trägheit
NotSolved