Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Power Query Dyn. Quelle

Forumthread: Power Query Dyn. Quelle

Power Query Dyn. Quelle
09.09.2022 16:00:19
kili
Guten Tag.
Die Zelle A1 enthält einen dynamischen Pfad.
Diesen Pfad möchte ich jetzt 1zu1 als Quelle in Power query übergeben.
Hat hier jemand eine Idee.
Gruß kili_jr2
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Power Query Dyn. Quelle
09.09.2022 20:58:23
kili
Also, so sieht mein Pfad in Zelle A1 aus (A1 habe ich den Namen "Pfad" zugewiesen).
Json.Document(Web.Contents(https://api.binance.com/api/v1/klines?symbol=DOTUSDT&interval=1d&limit=100
Dieser Pfad soll jetzt so als Quelle in PQ rein.

let
Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}
in
Quelle
funktioniert aber nicht :-(
Anzeige
AW: Power Query Dyn. Quelle
09.09.2022 21:27:54
Yal
Hallo Kili,
Fast. Du darfst nicht die Power Query Anweisung und die Parameter-Wert vermischen.

let
Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
Json = Json.Document(Web.Contents(Quelle{0}[Column1]))
in
Json
sollte eher passen. Dafür steht in A1 nur noch
https://api.binance.com/api/v1/klines?symbol=DOTUSDT&interval=1d&limit=100
Es wird gemekert, dass eine Anmeldung erforderlich sei. Einfach "anonym" anklicken.
Man kann auch komprimieren:

let
Quelle = Json.Document(Web.Contents(Excel.CurrentWorkbook(){[Name="Pfad"]}[Content]{0}[Column1]))
in
Quelle
Oder Schritt für Schritt auseinander:

let
Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
Column1 = Quelle{0}[Column1],
Json = Json.Document(Web.Contents(Column1))
in
Json
VG
Yal
Anzeige
AW: Power Query Dyn. Quelle
09.09.2022 21:40:48
kili
Absolut mega Yal.
Genau so habe ich es benötigt. Du bist der Allerbeste!
Beste Grüße
kili
AW: Power Query Dyn. Quelle
10.09.2022 09:54:59
Luschi
Hallo Kili,
verrätst Du uns auch noch, wie Du die 100 Einzellisten der Gesamtliste aufgedröselt hat in 1 Gesamttabelle oder in 100 Einzeltabellen?
fragt sich Luschi
aus klein-Paris
Anzeige
AW: Power Query Dyn. Quelle
10.09.2022 16:34:59
kili
@Luschi
In eine Tabelle mit 100 Zeilen.
Userbild

AW: Power Query Dyn. Quelle
10.09.2022 18:00:39
Luschi
Hallo Kili,
wenn ich per PQ die angegebene I-Net-Adresse abfrage erhalte ich 1 'Liste in Liste'-Ergebnis. Es sind zwar auch 100 Listen, aber die Daten darin sind ganz andere und da Listen keine Teil-Überschriften haben, kann ich Dein Tabellenergebnis nicht nachvollziehen.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Power Query Dyn. Quelle
10.09.2022 18:47:53
kili
Ich verstehe nicht, was Du meinst. Die Rohdaten haben natürlich keine Überschrift.
Hier hast Du mal die Arbeitsmappe. Ist noch nicht fertig. Grüner Stern startet das Diagramm (akt. alle 5 Sek.). Roter Stern stoppt es.
https://www.herber.de/bbs/user/155102.xlsm
Anzeige
AW: Power Query Dyn. Quelle
10.09.2022 19:09:34
kili
@Luschi
Da war noch ein Fehler drinnen. Hat den Bereich verschoben. Lösche mal die Spalte J in Tabelle Abfrage. So sieht es dann aus:
Userbild
AW: Power Query Dyn. Quelle
12.09.2022 07:36:10
Luschi
Hallo Kili,
danke für die Bereitstellung Deines M-Codes. Es hatte mich interessiert, wie Du das Problem 'Listen in Liste' auflöst:
- ja, das kann man so machen, obwohl mir scheint, da ist mehr 'Zeigen was geht' als Effektivität drin
- trotzdem ist das sehr interessant für mich, da ich mich gerade verstärkt mit Listen beschäftige
- meine Einwände:
  1. Listenwerte in Gesamtstring ohne Trennzeichen verbinden
  2. dieses Gesamtstring sofort wieder zu Splitten
  3. dabei das Dezimalkomma als Trennposition verwenden, welches dabei ja verloren geht
  4. das Dezimalkomma wieder hinzufügen und aus 2 Listenwerten den eigentlichen Wert ermitteln
  5. was da eigentlich passiert, habe ich Dir in der Abfrage 'test_XX' mal aufgedröselt
Aber nix für ungut, es ist immer wieder interessant, in fremde M-Kochtöpfe zu schauen. Natürlich habe ich auch ein Abfrage-Variante erstellt, um zu zeigen, wie das das Problem angehe.
https://www.herber.de/bbs/user/155112.xlsm
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Power Query Dyn. Quelle
12.09.2022 08:25:42
Eifeljoi5
Hallo Luschi
Ich muss sagen da hast du wiederum (wie immer, von wem sonst) eine super tolle Lösung raus gebracht.
AW: Power Query Dyn. Quelle
12.09.2022 08:44:01
ChrisL
Hi all
Wertfrei im Sinne einer weiteren Spielart (mit pivotieren):
- Index über alle Zeilen hinzufügen.
- Mittels benutzerdefinierter Spalte werden die Listen in Tabellen umgewandelt und im gleichen Schritt ein Index für jede Liste hinzugefügt.
- Listen in Zeilen extrahieren
- Pivotieren
- Die Typenkonvertierung und Umbenennung der Spalten habe ich mir gespart

let
Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
Json = Json.Document(Web.Contents(Quelle{0}[Column1])),
#"In Tabelle konvertiert" = Table.FromList(Json, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Hinzugefügter Index" = Table.AddIndexColumn(#"In Tabelle konvertiert", "Index", 0, 1, Int64.Type),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Hinzugefügter Index", "Benutzerdefiniert", each Table.AddIndexColumn(Table.FromList([Column1], Splitter.SplitByNothing(), null, null, ExtraValues.Error),"Index",1)),
#"Entfernte Spalten" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"Column1"}),
#"Erweiterte Benutzerdefiniert" = Table.ExpandTableColumn(#"Entfernte Spalten", "Benutzerdefiniert", {"Column1", "Index"}, {"Benutzerdefiniert.Column1", "Benutzerdefiniert.Index"}),
#"Pivotierte Spalte" = Table.Pivot(Table.TransformColumnTypes(#"Erweiterte Benutzerdefiniert", {{"Benutzerdefiniert.Index", type text}}, "de-CH"), List.Distinct(Table.TransformColumnTypes(#"Erweiterte Benutzerdefiniert", {{"Benutzerdefiniert.Index", type text}}, "de-CH")[Benutzerdefiniert.Index]), "Benutzerdefiniert.Index", "Benutzerdefiniert.Column1")
in
#"Pivotierte Spalte"
cu
Chris
Anzeige
AW: Power Query Dyn. Quelle
12.09.2022 10:19:28
kili
Hallo Luschi, hallo Chris,
ja, den Code habt ihr super verkürzt. Werd' nachher mal mittels VBA-Stoppuhr messen, welcher schneller ist.
Ich hatte das Ganze schonmal in VBA geschrieben, da hat die Abfrage immer so 1,6 sek. gedauert. In PQ ist es schon deutlich schneller.
Das Ganze soll übrigens ein Bot werden. Nach Anbindung an der Börse, soll excel eigenständig kaufen und verkaufen.
Userbild
Gruß kili
PS: Falls jemand sowas auch basteln möchte, die API für Binance findet ihr hier: https://binance-docs.github.io/apidocs/spot/en/#introduction
Anzeige
AW: Power Query Dyn. Quelle
12.09.2022 11:16:24
ChrisL
Hi kili
Danke für die Rückmeldung und fürs Teilen.
cu
Chris
AW: Power Query Dyn. Quelle
19.09.2022 16:34:34
kili
Binance hat mal wieder die api geändert. Jetzt kann ich keine Order setzen. Den Fehler find ich aber auch nicht.
Hat hier jemand ´ne Lösung?

Sub Runna()
Dim burl As String
Dim endpoint As String
Dim dataquery As String
Dim keys As keys
Dim signature As String
Dim url As String
Let burl = "https://api.binance.com"
Let endpoint = "/api/v3/order"
Let dataquery = "symbol=BNBTRY&side=BUY&type=LIMIT&timeInForce=GTC&quantity=0.004&price=4500&recvWindow=>20000&timestamp=" & DateDiff("s", "1/1/1970 00:00:00", Now() - 1 / 24)
Let keys.akey = "your_api_key_here"
Let keys.skey = "your_secret_key_here"
Let signature = HMACSHA256(dataquery, keys.skey)
Let url = burl & endpoint & "?" & dataquery & "&signature=" & signature
Set m_x = New cXMLHTTPEV
With m_x.MyXMLRequest
Call .Open("POST", url, True)
Call .setRequestHeader("X-MBX-APIKEY", keys.akey)
Call .send
End With
End Sub

Anzeige
;
Anzeige

Infobox / Tutorial

Power Query mit dynamischer Quelle nutzen

Schritt-für-Schritt-Anleitung

Um einen dynamischen Pfad in Power Query zu verwenden, kannst Du die folgenden Schritte befolgen:

  1. Pfad in Zelle definieren: Trage den gewünschten Pfad oder die URL in eine Zelle ein, z.B. A1. Benenne diese Zelle als "Pfad".

  2. Power Query öffnen: Wähle im Excel-Menü "Daten" > "Abfrage abrufen" > "Aus anderen Quellen" > "Leere Abfrage".

  3. Abfrage-Editor öffnen: Im Power Query Editor kannst Du nun den M-Code eingeben.

  4. M-Code verwenden: Verwende den folgenden Code, um die Quelle dynamisch zu setzen:

    let
   Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
   Json = Json.Document(Web.Contents(Quelle{0}[Column1]))
in
   Json

  5. Daten laden: Klicke auf "Schließen & Laden", um die Daten in dein Excel-Arbeitsblatt zu laden.

Häufige Fehler und Lösungen

  • Fehler: "Anmeldung erforderlich": Wenn Du beim Abrufen der Daten die Meldung erhältst, dass eine Anmeldung erforderlich ist, klicke einfach auf "anonym".

  • Unerwartete Ergebnisse: Wenn Du nicht die erwarteten Daten erhältst, überprüfe, ob der Pfad in der Zelle korrekt ist und dass die API oder Quelle verfügbar ist.

  • Listen in Listen: Um das Problem von "Listen in Liste" zu beheben, kannst Du die Daten mit der Funktion Table.FromList umwandeln. Hier ein Beispiel:

    let
   Quelle = Excel.CurrentWorkbook(){[Name="Pfad"]}[Content],
   Json = Json.Document(Web.Contents(Quelle{0}[Column1])),
   Tabelle = Table.FromList(Json, Splitter.SplitByNothing(), null, null, ExtraValues.Error)
in
   Tabelle

Alternative Methoden

Eine andere Methode zur Verwendung eines dynamischen Pfades in Power Query ist die Nutzung von Parametern. Du kannst einen Parameter aus einer Zelle erstellen, um den Pfad dynamisch zu ändern:

  1. Parameter erstellen: Gehe zu "Home" > "Manage Parameters" > "New Parameter".
  2. Parameter definieren: Setze den Typ auf "Text" und weise den Wert der Zelle A1 zu.
  3. Parameter im M-Code nutzen: 
    let
   Quelle = Json.Document(Web.Contents(Parametername))
in
   Quelle

Praktische Beispiele

Hier sind einige praktische Anwendungen für die Nutzung einer dynamischen Quelle in Power Query:

  • Daten von APIs abrufen: Du kannst dynamische Pfade nutzen, um Daten von verschiedenen APIs zu importieren, z.B. von Binance oder anderen Finanzdaten-Quellen.

  • Dynamische Ordnerabfragen: Du kannst auch eine dynamische Ordnerabfrage erstellen, um alle Dateien in einem bestimmten Ordner zu laden. Verwende dazu den M-Code:

    let
   Quelle = Folder.Files(Excel.CurrentWorkbook(){[Name="Pfad"]}[Content]{0}[Column1])
in
   Quelle

Tipps für Profis

  • Verwendung von Variablen: Nutze Variablen, um deinen M-Code übersichtlicher zu gestalten und um mehrfach verwendbare Werte zu speichern.

  • Bedingte Abfragen: Implementiere bedingte Logik, um die Quelle basierend auf bestimmten Kriterien zu wechseln.

  • Performance optimieren: Achte darauf, dass Deine Abfragen effizient sind, um die Ladezeiten zu minimieren.

FAQ: Häufige Fragen

1. Wie kann ich einen Pfad als Parameter in Power Query nutzen?
Du kannst einen Parameter erstellen, der auf den Wert einer Zelle verweist. Dadurch kannst Du den Pfad dynamisch ändern, ohne den M-Code anpassen zu müssen.

2. Funktioniert dieser Ansatz in allen Excel-Versionen?
Dieser Ansatz sollte in den neueren Versionen von Excel (Excel 2016 und später) funktionieren, die Power Query unterstützen. Achte darauf, dass Du die aktuelle Version verwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige