Klick auf Zelle->Userform öffnen -> Klick auf Befehlsschaltfläche->In Zelle einfügen

[Lukas]

Hallo zusammen,

Ich bin aktuell dabei eine Exceldatei für unseren Kegelclub zu erstellen.
Dabei stehen alle Spieler untereinander

Jetzt möchte ich eine Userform erstellen, wo 30 Befehlsschaltflächen mit den zahlen 1 - 30 stehen. Das habe ich soweit fertig.

Jetzt mein Problem. Wenn ich in die Zelle bei Spieler 1 auf Strafe 1 klicke soll sich die Userform öffnen.
Wenn ich dann auf eine Befehlsschaltfläche drücke, soll die jeweilige Zahl in die jeweillige Zelle geschrieben werden, die ich zuvor angeklickt habe. Also ich möchte für alle Spieler die gleiche Userform benutzen. Ist dies möglich?

[ralf_b]

Hallo Lukas,

Ja das ist möglich. Zumindest auf den ersten Blick. 
Für eine Umsetzung solltest du eine entsprechende Datei hochladen. 

gruß 

rb

[Lukas]

Es handelt sich um 'KEGELABEND STRAFEN' O6:X66

[Kuwer]

Hallo Lukas,

Code:

Private Sub U1B1_Click()
Range("'PROGRAMMIERUNG K'!$AX$3").Value = 1
ActiveCell.Value = 1
UserForm1.Hide
End Sub

Gruß Uwe

[ralf_b]

Hallo Lukas,


  KEGELN.xlsm (Größe: 437,63 KB / Downloads: 3)

ich gehe davon aus das du die Werte nicht immer nur in die eine Zelle  AX3 eintragen möchtest. 
In meiner Variante habe ich versucht die Werte in die richtige Zelle deiner "Programmierung K" Tabelle zu schreiben.  


gruß 

rb

[Lukas]

Das war ja ziemlich einfach :D

Eine Frage habe ich noch. Aktuell habe ich den Code: 


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$O$6:$O$8" Then
UserForm1.Show
End If


Das heißt wenn ich die Zelle Wechsel, öffnet sich meine UserForm

Nachdem ich was ausgewählt habe und ich erneut auf die Selbe Zelle drücke wie zuvor schon, öffnet sich die UserForm nicht.

Frage: Kann ich den Code ändern, dass ich bei einem Rechtsklick auf die Zelle die UserForm öffne?

[ralf_b]

das Event heisst SelectionChange   Somit  wird es nicht ausgelöst wenn du in die bereits selektierte Zelle klickst. Kein Change . Du verstehst. 

Alternativ kannst du  Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)  versuchen
einfach die Zeile austauschen im Code. 


Gruß  

rb

[Lukas]

Das hat auch funktioniert 

Meine Letzte Frage ist.

Kann ich bei Kegelabend Strafen
die Plus- & Minus- Buttons bei Gossen und Alle Neune ausblenden, wo die Gelbe Zeile und Rote Zeile ist ?

Und bei Kegelabend 300
Die Kontrollkästchen ausblenden, wo die Gelbe und Rote Zeilen ist?

[ralf_b]

wozu ausblenden? wenn du sie nicht mehr brauchst ,einfach löschen. 

Aber mal ganz unter uns und den Mitlesern. Dein Tabellenaufbau ist schon recht umständlich.  Das erzeugt deshalb auch viel zusätzlichen Aufwand um die Werte dahin zu bekommen wo du sie benötigst.  


gruß


rb

[Lukas]

Weil sich die Gelbe und Rote Zeile ändert je nachdem wie viele Anwesend sind. Und die Button da sein müssen, wenn die Zeile zu einem bestimmten Spieler gehören.

Sorry bin Anfänger, deswegen bin ich froh, wenn es überhaupt funktioniert