Werte unter mehreren Bedingungen ermitteln

[snb]

@Sulpr

Code:

Sub M_snb()
  Randomize
  sn = Sheet2.Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
  sp = [index(row(1970:2018),)]
 
  ReDim sq(UBound(sn) * UBound(sp), 3)
 
  For j = 1 To UBound(sn)
    For jj = 1 To UBound(sp)
      y = UBound(sp) * (j - 1) + jj - 1
      sq(y, 0) = sn(j, 1)
      sq(y, 1) = sp(jj, 1)
      sq(y, 2) = Rnd
    Next
  Next
 
  Sheet6.Cells(1, 6).Resize(UBound(sq) + 1, 3) = sq
  Sheet6.Cells(1, 6).CurrentRegion.Sort Sheet6.Cells(1, 8)
End Sub

[Sulprobil]

@Sulpr

Code:

Sub M_snb()
  Randomize
  sn = Sheet2.Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
  sp = [index(row(1970:2018),)]
 
  ReDim sq(UBound(sn) * UBound(sp), 3)
 
  For j = 1 To UBound(sn)
    For jj = 1 To UBound(sp)
      y = UBound(sp) * (j - 1) + jj - 1
      sq(y, 0) = sn(j, 1)
      sq(y, 1) = sp(jj, 1)
      sq(y, 2) = Rnd
    Next
  Next
 
  Sheet6.Cells(1, 6).Resize(UBound(sq) + 1, 3) = sq
  Sheet6.Cells(1, 6).CurrentRegion.Sort Sheet6.Cells(1, 8)
End Sub

Hallo,

Nett!

Viele Grüße,
Bernd P