Zufällige Zeile anspringen
17.11.2015 08:27:40
Ingo
Ich habe hier einen Code, der mir ermöglicht, in meiner Excel-Tabelle in eine zufällige Zeile (in Spalte B) zu springen.
Sub Zufall()
With ActiveSheet.UsedRange.Columns(2)
.Cells(WorksheetFunction.RandBetween(1, .Rows.Count), 1).Select
End With
End Sub
Nun ist es allerdings so, dass auch die Zeilen berücksichtigt werden, die keinen Inhalt haben.
Meine Excel-Tabelle ist im Grunde ganz einfach aufgebaut:
* Die Zeilenzahl ist nicht fix, sondern verändert sich immer wieder mal.
* Es gibt keine Leerzeilen zwischendurch.
* Es fängt einfach oben an, dass die Zeilen gefüllt sind und hört dann eben irgendwann auf.
Mag mir jemand von Euch helfen, den Code zu ergänzen.
Und zwar so, dass nur der "obere" Teil der Tabelle berücksichtigt wird, dessen Zeilen eben in Spalte B Werte enthalten?
Gruß
Ingo