Datenübernahme

Forumthread: Datenübernahme

Datenübernahme

26.06.2025 21:25:44

moselfuchs

Hallo,
ich stehe total auf dem Schlauch. Folgendes möchte ich realisieren.
Tabellenblatt „starter“ und „final“ sind so fertig.
1. Im Blatt „einzel“ soll auf der linken Seite die besten Einzelergebnisse (w) von Blatt „final“ stehen, mit dem größten Ergebnis oben.
2. Rechts die Einzelergebnisse (m) ebenso das größte oben.
Im Blatt laut der Liste die Ergebnisse aus dem „final“ Blatt auch die größten oben.
Dann werde ich die beiden unter Gesamt addieren.
Ich danke vorab.

https://www.herber.de/bbs/user/177926.xlsm

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datenübernahme

26.06.2025 22:05:45

Uduuh
AW: Datenübernahme

26.06.2025 22:32:21

moselfuchs
AW: Datenübernahme

26.06.2025 22:10:37

Alwin Weisangler
AW: Datenübernahme

26.06.2025 22:51:02

BoskoBiati
AW: Datenübernahme

26.06.2025 22:30:07

moselfuchs
AW: Datenübernahme

26.06.2025 23:34:17

Alwin Weisangler
AW: Datenübernahme

27.06.2025 15:27:58

moselfuchs

AW: Datenübernahme

26.06.2025 22:05:45

Uduuh

Hallo,
B3:B16 =WENNFEHLER(INDEX(final!$B$3:$B$42;AGGREGAT(15;6;ZEILE($1:$40)/(final!$C$3:$C$42="w");ZEILE(A1)));"")
Ergebnis mit Q3:Q42 statt B3:B42.

Gruß aus'm Pott
Udo

AW: Datenübernahme

26.06.2025 22:32:21

moselfuchs

Danke Udo

AW: Datenübernahme

26.06.2025 22:10:37

Alwin Weisangler

Hallo,

das sollte so reichen, da die Ergebnisse schon sortiert vorliegen.
https://www.herber.de/bbs/user/177927.xlsm

Gruß Uwe

AW: Datenübernahme

26.06.2025 22:51:02

BoskoBiati

Hi,

in final könnte man die Formeln für Z-Stand und Gesamt auch vereinfachen:

=WENN(ANZAHL2(F3:J3)=0;"";SUMME(F3:J3))

Da ich die Möglichkeiten von 2022 nicht kenne, hier mal eine Formel in 365 für einzel, w (in A3) :

=LET(xa;FILTER(final!B3:.Q100;final!C3:.C420="w");xb;ANZAHL2(INDEX(xa;;1));xc;SEQUENZ(xb;1;1;1);HSTAPELN(xc;INDEX(xa;;1);WECHSELN(xc;LINKS(xc;LÄNGE(xc));"");INDEX(xa;;16)))

und m (in F3):

=LET(xa;FILTER(final!B3:.Q100;final!C3:.C420="m");xb;ANZAHL2(INDEX(xa;;1));xc;SEQUENZ(xb;1;1;1);HSTAPELN(xc;INDEX(xa;;1);WECHSELN(xc;LINKS(xc;LÄNGE(xc));"");INDEX(xa;;16)))

Wären die Leerspalten C und H nicht da, wären die Formeln deutlich einfacher!

Gruß

Edgar

AW: Datenübernahme

26.06.2025 22:30:07

moselfuchs

Hallo Uwe,
das sieht super aus, nur hatte ich einen Fehler in meiner Tabelle. Bei der (m) Auflistung hatte ich nur 14 Plätze angezeigt, in Wirklichkeit sind es aber 17.
Kannst du deinen Code dementsprechend noch anpassen, mein VBA ist gleich null.
Uns bei der "Mannschaftstabelle, wie bekomme ich die Ergebnisse dort hinein, mit einer Formel oder auch mit VBA.
Danke vorab.

AW: Datenübernahme

26.06.2025 23:34:17

Alwin Weisangler

Hallo,

ändere so:



Sub BesteW()

    Dim i&, j&, k&, arrL(), arrT(): arrT = Tabelle2.UsedRange.Offset(2).Value

    ReDim arrL(1 To UBound(arrT, 1), 1 To 3)

    For i = LBound(arrT) To UBound(arrT) - 2

        If arrT(i, 3) = "w" Then

            k = k + 1

            arrL(k, 1) = arrT(i, 2)

            arrL(k, 3) = arrT(i, 17)

        End If

    Next i

    With Tabelle3

        .Range("rng_w").ClearContents

        .Cells(3, 2).Resize(17, 3) = arrL

    End With

End Sub



Sub BesteM()

    Dim i&, j&, k&, arrL(), arrT(): arrT = Tabelle2.UsedRange.Offset(2).Value

    ReDim arrL(1 To UBound(arrT, 1), 1 To 3)

    For i = LBound(arrT) To UBound(arrT) - 2

        If arrT(i, 3) = "m" Then

            k = k + 1

            arrL(k, 1) = arrT(i, 2)

            arrL(k, 3) = arrT(i, 17)

        End If

    Next i

    With Tabelle3

        .Range("rng_m").ClearContents

        .Cells(3, 7).Resize(17, 3) = arrL

    End With

End Sub

Gruß Uwe

AW: Datenübernahme

27.06.2025 15:27:58

moselfuchs

Hallo Uwe,
kannst du mir nochmals helfen bezgl. des letzten Blattes "Mannschaft".
Die Namen konnte ich per Formel einfügen, aber wie bekomme ich die Ringe, passend zu den Namen aus der "final" Liste in beide Spalten hinein?
Muss man dort auch ein Makro schreiben oder geht das auch mit einer Formel.
Vorab Danke.

Forumthread: Datenübernahme

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread