Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten auslesen aus Datenbank auswertung

Daten auslesen aus Datenbank auswertung
27.11.2017 12:05:18
Mario
Hallo ihr Excel Gurus da draußen
Habe glaube eine etwas schwerere Aufgabe für euch vorbereitet :D
bekomme folgende Datenbank Ausgabe
{"05714d86-63a5-4ce7-ad7a-41a87e47f1d0": {"step": 10}, "3d7ba949-5b7f-4832-9058-de2694580107": {"step": 10}, "be71f35c-126b-425c-b03c-ebc8ba33ff43": {"step": 10}, "fb1564eb-167e-4201-aea4-e4ed61d78199": {"step": 10}}
"05714d86-63a5-4ce7-ad7a-41a87e47f1d0" = die user id
{"step": 10} = die schritte die der User durchgemacht hat ( Step 0 - 10 )
es können in der Theorie auch 100 oder mehr user drinnen stehen also keine feste länge der Ausgabe gegeben
weiters habe ich als eine eigene Spalte eine creator id ausgabe, das heißt eine user id im dem text ist auch der creator z.b :"05714d86-63a5-4ce7-ad7a-41a87e47f1d0"
Zellen vorgabe können wir gerne Users : A1 machen und Creator id : A2 machen
ab A3 dann die Aufgabe
Meine Aufgabe:
1) Zelle A3 = creator id in der Ausgabe suchen und davon den Step Count ( {"step": 10}!!! nur die Zahl !!!) in Zelle ausgeben
2) Zelle A4 = 1 nicht creator User aus der Ausgabe suchen und davon Step Count ausgeben
Zelle A5 = 2 nicht creator user aus der Ausgabe suchen und davon Step Count ausgeben
Zelle A6 = 3 nicht creator .....

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten auslesen aus Datenbank auswertung
27.11.2017 12:46:01
ChrisL
Hi Mario
z.B....
Sub t()
Dim strTest As String, i As Integer
Dim ar1 As Variant, ar2 As Variant, arTemp As Variant
strTest = "Deine Datenbankausgabe als String"
ar1 = Split(strTest, ", ")
ReDim ar2(LBound(ar1) To UBound(ar1))
For i = LBound(ar1) To UBound(ar1)
arTemp = Split(ar1(i), ": ")
ar2(i) = Replace(arTemp(2), "}", "")
Next i
Range("A3:A" & UBound(ar2) + 3) = Application.Transpose(ar2)
End Sub

cu
Chris
Anzeige

345 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige