Zufällige Auswahl Von Zellen In Einem Bereich Nur, Wenn Es Eine Wert - Excel

So, hier ist der folgende VBA-code, den ich bin derzeit mit. Es funktioniert perfekt, aber ich brauche, um die Auswahl zu erweitern, zu überprüfen, zusätzliche Zellen, aber einige dieser Zellen enthalten können leere Zellen, und ich will nicht auswählen.

Gibt es eine Möglichkeit die zu umgehen, mit den leeren Zellen?

Dim RNG1 As Range
Set RNG1 = Range("H1:H30")

Dim randomCell1 As Long
    randomCell1 = Int(Rnd * RNG1.Cells.Count) + 1

With RNG1.Cells(randomCell1)
.Select
'will do something else here, like copy the cell, fill the cell with a color, etc
End With
InformationsquelleAutor Muhnamana | 2014-04-09
Schreibe einen Kommentar