VBA verändern

Forumthread: VBA verändern

VBA verändern

24.09.2024 13:44:32

Simon

Hallo...

Die VBA die ich habe läuft soweit ganz gut.
Nur leider gibt es jetzt ein Suchfehler wenn ich es so sagen kann...
Gesucht wird immer diese Zeile, wobei die Zahlenlänge mehr oder weniger sein kann.

Incoming: [1, 2, 4, 5, 9, 6, 3, 49, 7, 14, 11, 16, 13, 10, 8]

Gibt es eine Möglichkeit immer mach dieser Zeile zu suchen egal an welcher Stelle sie steht?
Es sucht jetzt nach den [] Klammern, das sind aber nicht immer die ersten in der Zwischenablage, es kann sein das es die 3. oder 5 oder oder erst sind...

Danke für Eure Hilfe

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA verändern

24.09.2024 13:53:26

Yal
AW: VBA verändern

24.09.2024 14:25:50

daniel
AW: VBA verändern

24.09.2024 13:56:20

daniel
AW: VBA verändern

24.09.2024 14:03:56

Simon
AW: VBA verändern

24.09.2024 15:02:00

Yal
AW: VBA verändern

24.09.2024 14:14:35

Onur

AW: VBA verändern

24.09.2024 13:53:26

Yal

Mein lieber Simon,

mach bitte diese Versuch: ignoriert alles, was Du über dein Problem weisst, und lese nochmal deine Aufgabenstellung.

Wenn Du irgendwas davon verstehst, dann hast Du dich nicht genug angestrengt, zu ignorieren, dass Du etwas weisst.

VG
Yal

AW: VBA verändern

24.09.2024 14:25:50

daniel

ok, ich bin ja nicht so:

Pos1 = Instr(txt, "Incoming")
Pos1 = Instr(Pos1, txt, "[")
Pos2 = Instr(Pos1, txt, "]")

durch die Eingabe einer Startposition als ersten Parameter beginnt Instr die Suche erst nach dem Zeichen erst ab dieser Position.
das kann man verwenden, wenn das gesuchte Zeichen mehrfach vorkommt und man nicht das erste Vorkommen dieses Zeichen benötigt, sondern erst ein späteres.
dann ermittelt man zuerst die Position eines Zeichen oder Zeichenfolge, die eindeutig ist und die direkt vor demjenigen Zeichen steht, dass man sucht.
das gleiche hast du in deinem bisherigen Code, wo zuerst nach "Level" gesucht wird und nach dem Komma, das nach dem "Level" kommt und welches das Ende der Zeichenfolge markiert, die zu "Level" gehört.

Gruß Daniel

AW: VBA verändern

24.09.2024 13:56:20

daniel

wenn Simon sich anstrengen wollte, hätte er sich den Code, den von mir bekommen hat, mal genauer angeschaut und versucht zu verstehen.
Wenn er das gemacht hätte, dann hätte er sich aus dem vorhandenen Code eine Lösung ableiten können, weil dort ein ähnliches Problem auftaucht.
Gruß Daniel

AW: VBA verändern

24.09.2024 14:03:56

Simon

Danke für die Info...
Ich weiß das ich nicht viel davon Verstehe, ist halt nicht mein Gebiet...
Werde aber Versuchen zu lernen..

Simon

AW: VBA verändern

24.09.2024 15:02:00

Yal

Nun ja, einen Verweis auf dem vorigen Thread wäre auch nicht verkehrt gewesen. Woher sollen wir wissen, was bisher geschah:
https://www.herber.de/forum/archiv/1988to1992/1991801_Rechnet_nicht_nach_Einfuegen_aus_Zwischenablage.html

Nun zum Problem:
wenn schon ein JSON per VBA behandeln, dann vielleicht mit dem JSON-Parser: https://github.com/VBA-tools/VBA-JSON
Was leider schon noch mehr VBA-Kompetenz erfordert.

Anderer Weg, eher Anfänger-tauglich:
wenn auch noch die Quelle immer als Textdatei vorliegt, dann diese JSON über Power Query verarbeiten:
Menü "Daten", "Daten abrufen", "aus Datei", "von JSON"
Dann ein bisschen Drill-down auf "Body", "StorageInfo" und "Incoming" machen, in Tabelle konvertieren und schon hat man eine saubere Auflistung in Excel.

Der M-Code sieht so aus:

let

    Quelle = Json.Document(File.Contents("C:\temp\H_Forum\Json_test.txt")),

    Body = Quelle[Body],

    StoragesInfo = Body[StoragesInfo],

    Incoming = StoragesInfo[Incoming],

    #"In Tabelle konvertiert" = Table.FromList(Incoming, Splitter.SplitByNothing(), null, null, ExtraValues.Error)

in

    #"In Tabelle konvertiert"

VG
Yal

AW: VBA verändern

24.09.2024 14:14:35

Onur

"Werde aber Versuchen zu lernen"
Vielleicht auch mal zu lernen, Probleme so zu beschreiben, dass es auch Andere verstehen ?
Den Code zu posten wäre z.B. auch sehr hilfreich dabei....

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA verändern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread