Thema Datum  Von Nutzer Rating
Antwort
29.09.2017 00:35:04 Radler
Solved
29.09.2017 16:19:09 Mackie
NotSolved
29.09.2017 21:58:57 Radler
NotSolved
29.09.2017 22:06:43 Mackie
NotSolved
01.10.2017 17:04:27 Gast9419
NotSolved
01.10.2017 18:36:30 Radler
NotSolved
01.10.2017 23:06:32 Ben
NotSolved
02.10.2017 03:08:24 Radler
NotSolved
02.10.2017 09:52:02 Gast93350
NotSolved
02.10.2017 12:50:01 Radler.
NotSolved
02.10.2017 15:35:57 Gast54592
NotSolved
03.10.2017 06:52:49 Radler
NotSolved
Rot Aufgabe mit VBA lösen
03.10.2017 15:35:51 Gast94472
NotSolved
03.10.2017 21:47:29 Radler
NotSolved
04.10.2017 10:35:52 Radler
NotSolved
06.10.2017 14:58:20 Gast38955
NotSolved
06.10.2017 21:32:15 Radler
NotSolved
08.10.2017 15:44:57 Gast58396
NotSolved
08.10.2017 20:10:13 Radler
NotSolved
09.10.2017 09:38:56 Gast65905
NotSolved
09.10.2017 14:59:02 Radler
NotSolved
11.10.2017 16:06:12 Gast22845
NotSolved
12.10.2017 07:47:21 Radler
NotSolved
12.10.2017 18:56:09 Gast73494
NotSolved

Ansicht des Beitrags:
Von:
Gast94472
Datum:
03.10.2017 15:35:51
Views:
637
Rating: Antwort:
  Ja
Thema:
Aufgabe mit VBA lösen

Moin!

Also habe mich jetzt für eine interaktive Eingabe entschieden. Heißt, der User wird am Anfang gefragt, wieviele Zeile, Spalten, welche Summen etc. er haben will. Wenn man die Spalten und Zeilen variabel gestalten will, wäre ein festes Array auch unpraktisch. Habe meine Code nochmal "optimiert". In der Matrix wird nicht mehr der letzte Eintrag gesucht sondern vom Eintrag davor zwischengespeichert. Damit hat sich die Zeit auf meinem Rechner von 16 auf 11 Sekunden verkürzt. Das Ganze hier in der Datei.

http://www.herber.de/bbs/user/116726.xls

Das sind zudem noch ein paar Anpassungen dabei. Eine Variante sucht bis zu 10 Lösungen ( falls es sie gibt). Könnte man noch einstellen. Bei deiner Ausgangsvariante habe ich 3 Lösungen gefunden. Dauer dafür war ca. 1 Minute. Auf einem schnellern Rechner, geht es wohl auch schneller.

Die flex Variante ist wie oben beschrieben mit flexiblen Eingaben zu nutzen (hoffe ich zumindest :-) ).

Zum Code noch: Eigentlich könnte man das Ganze als rekursive Funktion gestalten. Da hatte ich aber vorgestern nicht wirklich Lust drauf. Deshalb ist die Variable für die SChleifen global deklariert und ich ändere sie in den Funktionen / Subs darunter. Ist nicht schön und ggf. unsauber aber war so am schnellsten machbar. Mit viel Lust (die ich gad nicht habe) könnte man es auch rekursiv umschreiben.

Ebenso bei der Variante mit mehreren Ausgaben. Da könnte man die Hauptschleife durch die Zahlen in eine Funktion packen. HAtte ich auch keine Lust zu. Deshalb bin ich da zu der unschönen goto Variante gewechselt. (mache ich sonst nicht).

Einfach mal testen und wie geschrieben, bei Fragen einfach nochmal stellen.

VG


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.09.2017 00:35:04 Radler
Solved
29.09.2017 16:19:09 Mackie
NotSolved
29.09.2017 21:58:57 Radler
NotSolved
29.09.2017 22:06:43 Mackie
NotSolved
01.10.2017 17:04:27 Gast9419
NotSolved
01.10.2017 18:36:30 Radler
NotSolved
01.10.2017 23:06:32 Ben
NotSolved
02.10.2017 03:08:24 Radler
NotSolved
02.10.2017 09:52:02 Gast93350
NotSolved
02.10.2017 12:50:01 Radler.
NotSolved
02.10.2017 15:35:57 Gast54592
NotSolved
03.10.2017 06:52:49 Radler
NotSolved
Rot Aufgabe mit VBA lösen
03.10.2017 15:35:51 Gast94472
NotSolved
03.10.2017 21:47:29 Radler
NotSolved
04.10.2017 10:35:52 Radler
NotSolved
06.10.2017 14:58:20 Gast38955
NotSolved
06.10.2017 21:32:15 Radler
NotSolved
08.10.2017 15:44:57 Gast58396
NotSolved
08.10.2017 20:10:13 Radler
NotSolved
09.10.2017 09:38:56 Gast65905
NotSolved
09.10.2017 14:59:02 Radler
NotSolved
11.10.2017 16:06:12 Gast22845
NotSolved
12.10.2017 07:47:21 Radler
NotSolved
12.10.2017 18:56:09 Gast73494
NotSolved