Registriert seit: 05.12.2019
Version(en): 2016
Hallo!
Ich habe folgendes Problem und bräuchte dafür etwas Hilfe.
Ich habe den Zahlencode für mein Kofferschloss vergessen.
Kann man per Makro nun alle möglichen Kombinationen sich auflisten lassen? Dann würde ich Code für Code ausprobieren.
Als Beispiel: Ich habe eine normale Tabelle und wähle per DropDown (ich könnte es auch per OptionsButton in Userform machen) die Anzahl der Zahlen/Ziffern aus, aus denen mein Schloß besteht. Zum Beispiel 2, 3, 4, 5 usw. bis 8 vielleicht.
Die nächste Auswahl (per Kontrollkästchen bzw. Checkbox) ist, dass ich selbst auswähle, welche Zahlen möglich sind. Bei einem normalen Schloss (0-9 = 10 Zahlen) sind es 10 Zahlen. Schön wäre es, wenn ich selbst auswählen kann, um welche Zahlen zur Auswahl (von 0-9) stehen..Zum Beispiel 1, 2, 3 & 4 oder 1, 3, 5 usw.
Nach der Auswahl möchte ich mir dann per Klick auf einen Button (CommandButton) alle möglichen Kombinationen (Zahlen können mehrfach vorkommen) anzeigen lassen.
Ist das irgendwie in Excel (über VBA) möglich?
Vielen Dank
Markus
26865
Nicht registrierter Gast
Zitat:Ich habe den Zahlencode für mein Kofferschloss vergessen.
Die möglichen Kombinationen sind:
Code: =TEXT(SEQUENZ(10^A1;;0);WIEDERHOLEN("0";A1))
mit Anzahl Einstellrädchen in A1
Oder einfach: Alle Zahlen von 0 bis 10^Einstellrädchen- 1
Man beginnt systematisch
- alle Rädchen auf 0
- beginnen bei der "Einserstelle", also dem ganz rechten Einstellrad
- von 0 bis 9 durchprobieren. Bei Erreichen der 0: 2. Stelle um 1 weiterdrehen.
Also exakt so, wie ein analoger Kilometerzähler funktioniert.
Eine Liste mit Kombinationen brauchst du nicht: Wenn du keine Lust mehr hast, notierst du dir die Zahl, bei der du aufgehört hast - da kannst du dann, selbst wenn einer an den Rädchen rumfummelt - ganz einfach wieder beginnen.
Dafür braucht man weder Excel noch VBA!
Zitat:Ist das irgendwie in Excel (über VBA) möglich?
Ja, deine erweiterten Wünsche sind mit Excel und / oder VBA möglich! Einfach "DecToBase" googeln und Methoden verwenden. Die Userform ist lästige Fleißarbeit, die erledigst du bitte selbst.
Registriert seit: 12.03.2016
Version(en): Excel 2003
23.11.2023, 16:28
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2023, 16:31 von Gast 123.)
Hallo
die echten Kofferknacker machen das sicher anders. Einen Versuch ist es wert. Probier es bitte mal.
Alle 4-5 Rädchen, immer nur eins, langsam drehen, dabei den Öffnungsriegel in Richtung "Auf" drücken.
Mit etwas Glück spürt du eine kleine Änderung oder Klick, wenn dieses Rad in eine Lücke greift, sich öffnet.
Zu Bedenken ist, das es minimal kleine mechanische Toleranzen gibt, weshalb du nicht weisst, welches Rädchen zuerst in den Öffnungsmechanismus gleitet. Wenn du aber feinfühlig bist, alle nacheinander durchtestest, müsstest du es in den Fingerspitzen fühlen können. Oder wie die richtigen Panzerknacker ein Stetoskop zum abhören verwenden.
Das geht ganz ohne VBA, hat aber mit Feingefühl in den Fingerspitzen zu tun.
Amüsanter Rat in einem Excel Forum! Bin gespannt ob mein Tipp klappt??
mfg Gast 123
Nachtrag: gibt es in der Nachbarschaft einen Jungen, der Fahrradschlösser knacken kann?? Oder ein Fahrradgeschäft?
Registriert seit: 05.12.2019
Version(en): 2016
Vielen Dank für die 2 Antworten.
Ich probiere es mal aus. Aber kann mir jemand auch eine VBA-Variante anbieten?
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
23.11.2023, 17:01
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2023, 17:03 von RPP63.)
Manchmal liebe ich off topic …
Ein Kofferschloss ist ähnlich dem Blattschutz in Excel.
Nice to have, wenn man das Ding nicht versehentlich öffnen will und damit am Flughafen seinen Fetisch offenbaren würde.
In der Regel reicht ein Längsschlitz-Schraubendreher.
(Ein Schraubenzieher ist eine Kneifzange, der Zollstock nennt sich Gliedermaßstab!)
Aber eines gibt mir gerade zu bedenken:
Zitat:gibt es in der Nachbarschaft einen Jungen, der Fahrradschlösser knacken kann?? Oder ein Fahrradgeschäft?
Knackt der Junge ein Schloss, ist er ein Dieb.
Knackt er ein Fahrradgeschäft, dürfte es ein Einbruch sein.
(23.11.2023, 16:54)Redgeier schrieb: Ich probiere es mal aus. Aber kann mir jemand auch eine VBA-Variante anbieten?
Bei 4 Rädchen musst Du doch ohnehin die 10000 Varianten Brute Force durchprobieren.
Wie soll Dir VBA denn helfen?
Dass nach 1234 1235 kommt?
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 05.12.2019
Version(en): 2016
Ich wollte neben meinem Problem nur wissen, ob es per VBA möglich ist, die verschiedenen Kombinationen zu suchen und mir anzeigen zu lassen. Ob ein Zahlenschloss nun 3, 4 oder 5 Rädchen hat.
26865
Nicht registrierter Gast
(23.11.2023, 17:14)Redgeier schrieb: Ich wollte neben meinem Problem nur wissen, ob es per VBA möglich ist, die verschiedenen Kombinationen zu suchen und mir anzeigen zu lassen. Ob ein Zahlenschloss nun 3, 4 oder 5 Rädchen hat.
Na, schrieb ich doch: Ja, es ist möglich! Was willst du denn noch?
Registriert seit: 11.04.2014
Version(en): 2021
23.11.2023, 17:34
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2023, 17:48 von Glausius.)
RedGeier,
hier mal eine "kleine" VBA-Spielerei zu Deiner Kofferschloss-Frage!
Kofferschloss.xlsm (Größe: 19,44 KB / Downloads: 6)
- 4 Rädchen
Kofferschloss5.xlsm (Größe: 19,7 KB / Downloads: 3)
- 5 Rädchen
![[Bild: attachment-190.gif]](https://www.world-of-smilies.com/wos_computer/attachment-190.gif)
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
23.11.2023, 17:38
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2023, 17:41 von RPP63.)
Mal im Ernst:
Wofür braucht man (außer Geduld beim Brute Force) mehr als
Anzahl_Möglichkeiten_pro_Rad^Anzahl_Räder
?
| A | B | C | 1 | Rädchen | Möglichkeiten | Kombinationen | 2 | 2 | 4 | 16 | 3 | 4 | 10 | 10000 | 4 | 5 | 13 | 371293 |
Zelle | Formel | C2 | =B2^A2 | C3 | =B3^A3 | C4 | =B4^A4 |
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 11.04.2014
Version(en): 2021
23.11.2023, 17:51
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2023, 18:05 von Glausius.)
Hallo Rpp63,
du bist dir sicher, dass Deine Formellösung auch richtig ist?
Meine (zugegeben primitive) VBA-Lösung ergibt bei 4 Code-Rädchen auch deine 10.000 Lösungsmöglichkeiten - aber bei 5 Code-Rädchen eine wesentlich höhere Anzahl, nämlich 100.000 Lösungsmöglichkeiten! Was stimmt denn nun?
![[Bild: attachment-190.gif]](https://www.world-of-smilies.com/wos_computer/attachment-190.gif)
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
|