Übertragung von Tranfermarkt.de in Excel oder Google Tabellen

[BeneEdgar]

Guten Tag

Ich sitze seit längerem an einem Problem. Ich möchte die Kader von Tranfermarkt.de in die Tabellen übertragen. Natürlich nicht alle, aber manche. (Beispielweise den Kader von Bayern, aus dem folgenden Link: https://www.transfermarkt.de/fc-bayern-m.../verein/27 )
Aktuell schreibe ich immer jeden Spieler einzelnd raus, aber es müsste doch auch einfacher gehen.
Hat jemand Ideen wie ich Spielername, Geburtsdatum, Position & Marktwerte vereinfacht übertrage.

Danke für eure Hilfe.

[rate mit]

Hallo,

auf Transfermarkt.de kannst du unter "Erweitert" alle Daten markieren und dann normal in Excel einfügen. Ich habe die eine intelligente Tabelle gewählt, bei der kann man sich die Daten einfach auswählen...

[BeneEdgar]

Welche Interligente Tabelle meinst du?

[rate mit]

Welche Interligente Tabelle meinst du?

Im Anhang meiner vorherigen Antwort befindet sich die Datei mit der Tabelle. Dieser Tabelle fehlt noch das Fine-Tuning...

[Elex]

Hi

Mit Power Query geht es z.B. so.

Code:

let
    Quelle = Web.Page(Web.Contents("https://www.transfermarkt.de/fc-chelsea/kader/verein/631/saison_id/2021/plus/1")),
    Data = Quelle{0}[Data],
    Name = Table.AddColumn(Data, "Name", each if [Spieler] is list then [Spieler]{2}[Column2]{0} else [Spieler][Column2]{0}),
    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(Name, "Position", each if [Spieler] is list then [Spieler]{2}[Column2]{1} else [Spieler][Column2]{1}),
    #"Spalte nach Trennzeichen teilen" = Table.SplitColumn(#"Hinzugefügte benutzerdefinierte Spalte", "Geb. / Alter", Splitter.SplitTextByDelimiter("(", QuoteStyle.Csv), {"Geb. / Alter.1", "Geb. / Alter.2"}),
    #"Ersetzter Wert" = Table.ReplaceValue(#"Spalte nach Trennzeichen teilen",")","",Replacer.ReplaceText,{"Geb. / Alter.2"}),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Ersetzter Wert",{"Spieler", "Zuvor"}),
    #"Geänderter Typ" = Table.TransformColumnTypes(#"Entfernte Spalten",{{"Geb. / Alter.1", type date}, {"Vertrag", type date}, {"Im Team seit", type date}, {"Geb. / Alter.2", type number}}),
    #"Neu angeordnete Spalten" = Table.ReorderColumns(#"Geänderter Typ",{"#", "Name", "Position", "Geb. / Alter.1", "Geb. / Alter.2", "Nat.", "Größe", "Fuß", "Im Team seit", "Vertrag", "Marktwert"})
in
    #"Neu angeordnete Spalten"

Bei Quelle einfach den Link anpassen.

Gruß Elex

[steve1da]

Zur Info...
https://www.computerbase.de/forum/thread...n.2047841/

[rate mit]

Hallo,

hier noch einmal die Tabellen... diesmal mit Finetuning...

[Elex]

Hi

auf Nachfrage hier der Code schon in der Datei.
Der Code passt zu der erweiterten Ansicht der Seite.

[rate mit]

@Elex

Bitte entschuldige die Nachfrage... solltest du da nicht auch noch ein wenig am Finetuning arbeiten? (Die Namen sind doppelt, es sind nicht alle Nationalitäten aufgeführt und der Marktwert ist auch nicht richtig ausgeführt... (lass mal nach dem größten und kleinsten sortieren...))

[Elex]

Hi

Ja, ein paar Einträge für die Natio fehlen. 
Rest?  In meiner Bsp. stimmen die Werte.
Hast du evtl. versucht andere Daten abzurufen? Wie sieht dein Code aus.



PS. Wie machst du eigentlich den Abruf und die Anpassungen? Ist in deiner Datei nicht ersichtlich.

Gruß Elex