Ich hab immer 60 Spalten, davon sollen immer 30 zufällig ausgewählt und markiert werden. Der u. a. vba Code macht dies in etwa. Allerdings, wenn ich bestimmte Konstellationen in den 60 Spalten habe, macht er immer dasselbe. Und er wählt auch nicht immer genau 30 Spalten aus, manchmal auch weniger. Wenn in a1=1 steht, dann funktioniert der Code gar nicht.
Wäre super, wenn jemand eine Idee hat, wie ich korrekt immer 30 Spalten zufällig auswählen kann.
LG udo
Sub dreissig()
Dim L As Long
Dim Z As Integer
Dim bereich As Range
If [b1] > 1 Then
Z = 1
Set bereich = Columns(1)
For L = 2 To 60
If Z = 30 Then Exit For
If Cells(L, 2) > 20 Then
Set bereich = Union(bereich, Columns(L)) 'cells(L,2)=BL,also B2
Z = Z + 1
End If
Next
End If
bereich.Select
MsgBox Z
Set bereich = Nothing
End Sub