VBA ändern, verbessern

Simon · 2024-10-04T15:12:44+00:00

Hallo. Leider sind wir jetzt auf ein Problem gestoßen. Wir haben folgenden Text in der VBA: 'text zwischen eckigen Klammern ermitteln Pos1 = InStr(txt, "Incoming") Pos1 = InStr(Pos1, txt, "[") Pos2 = InStr(Pos1, txt, "]") dieser geht in Edge, Chrome leider aber nicht in FireFox. Dort gibt es Incoming leider 2x wobei das erste leer ist und wir dann dort keine Daten bekommen. Kann man es so erweitern das wenn keine Zahlen in der [ ] sehen das er dann zum nächsten Incoming geht und diesen nimmt zur Verarbeitung. Danke für Eure Hilfe. VG Simon

Moin Simon,

Wenn ich mich recht erinnere, ist dir einen Tipp in Richtung JSON-Parser Bibliothek gegeben worden.
Warum noch weiter in deiner Bastelei Richtung schmoren?

Zugegeben ist es die Meinung von jemand, der zuerst vieles "per Hand" versucht hat. Dann kommt man auf dem Gedanken, dass sicher jemand dieselbe Problem schon hatte und setzt dann auf die Wiederverwendung von Standards. Du würdest damit einige unnötige Schritten überspringen.

Mit der JSON-Parser Bib kannst Du schnell die beiden "Incoming"-Array (in json durch [ ] eingegrenzt) isolieren und testen, ob einen Inhalt vorhanden ist.
Die investierte Zeit, json zu verstehen, ist weittragender als in der Bastelei zu verharren.

VG
Yal

Guten morgen,

mit ein bisschen Eifer und Kreativtität in deiner liebste Suchmaschine hättest Du vielleicht entdeckt, wie man in Excel 2016 JSON mit Power Query behandelt.

Hier ein Leitpfaden, der auch in 2016 funktionieren sollte:
- nehme eine freie Zelle, gibt diese einen Namen, z.B. "json"
- füge der Inhalt der Zwischenablage in diese Zelle, und zwar über die Formel-Verarbeitungsleiste, um sicherzustellen, dass der gesamte JSON- in einer einzige Zelle reinkommt,
- markiere diese Zelle,
- im Menü "Daten", "aus Tabelle/Bereich" anklicken,
- Du bist im Power Query und der Anfang der JSON ist sichtbar,
- im Menü "Transformieren", "Analysieren", "aus JSON"
- in der Überschrift der Spalte "Body" auf der Expand-Schaltfläche (doppelte auseinandergehende Pfeile) klicken, nur Element "StoragesInfo" anhaken,
- in der Überschrift der Spalte "Incoming" rechtsklicken und "andere Spalten entfernen"
- in der Überschrift der Spalte "Incoming" auf der Expand-Schaltfläche "auf neue Zeilen ausweiten"
- Menü "Datei", "Schliessen & laden"
Fertig.

Um den direkten Zugriff auf die originale Webseite einzubauen (Onur hat dir bereits ein Beispiel gegeben), und somit das Thema Zwischenablage ad acta zu befördern, siehe https://excelhero.de/power-query/power-query-ganz-einfach-erklaert

VG
Yal

Forumthread: VBA ändern, verbessern

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

VBA ändern, verbessern

Forumthread: VBA ändern, verbessern

38 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

38
Beiträge zum Forumthread

Beiträge zu diesem Forumthread