euch allen wünsche ich noch erholsame Weihnachtstage.
Das nachfolgende Makro bezieht sich auf die Tabelle1 (Tabelle1) . So kann ich das Makro aber nur aus Tabelle1 starten.
Wie müsste der Code geändert werden, damit ich das Makro auch per Schaltfläche aus einem anderen Tabellenblatt ausführen kann?
Für eure Unterstützung im voraus besten Dank.
mfg Fritz
Hier der Code
Sub Mischen()
Dim arr
Dim x
Dim a As Long, b As Long
With Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
arr = .Value
For a = 1 To UBound(arr)
b = WorksheetFunction.RandBetween(1, UBound(arr, 1))
x = arr(a, 1)
arr(a, 1) = arr(b, 1)
arr(b, 1) = x
Next
.Offset(0, -1).Value = arr
End With
End Sub