Thema Datum  Von Nutzer Rating
Antwort
26.04.2019 13:26:18 Newbie33
NotSolved
Blau Mehrmals nacheinander Zelleninhalte zufällig wählen und addieren
 26.04.2019 17:11:15 Gast85454
NotSolved
27.04.2019 20:43:13 Newbie33
NotSolved

Ansicht des Beitrags:
Von:
Gast85454		 Datum:
26.04.2019 17:11:15		 Views:
435		 Rating:
     
Antwort:
  Ja
Thema:
Mehrmals nacheinander Zelleninhalte zufällig wählen und addieren		 
Sub Test()

   Call MsgBox(addiere(2, 10))

End Sub

Private Function addiere(Spalte, Anzahl) As Variant
Dim x, z, a, ar

   With ActiveSheet.UsedRange.Columns(Spalte)
   'Spaltenzahl im benutzten Bereich
      Do While x < Anzahl
         z = WorksheetFunction.RandBetween(1, .Cells.Count)
         a = .Cells(z).Address(0, 0)
         If InStr(ar, a) = 0 Then
            ar = ar & "," & a
            x = x + 1
         End If
      Loop
   End With
   
   addiere = WorksheetFunction.Sum(Range(Mid(ar, 2)))
   
End Function

 

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
26.04.2019 13:26:18 Newbie33
NotSolved
Blau Mehrmals nacheinander Zelleninhalte zufällig wählen und addieren
 26.04.2019 17:11:15 Gast85454
NotSolved
27.04.2019 20:43:13 Newbie33
NotSolved