Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Modul auf Tabelle2 zugreifen

Modul auf Tabelle2 zugreifen
08.05.2016 22:10:57
Markus
Liebes Forum,
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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Modul auf Tabelle2 zugreifen
08.05.2016 23:14:22
Werner
Hallo Markus,
wichtig sind die Punkte vor dem Range (.Range)
Public Sub Mischen()
With Sheets("Tabelle2")
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 With
End Sub
Gruß Werner

Anzeige
AW: Modul auf Tabelle2 zugreifen
08.05.2016 23:35:07
Markus
Danke Werner, funktioniert einwandfrei :)

AW: Gerne u. Danke für die Rückmeldung. o.w.T.
08.05.2016 23:40:50
Werner

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige