Turnier// Sitzplatz und Tisch übertragen

[ultrabest]

Hallo, 

ich habe hier ein Anliegen:

Die Exceldatei habe ich mir vom HERBERS Excel Forum geholt. Im MS-Office-Forum wurde mein Anliegen mit der Anwesenheit und bezahlt  geholfen.

Nun habe ich zur Aufgabe gemacht und es in Excel 2016 aufgearbeitet. Vorher war es 1997-2003.

Jetzt komme ich zum Punkt:

In der Tabelle Auswertung funktioniert die Auslosung gut. 

Wie bekomme ich die Daten (Sitzplatz und Tisch richtig zu den jeweiligen Spielern) von der Tabelle Auswertung hin zum Tabelle Ausdruck?

Ich dachte an Sverweis oder Wverweis. Ich bezeichne mich als Anfänger.

[Gast 123]

Hallo

Deine Angaben mit Tische und Platz haben mich am Anfang sehr verwirrt. So geht das m.E. nicht.
Schau dir bitte meine Lösung an, leider eine alte Excel 2003 Datei, das Makro kannst du kopieren.

mfg Gast 123

[ultrabest]

Hallo

Deine Angaben mit Tische und Platz haben mich am Anfang sehr verwirrt. So geht das m.E. nicht.
Schau dir bitte meine Lösung an, leider eine alte Excel 2003 Datei, das Makro kannst du kopieren.

mfg Gast 123

Hallo Gast 123.

Ich hatte mir schon gedacht, dass es in die andere Richtung läuft.
Dein Vorschlag ist schon mal gut. 

Ich werde mich auf darauf hinarbeiten. 

Viele Grüße
ultrabest

[ultrabest]

Hallo Gast 123

Ich habe das Makro eingebaut.

Bei der Auswahl von 5 Tischen funktioniert die Übertragung nur bis Tisch 4. 

Der 5.Tisch wird nicht angezeigt.

Du kannst es Dir in Ruhe anschauen.

Viele Grüße 

ultrabest

[Gast 123]

Hallo

Sorry, Fehler bei der Ermittlung von LSp=LastSpalte.  Bitte den Befehl ändern in:
    Lsp = ASW.Range("F2").End(xlToRight).Column - 5

mfg Gast 123

[ultrabest]

Hallo

Sorry, Fehler bei der Ermittlung von LSp=LastSpalte.  Bitte den Befehl ändern in:
    Lsp = ASW.Range("F2").End(xlToRight).Column - 5

mfg Gast 123

Es funktioniert. Herzlichen Dank.

Viele Grüße 
ultrabest

[ultrabest]

Hallo !

Ist es möglich die Spieler in die richtige Reichenfolge zu bringen?

Spieler 1  Tisch 2/2
Spieler 2  Tisch 3/2
Spieler 3  Tisch 1/2

usw. 

Viele Grüße
ultrabest

[Stephan]

Hallo,

entweder beim Auswerten (VBA) die Tabelle anders aufbauen oder so wie gezeigt ergänzen.

Sehe gerade, dass du eine 2016er Version hasst, dann musst du im Makro noch die Sortierfunktion einbinden.

Gruß Stephan

[ultrabest]

Hallo,

entweder beim Auswerten (VBA) die Tabelle anders aufbauen oder so wie gezeigt ergänzen.

Sehe gerade, dass du eine 2016er Version hasst, dann musst du im Makro noch die Sortierfunktion einbinden.

Gruß Stephan

Hallo Stephan.

Ich habe es mal ausprobiert.

Bei mir funktioniert das nicht.

Ich habe Excel 2016 am Laufen.

Gruß
ultrabest

[Stephan]

Hallo,
 du hast aber eine funktionierende Makroversion.
Dort fügst du im Makro 'Auswertung' nach

Next AC
    Next s
    Columns("D:E").Sort Key1:=Range("E2"), Header:=xlYes 

ein. 

Bei den anderen beiden Serien entsprechend 

  Columns("F:G").Sort Key1:=Range("G2"), Header:=xlYes

bzw.

Columns("H:I").Sort Key1:=Range("I2"), Header:=xlYes

ein.

Dann hast du die geordente Ausgabe.

Gruß Stephan