|
Hallo
ich habe ein Frage, vielleicht eine Dumme.
Ich habe eine Multipage mit 8 Pages je 2 Eingabefelder. Diese funtioniert an und für sich. es stört mich nur eine Sache.
Der Click auf den dazugehören Code startet den Vorgang und füllt alles aus wie und was ich möchte.
Nur läuft immer die ganze Routine durch...durch diesen Durchlauf verlangsamt sich der Eingabe Process natürlich.
Daher versuche ich nach jedem Klick auf den besagten Button den Eintrag zu machen und dann auf den nächsten Click zu warten um den nächsten Eintrag zu übertragen.
Da die Zellen in Zeile (2, 4), (37,4) liegen auf einer Eingabe-Page. Die anderen fortfahrend dementsprechend auch.
Es würde mich freuen, wenn mir einer helfen könnte. Vielleicht ist es auch nicht machbar....
Hier mal der Code, den ich dazu benutze
Private Sub Cmd_eineStelleNachRechts_Click()
'Eine Page nach ">" rechts nicht über die letzte Page
If MultiPage1.Value < MultiPage1.Pages.Count - 1 Then
MultiPage1.Value = MultiPage1.Value + 1
Else
'nichts passiert
End If
Worksheets("Rage").Unprotect ("Rage")
On Error Resume Next
With Me
Cells(2, 4).Value = namenEingabe.spielerName1
Cells(2, 7).Value = namenEingabe.spielerName2
Cells(2, 10).Value = namenEingabe.spielerName3
Cells(2, 13).Value = namenEingabe.spielerName4
Cells(2, 16).Value = namenEingabe.spielerName5
Cells(2, 19).Value = namenEingabe.spielerName6
Cells(2, 22).Value = namenEingabe.spielerName7
Cells(2, 25).Value = namenEingabe.spielerName8
Cells(37, 4).Value = namenEingabe.spielerName9
Cells(37, 7).Value = namenEingabe.spielerName10
Cells(37, 10).Value = namenEingabe.spielerName11
Cells(37, 13).Value = namenEingabe.spielerName12
Cells(37, 16).Value = namenEingabe.spielerName13
Cells(37, 19).Value = namenEingabe.spielerName14
Cells(37, 22).Value = namenEingabe.spielerName15
Cells(37, 25).Value = namenEingabe.spielerName16
End With
Worksheets("Rage").Protect ("Rage")
End Sub
Vielen Dank schonmal
Rüdiger
|