besteht die Möglichkeit die Eingaben von Private Sub Worksheet BeforeRightclick in Spienbutton1 zu übernehmen

Question

Hallo und einen schönen Tag,

ist es möglich Daten von 

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  
 'Bereiche, in dem die 1 eingefügt werden soll
 If Not Intersect(Target, Range("rh1")) Is Nothing Then
    Target.Value = 1
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 17 eingefügt werden soll
 If Not Intersect(Target, Range("ri1")) Is Nothing Then
    Target.Value = 17
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 41 eingefügt werden soll
 If Not Intersect(Target, Range("rj1")) Is Nothing Then
    Target.Value = 41
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 65 eingefügt werden soll
 If Not Intersect(Target, Range("zq1")) Is Nothing Then
    Target.Value = 65
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 107 eingefügt werden soll
 If Not Intersect(Target, Range("zr1")) Is Nothing Then
    Target.Value = 107
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
End Sub

Diese Angaben In 

Private Sub SpinButton1_Change()
ActiveSheet.Unprotect
If SpinButton1.Value < 1 Then SpinButton1.Value = ActiveSheet.Range("i1")
If SpinButton1.Value > ActiveSheet.Range("i1") Then SpinButton1.Value = 1

ActiveSheet.Range("J1") = SpinButton1.Value

End Sub

EINZUFÜGEN

Kurze Erläuterung zu den Zahlen von vor Klick und was diese aussagen sollen. bei RH1 erscheint die 1 das bedeutet das hier 2 Spieler 8 Runden Spielen und bei RI1 erscheint die 17 für 3 Spieler usw.

einzufügen. Bespiel ich Klicke In Zelle RI1 hier erscheint dann die Zahl 17 und diese soll dann in J1 erscheinen analog dazu wenn ich in die anderen Zellen klicke. In J1 steht immer die letzte Zahl die ich vorher angeklickt habe. Klicke ich auf RI1 erscheint in allen Felder falsch bis ich zu der Zahl 17 durchgeklickt habe, dann erscheinen die Spielernamen Punkte usw..

Bei diesem SpinButton muss ich erst durchklicken bis ich zu der Zahl komme, die brauche.

Alles andere habe ich DANK eurer Hilfe geschafft.

Wünsche mir, das es dafür eine Lösung gibt.

Gruß Adde

Answer 1

Hallo Adde,

keine Ahnung, ob ich dich richtig verstanden habe.

Probiere die folgenden Codes am besten erst einmal in einer Kopie deiner Mappe aus. Lösche den Private Sub SpinButton1_Change()-Code und ersetze ihn durch die folgenden beiden Codes:

Private Sub SpinButton1_SpinDown()
ActiveSheet.Unprotect
If SpinButton1.Value - 1 < SpinButton1.Min Then SpinButton1.Value = SpinButton1.Max
ActiveSheet.Range("J1") = SpinButton1.Value

End Sub

Private Sub SpinButton1_SpinUp()
ActiveSheet.Unprotect
If SpinButton1.Value + 1 > SpinButton1.Max Then SpinButton1.Value = SpinButton1.Min
ActiveSheet.Range("J1") = SpinButton1.Value
End Sub

Ändere deinen Before-Right-Click-Code wie folgt:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
 'Bereiche, in dem die 1 eingefügt werden soll
 If Not Intersect(Target, Range("rh1")) Is Nothing Then
    Target.Value = 1
    SpinButton1.Min = 1         'untere Grenze für den Spinbutton festlegen
    SpinButton1.Max = 16        'obere Grenze für den Spinbutton festlegen
    Range("J1").Value = 1       'Wert für untere Grenze in Zelle J1 schreiben
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 17 eingefügt werden soll
 If Not Intersect(Target, Range("ri1")) Is Nothing Then
    Target.Value = 17
    SpinButton1.Min = 17
    SpinButton1.Max = 40
    Range("J1").Value = 17
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 41 eingefügt werden soll
 If Not Intersect(Target, Range("rj1")) Is Nothing Then
    Target.Value = 41
    SpinButton1.Min = 41
    SpinButton1.Max = 64
    Range("J1").Value = 41
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 65 eingefügt werden soll
 If Not Intersect(Target, Range("zq1")) Is Nothing Then
    Target.Value = 65
    SpinButton1.Min = 65
    SpinButton1.Max = 106
    Range("J1").Value = 65
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
 'Bereiche, in dem die 107 eingefügt werden soll
 If Not Intersect(Target, Range("zr1")) Is Nothing Then
    Target.Value = 107
    SpinButton1.Min = 107
    SpinButton1.Max = 157
    Range("J1").Value = 107
    Cancel = True              'Menü nach drücken rechte Maustaste nicht anzeigen
 End If
End Sub

Die obere Grenze habe ich anhand deiner nächsten Werte festgelegt. Die kannst du ja auf deine Bedürfnisse anpassen.

Gruß

M.O.

Answer 2

Hallo M.O.

du bist einfach spitze. Du hast es richtig verstanden. Sofort eingepflegt und es funktioniert. Tolle Leistung.

Vielen herzlichen Dank

Gruß Adde