Umwandlungstabelle für Platzhalterzahlen

[Conquistador]

@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

[Ecart]

Vielen Dank.

BG
Jürgen

[Conquistador]

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

[bify07]

Dankeschön

[Meisterkeks]

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??

[Conquistador]

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

[Meisterkeks]

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?

[Conquistador]

Hallo Meiterkeks,

stimmt, aber einen schnelleren code habe ich im Netz nicht gefunden.

LG Peter

[Meisterkeks]

schade - danke für die Info!

[Peter K.]

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.

.