+- 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
Vielen Dank - die Datei ist SUPER!
Erschwernis umsetzbar?
Wenn ich die Pool-Zahlen nicht aufsteigend sortiert eingebe: kann man dann trotzdem die Ergebnisse der einzelnen Reihen im ungewandelten System aufsteigend sortiert ausgeben??
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.
.