Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Kegelspiel 301 Auswahl der Comboboxen ablegen oder wie nacheinander speichern in eine
#1
Hallo @all

.xlsm   301_Auswahl_richten.xlsm (Größe: 29,31 KB / Downloads: 10)

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 DA2Big GrinA11 Auswahlliste "Wert_holen" schon gewählte werden im Bereich DC2Big GrinC11 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
?mage
to top
#2
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
?mage
to top
#3
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 ...
?mage
to top
#4
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-...ox#pid5968
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#5
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
?mage
to top
#6
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
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
WergibtmirRat
to top
#7
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
?mage
to top
#8
(02.09.2014, 18:45)schauan schrieb: ...einfachste Variante...
Hallo André
Tausende Dank an Dich, du bist ein Ideengeber

.xlsm   301_Einfach_Genial_fast_fertig.xlsm (Größe: 44,15 KB / Downloads: 9) 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
?mage
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Lightbulb VBA Zeile in eine Arbeitsmappe kopieren wenn in der Zeile eine 1 steht Olossos 8 119 11.11.2016, 17:08
Letzter Beitrag: Kuwer
  Tablle nach Auswahl anzeigen/Vervollständigen donangel85 9 188 29.10.2016, 19:40
Letzter Beitrag: donangel85
  Texte aus Tabellenblättern bei Auswahl in ein Tabellenblatt übertragen JoergPorsch 9 152 28.10.2016, 17:23
Letzter Beitrag: JoergPorsch
  Selektierte Werte in ListBox nacheinander in TextBox michel34497 3 145 08.10.2016, 13:00
Letzter Beitrag: michel34497
  Datenüberprüfung: Auswahl abhängig von vorheriger Auswahl schaluppi 7 277 19.09.2016, 12:05
Letzter Beitrag: schaluppi
  Eine Datei schließen, eine andere Öffnen GustavoWoltmann 1 127 14.09.2016, 14:20
Letzter Beitrag: schauan
  Fragenkatalog mit Auswahl und Ausgabe erstellen Laura92 2 189 30.08.2016, 13:12
Letzter Beitrag: Laura92
  Comboboxen in abhängikeit michel34497 38 1.864 16.08.2016, 21:00
Letzter Beitrag: michel34497
  Dropdown mit Auswahl-Pfeil / Schriftgröße Christine 63 4.997 18.07.2016, 11:23
Letzter Beitrag: Rabe
  Mehrere daten nach Auswahl kopieren Guiness860 2 217 13.07.2016, 15:48
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste