Scripterklärung nötig

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Scripterklärung nötig
von: Markus
Geschrieben am: 04.10.2003 22:13:36

moin!
jemand ausm forum hat mir den folgenden script gegeben:

Option Explicit




Sub Mischen()
Dim i As Byte, ii As Byte
On Error GoTo ErrorHandler:
Calculate
Application.Calculation = xlCalculationManual
For i = 1 To 3
    For ii = 1 To 5
        If Application.WorksheetFunction.Rank(Cells(ii, 5), Range("E1:E5")) = i Then
            Cells(i, 2) = Cells(ii, 1)
            Exit For
        End If
    Next ii
Next i
Range("C1") = Range("C1") + 1
Application.Calculation = xlCalculationAutomatic
ThisWorkbook.Save
Exit Sub
ErrorHandler:
MsgBox ("Fehler: Vermutlich sind nicht genügend Teilnehmer (min. 3) eingetragen.")
Application.Calculation = xlCalculationAutomatic
End Sub



____________________________________
jetzt meine frage, wie muß ich das umschreiben wenn aus den zellen B3:B7 drei leute in D3:D5 geschrieben werden sollen?

ich dachte ungefähr so:

Option Explicit




Sub Mischen()
Dim i As Byte, ii As Byte
On Error GoTo ErrorHandler:
Calculate
Application.Calculation = xlCalculationManual
For i = 3 To 5
    For ii = 3 To 7
        If Application.WorksheetFunction.Rank(Cells(ii, 5), Range("E1:E5")) = i Then
            Cells(i, 2) = Cells(ii, 1) //hier is der knackpunkt.. denk ich
            Exit For
        End If
    Next ii
Next i
Range("C1") = Range("C1") + 1
Application.Calculation = xlCalculationAutomatic
ThisWorkbook.Save
Exit Sub
ErrorHandler:
MsgBox ("Fehler: Vermutlich sind nicht genügend Teilnehmer (min. 3) eingetragen.")
Application.Calculation = xlCalculationAutomatic
End Sub



so gehts aber nicht.. thx 4 help
Bild


Betrifft: AW: Scripterklärung nötig
von: PeterW
Geschrieben am: 04.10.2003 22:53:20

Hallo Markus,

warum bleibst du nicht im ursprünglichen Thread?
https://www.herber.de/forum/messages/318484.html
Chris hat sich in das Problem eingedacht und kann dir, ohne sich in das Problem neu eindenken zu müssen, eine Lösung posten.

Gruß
Peter
PS: die Aussage "jemand ausm forum" ist zumindest für mich eine Missachtung der Hilfe der vielen Antworter, zumindest an den Namen hättest du dich erinnern dürfen


 Bild

Beiträge aus den Excel-Beispielen zum Thema " ÜBERPRÜFEN IN MSGBOX"