Thema Datum  Von Nutzer Rating
Antwort
16.10.2015 22:18:46 Gast34362
NotSolved
17.10.2015 14:53:15 Holger
NotSolved
Rot Zufallswert anzeigen lassen mit Bedingung
17.10.2015 18:13:56 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
17.10.2015 18:13:56		 Views:
598		 Rating:
     
Antwort:
  Ja
Thema:
Zufallswert anzeigen lassen mit Bedingung

Hallo,

die Funktion "RandomValue" liest unter den gewünschten Bedingungen zufällig ein Wort heraus:

Function RandomValue(Database As Range)
    Dim rngDatabase As Range
    Dim rngRow As Range
    Dim iRow As Integer, iArea As Integer
    ' nur Einträge berücksichtigen, die mit 0 (Spalte 2) markiert sind
    For Each rngRow In Database.Rows
        If Intersect(rngRow, Database.Worksheet.UsedRange) Is Nothing Then
        'If rngRow.Cells(1, 2).Value = "" Then
            Exit For
        End If
        If Val(rngRow.Cells(1, 2).Value) = 0 Then
            If rngDatabase Is Nothing Then
                Set rngDatabase = rngRow
            Else
                Set rngDatabase = Union(rngDatabase, rngRow)
            End If
        End If
    Next
    If Not rngDatabase Is Nothing Then
        iArea = (Rnd(1) * (rngDatabase.Areas.Count - 1)) + 1
        iRow = (Rnd(1) * (rngDatabase.Areas(iArea).Rows.Count - 1)) + 1
        RandomValue = rngDatabase.Areas(iArea).Cells(iRow, 1)
    End If
End Function

Die Funktion kann sowohl innerhalb von VBA wie auch direkt in einer Tabellenzelle aufgerufen werden.

VG, BigBen

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
16.10.2015 22:18:46 Gast34362
NotSolved
17.10.2015 14:53:15 Holger
NotSolved
Rot Zufallswert anzeigen lassen mit Bedingung
17.10.2015 18:13:56 BigBen
NotSolved