![]() |
Umwandlungstabelle für Platzhalterzahlen - Druckversion +- Lotto-Totostrategen (https://Lotto-Totostrategen.de) +-- Forum: Lotto (https://Lotto-Totostrategen.de/forumdisplay.php?fid=884) +--- Forum: Lotto und VBA für Excel (https://Lotto-Totostrategen.de/forumdisplay.php?fid=1070) +--- Thema: Umwandlungstabelle für Platzhalterzahlen (/showthread.php?tid=24769) |
@all :wink: Hier könnt ihr euch mein Programm zur Umwandlung von Platzhalterzahlen runterladen Zur Beachtung: Die - Conquistador - 10.05.2015 @all ![]() Hier könnt ihr euch mein Programm zur Umwandlung von Platzhalterzahlen runterladen Zur Beachtung: Die Tabelle enthält Makros zum sortieren. Excel-Umwandlungstabelle mit Makro wer keine Makros mag, kann diese auch deaktivieren. Dann funktioniert nur die Sortierfunktion nicht mehr, alles andere schon. Gruß Peter :daum: Vielen Dank. BG Jürgen - Ecart - 10.05.2015 ![]() Vielen Dank. BG Jürgen Hi :wink: Die Tabelle hatte noch einen kleinen Fehler bei der Anzeige Anzahl Zahlen im Pool. Der Fehler ist jetzt - Conquistador - 10.05.2015 Hi ![]() Die Tabelle hatte noch einen kleinen Fehler bei der Anzeige Anzahl Zahlen im Pool. Der Fehler ist jetzt behoben. Bitte die Tabelle nochmal runterladen Wen es nicht stört, kann auch mit der anderen Version arbeiten. Gruß Peter Dankeschön - bify07 - 27.05.2015 Dankeschön Vielen Dank - die Datei ist SUPER! Erschwernis umsetzbar? [COLOR=blue][B]Das Grundsystem ab B2 eingeben. Das bes - Meisterkeks - 30.05.2015 Vielen Dank - die Datei ist SUPER! Erschwernis umsetzbar? Das Grundsystem ab B2 eingeben. Das bestehende Mustersystem (9 Zahlen Garantie 5 aus 5 in 30 Reihen) einfach überschreiben.Die Tabelle ist für Systeme bis 400 Reihen ausgelegtund bis 7 Zahlen pro Reihe Im Tabellenblatt "Tabelle umgewandelt" muß man nur noch die Pool-Zahlen in den gelben Zellen eingeben und schon hat man sein umgewandeltes System. Wenn ich die Pool-Zahlen nicht aufsteigend sortiert eingebe: kann man dann trotzdem die Ergebnisse der einzelnen Reihen im ungewandelten System aufsteigend sortiert ausgeben?? [quote][i]Original von Meisterkeks[/i] Vielen Dank - die Datei ist SUPER! Erschwernis umsetzbar? Wenn ich die Poo - Conquistador - 09.06.2015 Zitat:Original von Meisterkeks Hier gibt es die Tabelle mit Sortierfunktion: Zur Beachtung: Die Tabelle enthält Makros zum sortieren. Excel-Umwandlungstabelle Gruß Peter Hallo Peter, besten DANK! Wie erwartet klappt die Umwandlung und anschließende Sortierung einwandfrei. [I]Allerdi - Meisterkeks - 21.06.2015 Hallo Peter, besten DANK! Wie erwartet klappt die Umwandlung und anschließende Sortierung einwandfrei. Allerdings habe ich den Eindruck, dass die Sortierung mit dem Code eine etwas lange Durchlaufzeit hat bei 415 Zeilen? Hallo Meiterkeks, stimmt, aber einen schnelleren code habe ich im Netz nicht gefunden. LG Peter - Conquistador - 21.06.2015 Hallo Meiterkeks, stimmt, aber einen schnelleren code habe ich im Netz nicht gefunden. LG Peter schade - danke für die Info! :daum: - Meisterkeks - 22.06.2015 schade - danke für die Info! ![]() Hallo Peter, hallo Meisterkeks, :wink: ich habe gerade mal die Sortierfunktion mit 332 Reihen ausprobiert. - Peter K. - 04.10.2017 Hallo Peter, hallo Meisterkeks, ![]() ich habe gerade mal die Sortierfunktion mit 332 Reihen ausprobiert. Ich finde die Sortierzeit eigentlich noch angemessen. Aber warum soll man das Gute nicht noch verbessern können. Das Problem ist halt die zeilenweise Bildschirmausgabe in jedem FOR - NEXT - Durchlauf. Die Bildschirmausgabe kostet extrem viel Zeit. Also müssen wir nur die Bildschirmaktualisierung unterdrücken. Sub Sortieren() Dim ro As Long Dim cl As Integer With Sheets("System_sortiert") '*** Namen des Sheets anpassen *** cl = .Cells(1, Columns.Count).End(xlToLeft).Column Application.ScreenUpdating = False For ro = 1 To .Cells(Rows.Count, 1).End(xlUp).Row .Range(.Cells(ro, 1), .Cells(ro, cl)).Sort Key1:=.Cells(ro, 1), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _ DataOption1:=xlSortNormal Next ro Application.ScreenUpdating = True End With End Sub Mit besten VBA-Grüßen Peter K. . |