gesetztes Team aus Liste löschen ...
30.11.2011 16:47:00
Matthias
Hallo Walter
Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal ms As Long)
Sub Makro1()
Dim Zufall As Integer, x As Integer, C As Range
Randomize Timer
For x = 1 To 50
Zufall = Int((64 * Rnd) + 1)
Cells(1, 3).Value = Cells(Zufall, 1)
Sleep 50 'mE reicht das schon
Next
MsgBox Cells(Zufall, 1)
Range("G2") = Range("C1")
Range("C1").ClearContents
For Each C In Range("Teams")
If Cells(Zufall, 1).Value = C.Value Then
MsgBox "Zelle: " & Range(C.AddressLocal) & " jetzt löschen"
Cells(Zufall, 1).Delete Shift:=xlUp
Exit For
End If
Next
End Sub
Gruß Matthias
