Thema Datum  Von Nutzer Rating
Antwort
Rot Zufällige Auswahl bestimmter Daten
21.02.2023 09:52:51 Christoph
Solved
21.02.2023 22:11:00 xlKing
NotSolved
22.02.2023 08:29:26 Christoph
NotSolved

Ansicht des Beitrags:
Von:
Christoph
Datum:
21.02.2023 09:52:51
Views:
1076
Rating: Antwort:
 Nein
Thema:
Zufällige Auswahl bestimmter Daten

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zufällige Auswahl bestimmter Daten
21.02.2023 09:52:51 Christoph
Solved
21.02.2023 22:11:00 xlKing
NotSolved
22.02.2023 08:29:26 Christoph
NotSolved