Kegelspiel 301 Auswahl der Comboboxen ablegen oder wie nacheinander speichern in eine

[WergibtmirRat]

Hallo @all

  301_Auswahl_richten.xlsm (Größe: 29,31 KB / Downloads: 13)
Kegelspiel 301 Auswahl der 10 oder 15 Comboboxen ablegen oder wie nacheinander speichern in einem Rutsch.
Die/Der aktive Kegler/in bleibt bis das sie/er runtergekegelt hat auf der Bahn.
Bei Spiel 301 sollen die Würfe mit 10 Multiplikatoren die nur einmal benutzt werden dürfen, auf Null wenn möglich, erspielt werden. Siehe Tabelle
Die Spalten E bis X sind die geworfenen Holz
in den Spalten BF bis ... die ausgewälten Malnehmer
die Ergebnisse werden dann per Formeln in den Zellen der Spalten BZ bis ... berechnet.
Die einzelnen Text- und Comboboxen sind per Code in meiner grossen Datei schon abgelegt.
Mein Problem:
Zur besseren Übersicht soll nun der gewählte Wert der letzten Combobox bei Auswahl in der nächsten Combobox nicht mehr vorhanden sein.
In der Tabelle1 Bereich DA2:DA11 Auswahlliste "Wert_holen" schon gewählte werden im Bereich DC2:DC11 abgelegt
Wie kriegt ihr das hin? Wenn der Text zu kompliziert erscheint, bitte Tabelle öffnen und Eingaben tätigen.
Bin gespannt, ob es da eine Lösung für gibt.

Danke vorab an die Helfenden Denker
mfg

[WergibtmirRat]

Hallo nochmal @all,

mag mir wer helfen. Am besten obrige Datei anschauen
Wie bekommt man die Inhalte der Comboboxen in die angegebene Spalte untereinander.
Vorgehensweise ist. Erst wird geworfen, die Holzzahl eingetragen, darunter in der 1sten Combobox der Multiplikator verwendet.
Nun erfolgt der 2te Wurf und es soll weiter verfahren werden wie schon bei Wurf 1. NUr soll jetzt in der 2ten Combobox der Wert von der ersten Auswahl nicht mehr wählbar sein.

Danke für deine/eure Hilfe

mfg

[WergibtmirRat]

Hallo @all, starte erneut einen Hilfe-Ruf.
Problem besteht nach wie vor.
Kann/will wer helfen?
Bin für konstruktives oder andere Ansätze zu haben ...

[schauan]

Hallo Frank,

bei Deiner Beispieldatei klemmt's aber auch anderswo. Wenn ich die Datei öffne und bei Wurf 2 was auswähle, kommt schon mal ein Typkonflikt-Fehler. Ursache war ein fehlender Eintrag in das Textfeld links daneben

Schaue Dir mal diesen Thread an:
http://www.clever-excel-forum.de/Thread-...n?pid=5968&highlight=combobox#pid5968

[WergibtmirRat]

Hallo André,
kann ich wenn ich es anwende wie ich es gedacht habe nicht nachvollziehen.
Den Thread hab'sch gelesen bzw. nicht bei mir angewendet.
Vorgehen:
Links wird zuerst der Wurf eingetragen
Mitte dann der Multiplikator gewählt.
Rechts erscheint dann das Ergebnis

Rechts oben ist der Anfangswert
darunter wird die jeweilige Summe abgerechnet.

und weiter zum nächsten Wurf
Ich will aber im weiteren Einrichten die unteren Textboxen noch ausblenden, erst angezeigt bekommen wenn die oberen gefüllt sind.

Danke für das Antworten und Tabelleüberschauen

[schauan]

Hallo Frank,

einfachste Variante wäre, bei Auswahl den Zellinhalt der zugehörigen Zelle im Rowsource zu entfernen. Du bekommst dann zwar Lücken in der Auswahl, aber das macht ja nix. Ob das clever ist, sei dahingestellt
Daneben würde ich den Inhalt der textbox prüfen und die CBox anschließend inaktiv setzen.
Damit das nicht auch bei versehentlicher Auswahl eines "Leereintrages" passiert, kannst Du auch noch am Anfang des Makros selbiges prüfen. Du könntest anstelle der Prüfung des Textboxeintrages auf Seiten der CBox das Thema auch von Seitens der TBox aufziehen. Du setzt alle CBoxen auf Enablad und gibst die jeweils zugehörige bei Eintrag von etwas <> "" in die TBox frei.

Code:

Private Sub ComboBox2_Change()
Dim iTmp% 'Variablendeklaration
If Me.TextBox2.Value = "" Then Exit Sub 'Wenn kein Text in Textbox, dann Makro verlassen
If Me.ComboBox2.Tag = "!!" Then Exit Sub Else Me.ComboBox2.Tag = "!!" 'Wenn Tag !!, dann Makro verlassen, sonst Tag !! setzen
iTmp = Me.ComboBox2.Value 'Value nach iTmp uebernehmen
TextBox102.Value = TextBox2.Value * ComboBox2.Value
Lbl_Endwert.Caption = Lbl_Startwert.Caption - TextBox101.Value - TextBox102.Value
'Eintrag im RowSource finden
Range("wert_holen").Find(What:=Val(Me.ComboBox2.Value), After:=Range("wert_holen").Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole).Value = ""
Me.ComboBox2.Value = iTmp 'Value in CBox zurueckschreiebn
Me.ComboBox2.Enabled = False 'CBox inaktiv setzen
Me.ComboBox2.Tag = "" 'Tag zuruecksetzen
End Sub

[WergibtmirRat]

Hallo André, danke für die Erläuterung und den unten drunter beigefügten Code.
Hab jetzt erst mal zu tun damit.
Melde mich dann, ob es mit meinen Anpassungen zum gewünschten Erfolg zu verbuchen ist.

nochmals Dank

[WergibtmirRat]

...einfachste Variante...

Hallo André
Tausende Dank an Dich, du bist ein Ideengeber

  301_Einfach_Genial_fast_fertig.xlsm (Größe: 44,15 KB / Downloads: 11) :19:
Mit deinem Code ist es fast geschafft.
Alle die es interessiert schaut euch die neue Beispieldatei an.
Comboboxreihe links sind die Wurfergebnisse
Comboboxreihe mitte sind die Multi's
Textboxreihe die Zwischenergebnisse
Textboxen anstelle Multi's zeigen den gewählten Multiplikator.
... es geht voran ...:18:

Danke André:100: :05: