Daten zuordnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Daten zuordnen

01.05.2023 10:27:26

Oberschlumpf

AW: Daten zuordnen

01.05.2023 10:28:13

Alwin WeisAngler

AW: Daten zuordnen

01.05.2023 11:05:15

Fred

AW: Daten zuordnen

01.05.2023 11:37:33

Jan

AW: Daten zuordnen

01.05.2023 11:39:29

Oberschlumpf

AW: Daten zuordnen

01.05.2023 13:01:06

Jan

AW: Daten zuordnen

01.05.2023 13:22:31

Fred

AW: Daten zuordnen

01.05.2023 13:45:11

Alwin WeisAngler

AW: Daten zuordnen

01.05.2023 14:11:45

Fred

AW: Daten zuordnen

01.05.2023 14:22:58

Alwin WeisAngler

Hi Fred,

kann es sein, dass du in Tabelle "Listen 10" die Daten für diese Zuordnungen vergessen hast?

ID Tag Zeit round league home away

Zumindest ich (von Fußball fast keine Ahnung...von ausländischen Ligen schon gar nich! :-) ) kann in Tabelle "Listen 10" nicht erkennen, wer wann und wo gegen wen spielt.

Also wer ist Home, wer ist away?
An welchen Tagen wird gespielt?
Woher kenn ich die ID und in welcher Liga wird gespielt?

Ich frag deswegen so detailliert nach, weil DU schreibst, die Zeilen in Tabelle "Listen 10" können variieren - dieser Hinweis bedeutet für mich...
...vielleicht andere Liga mit mehr/weniger/ANDERE??? Mannschaften. Deine "Vorlage" in Spiele ist zumindest für mich nicht hilfreich, da diese ja aktuell nur die vorhandenen Einträge aus "Listen 10" widerspiegelt - wenn aber eben mehr/weniger/ANDERE??? Mannschaften...was dann?

Na ja, welche IDs wer bekommt, welcher Tag, wer ist Heim/wer Gegner kann ich gar nicht erkennen.

Vllt zeigst du, wenn erforderlich, noch mal per Upload eine Bsp-Datei, in der auch in "Liste 10" alle erforderlichen Daten enthalten sind.
WENN aber tatsächlich ICH wirklich zu wenig Ahnung von Fußball hab :-)), bitte dann erklär, wie ich die "fehlenden?" Infos korrekt nach "Spiele" übertragen kann.

Ciao erst mal
Thorsten

Falls das mit SVERWEIS zu langsam ist, dann per VBA so:


Sub SpieleLaden()
    Dim arrIn(), arrAus(), ArrHome(), ArrAway(), arrAusHome(), arrAusAway(), i&, j&
    Tabelle1.Range("H11:BE" & Tabelle1.Cells(Rows.Count, 8).End(xlUp).Row).ClearContents
    arrIn = Tabelle5.Range("A2:AO" & Tabelle5.Cells(Rows.Count, 1).End(xlUp).Row).Value
    arrIn = Application.Index(arrIn, Evaluate("row(1:" & UBound(arrIn, 1) & ")"), Array(1, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41))
    ArrHome = Tabelle1.Range("F11:F" & Tabelle1.Cells(Rows.Count, 6).End(xlUp).Row).Value
    ArrAway = Tabelle1.Range("G11:G" & Tabelle1.Cells(Rows.Count, 7).End(xlUp).Row).Value
    ReDim arrAus(1 To UBound(ArrHome), 1 To 50)
    For i = 1 To UBound(ArrHome)
        For j = 1 To UBound(arrIn)
            If ArrHome(i, 1) = arrIn(j, 1) Then
                ReDim arrAusHome(1 To UBound(ArrHome), 1 To 26)
                arrAusHome = Application.Index(arrIn, Evaluate("row(" & j & ":" & j & ")"), Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26))
            End If
        Next j
        For j = 1 To UBound(arrIn)
            If ArrAway(i, 1) = arrIn(j, 1) Then
                ReDim arrAusAway(1 To UBound(ArrAway), 1 To 26)
                arrAusAway = Application.Index(arrIn, Evaluate("row(" & j & ":" & j & ")"), Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26))
            End If
        Next j
        For j = 1 To 25
            arrAus(i, j) = arrAusHome(j + 1)
            arrAus(i, j + 25) = arrAusAway(j + 1)
        Next j
    Next i
    Tabelle1.Range("H11").Resize(UBound(arrAus, 1), UBound(arrAus, 2)) = arrAus
End Sub

Zu beachten ist, da ich keine Lust hatte noch ein paar Schleifen zwischen den Übergaben in den Arrays zu schreiben, wird diese Prozedur nur funktionieren, wenn die Spalten der Tabellenblätter im A B C Format also kein Haken im Z1S1 Bezugsart eingestellt sind.
https://www.herber.de/bbs/user/158985.xlsb
Gruß Uwe

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread