Guten Morgen allerseits.
Ich bräuchte bei einem Problem etwas Hilfe.
Ich will einen Wert in Tabellenblatt 3 als Ausgangswert nehmen und damit in Tabellenblatt 1 nach einer Übereinstimmmung in einer Spalte suchen.
Nach einer übereinstimmmung möchte ich 2 zufällige zellen in einer anderen Spalte auswälen die diese Übereinstimmung in der selben Zeile haben.
Diese 2 zufälligen Zellen möchte ich dann ausgeben lassen.
Bisher habe ich mir das hier gebastelt. Leider funktioniert es noch nicht.
Vielleicht habt ihr ja Vorschläge oder eine ganz andere Idee.
Sub SelectRandomValues()
Dim factorColumn As Range
Dim dataColumn As Range
Dim selectedValues(1) As String
Dim factorValue As String
Dim dataValues As Variant
Dim i As Long, j As Long
'Set the range for the factor column and data column
Worksheets("Tabelle1").Activate
Set factorColumn = Worksheets("Tabelle1").Range("B2:B10")
Set dataColumn = Worksheets("Tabelle1").Range("A2:A10")
'Get the selected factor value
factorValue = Worksheets("Tabelle3").Range("A7").Value
'Filter the data column based on the selected factor value
dataColumn.AutoFilter Field:=1, Criteria1:=factorValue
'Copy the filtered data column to a variant array
dataValues = Worksheets("Tabelle1").Range("E2:E10").SpecialCells(xlCellTypeVisible)
'Select two random values from the data column
For i = 0 To 1
j = Int((UBound(dataValues) - 1 + 1) * Rnd + 1)
selectedValues(i) = dataValues(j, 1)
Next i
'Clear the filter
dataColumn.AutoFilter
'Display the selected values
Worksheets("Tabelle3").Activate
Worksheets("Tabelle3").Range("A13").Value = selectedValues(0)
Worksheets("Tabelle3").Range("A14").Value = selectedValues(1)
End Sub
|