Zufall mit Bedingung
04.11.2021 14:28:56
Ingo
Ich habe hier den Code für ein Markro. Das Makro wählt mir aus meiner Excel Tabelle zufällig eine Zeile aus. Eine Bedingung ist, dass in der Zelle der Spalte 19 ein Wert enthalten ist. Es sollen also nur eine Zeile per Zufall ausgewählt werden, in dessen Spalte 19 sich ein Wert befindet.
Nun würde ich gerne noch eine weitere Bedingung per UND hinzufügen. Und zwar soll sich in Spalte 27 kein Wert befinden.
Wenn ich das Marko auslöse soll mir also per Zufalle eine Zeile "ausgesucht" werden, die
* in Spalte 19 einen Wert hat
UND
* in Spalte 27 keinen Wert hat
Da ich das leider selber nicht lösen kann, weil ich dafür von VBA zu wenig verstehe, wollte ich Euch um Hilfe bitten.
Gruß
Ingo
Sub Zufall()
Dim ar As Long
Dim c As Long
With ActiveSheet.Columns(19).SpecialCells(xlCellTypeConstants)
ar = WorksheetFunction.RandBetween(1, .Areas.Count)
c = WorksheetFunction.RandBetween(1, .Areas(ar).Cells.Count)
.Areas(ar).Cells(c).Select
End With
End Sub