Modul auf Tabelle2 zugreifen
08.05.2016 22:10:57
Markus
wie muss ich den folgenden Code ergänzen (Modul2), wenn das allgemeine Modul die Daten in Tabelle 2 sortieren soll, jedoch über die Tabelle1 aufgerufen wird.
Dachte an sowas wie:
Dim wks As Worksheet
Set wks = Sheets ("Tabelle2")
bekomme es leider nicht hin ...
Public Sub Mischen()
Const strrange As String = "A1:B10"
Dim intindex As Integer, intrnd As Integer
Dim strtemp1 As String, strtemp2 As String
Dim vararray As Variant
vararray = Range(strrange)
For intindex = UBound(vararray) To 1 Step -1
Randomize Timer
intrnd = Int((intindex * Rnd) + 1)
strtemp1 = vararray(intrnd, 1)
strtemp2 = vararray(intrnd, 2)
vararray(intrnd, 1) = vararray(intindex, 1)
vararray(intrnd, 2) = vararray(intindex, 2)
vararray(intindex, 1) = strtemp1
vararray(intindex, 2) = strtemp2
Next
Range(strrange) = vararray
End Sub
Möchte als in Tabelle1 über eine Schaltfläche (Call Mischen) das Makro auslösen.
Besten Dank euch.
Anzeige