Makro wiederholen
02.05.2018 14:48:41
Jürgen
ich bin neu hier und erstelle gerade für meinen Skatclub eine neue Excelliste zum vorbereiten und auswerten der Spieltage.
Die Tischverteilung habe ich über die Funktion Zufallszahl gelöst. Jetzt gibt es aber das Problem, dass einzelne nicht zusammen an einem Tisch sitzen möchten. Dies hat verschiedenste Gründe und muss hier sicher nicht erörtert werden.
Ich habe das so gelöst, wenn in der Zelle H2 der Wert "3" erscheint, dann ist die Tischverteilung in Ordnung.
Das Makro für die Auslosung habe ich aufgezeichnet und ist wie folgt.
Sub mischen()
' mischen Makro
Range("H5:I5").Select
Application.CutCopyMode = False
Selection.Copy
Range("H6:I55").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("H6:H55").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6:AA55").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Tagesprotokoll aktuell").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tagesprotokoll aktuell").Sort.SortFields.Add Key:= _
Range("H6:H55"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tagesprotokoll aktuell").Sort
.SetRange Range("D6:AA55")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("I6:I55").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R6").Select
Application.CutCopyMode = False
Selection.Copy
Range("R7:R55").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Dieses Makro soll jetzt so oft laufen, bis in der Zelle H2 der Wert "3" erscheint. Alle anderen möglichen Werte sind größer 3.
Wäre toll, wenn mir jemand hier helfen könnte.
Schon jetzt vielen Dank dafür, auch im Namen der Skatfreunde 09 aus Berlin/Steglitz.
Gruß
Jürgen Reinecke