Powerapps: Get table data from a JSON array

The space beside the form fields! You can see about 50% is white space. I've edited it using JSON rather than powerapps FYI.
<br />

diese weiterführenden Informationen sind sehr hilfreich. Aber ich muss mir diese erst an Hand Deiner Erklärungen erarbeiten.

Okay, freut mich zu hören. Dann leg ich nochmal ein einfaches funktionierendes Beispiel nach, wo man nur mit einem Array und ohne Formeln in der Tabelle auskommt.

Kopier den Code unten mal in eine neue Datei und lass Test einfach mal laufen. Wenn der Code anhält, dann kuck mal in das Tabellenblatt, das sind die Ausgangsdaten.

Dann debug den Code mal und schau Dir die Kommentare an, so könntest Du es auch machen. Ist sogar vielleicht einfacher zu verstehen?

Naja, wer die Qual hat... )

Andreas.

Option Explicit

Option Compare Text

Sub Test()

Dim Data

Dim i As Long, j As Long



'Zufallsdaten generieren

ReDim Data(1 To 20, 1 To 5)

For i = 1 To UBound(Data)

For j = 1 To UBound(Data, 2)

Data(i, j) = Int(Rnd * 9) + 1

Next

Next

'Überschriften

For j = 1 To UBound(Data, 2)

Data(1, j) = Chr(64 + RandomUnique(1, UBound(Data, 2)))

Next

'In die Tabelle

Range("A1").Resize(UBound(Data), UBound(Data, 2)) = Data



'Angenommen ich vergesse jetzt mal was ich grad gemacht habe

Stop



'Ich weiß das in der 1. Zeile der Daten die Überschriften steht

'Und ich soll A+C*E für jede Zeile rechnen



Const MyF = "=A+C*E"

Dim A As Long, C As Long, E As Long

Dim Temp As String



'Den Datenblock einlesen

Data = Range("A1").CurrentRegion



'Jetzt suche ich im Array die Überschriften und merke mir die Spalte

For j = 1 To UBound(Data, 2)

Select Case Data(1, j)

Case "A": A = j

Case "C": C = j

Case "E": E = j

End Select

Next



'Spalte hinzufügen

ReDim Preserve Data(1 To UBound(Data), 1 To UBound(Data, 2) + 1)

'Überschrift

Data(1, UBound(Data, 2)) = "Ergebnis " & MyF

For i = 2 To UBound(Data)

'Die Formel zusammenbauen

Temp = MyF

Temp = Replace(Temp, "A", Data(i, A))

Temp = Replace(Temp, "C", Data(i, C))

Temp = Replace(Temp, "E", Data(i, E))

'Und ausrechnen

Data(i, UBound(Data, 2)) = Application.Evaluate(Temp)

Next



'In die Tabelle zurück

Range("A1").Resize(UBound(Data), UBound(Data, 2)) = Data

End Sub

Private Function RandomUnique(ByVal Lo As Long, ByVal Hi As Long, _

Optional Reset As Boolean = False) As Long

Static Dict As Object 'Dictionary

'Init dictionary if necessary

If Dict Is Nothing Then Set Dict = CreateObject("Scripting.Dictionary")

'Remove all used numbers if forced from outside

If Reset Then Dict.RemoveAll

Do

'Get a random number

RandomUnique = Int((Hi - Lo + 1) * Rnd) + Lo

'Already used?

Loop Until Not Dict.Exists(RandomUnique)

'Remember it

Dict.Add RandomUnique, 0

'Automatic reset if all numbers used

If Dict.Count > Hi - Lo Then Dict.RemoveAll

End Function

Nach Farben kannst Du nicht filtern. Schreib in Spalte B r für rot, b für blau, s für schwarz und verwende eine Bedingte Formatierung, das geht und ist für die Handhabung auch einfacher.
Die eingeschobenen Zeilen mit der Jahreszahl machen das Leben nur unnötig schwer, bitte löschen. Wenn man die Daten dann als Tabelle formatiert kann man sich sehr einfach nach dem Jahr filter, mit z.B. einen Datenschnitt.
Create and format tables - Office Support
Use slicers to filter data - Office Support
Nach diesen Änderungen erübrigt sich Erfahrungsgemäß meistens das Aufsplitten in mehrere Dateien. Andernfalls benutze Power Query und importiere die Daten aus der Hauptmappe und setze die benötigten Filter gleich dort. Kuck mal hier, das geht auch mit Dateien:
Import from an Excel Table
Bei Änderungen kann man diese Mappe nun via Daten \ Alles Aktualisieren updaten oder in der Query so einstellen das dies automatisch beim Öffnen der Datei passiert.
Aber wie gesagt, aufsplitten ist, idR unnötig. Lade die Daten ggf. in ein Datenmodell (auch mit PQ und filtere ggf. Daten heraus) und lade die restlichen Daten in ein Datenmodell, das kann man dann zur Datenanalyse verwenden, in z.B. Pivottabellen.
Create a Data Model in Excel
Create a PivotTable to analyze worksheet data - Office Support
Andreas.

Sure, apply a data validation list to the cells

https://support.office.com/en-us/article/apply-...

So you can setup a list for each cells and get e.g. "frog" in the cell.

Now you can setup a table and search with VLOOKUP for "frog" and return the right value. (Or you can have a 1 into a cell and use VLOOKUP to return "frog").

https://support.office.com/en-us/article/vlooku...

Andreas.

Good day,
<br />Please have a look at the solution here.
<br />Solved: Remove white space from SP - Power Platform Community (microsoft.com)
<br />Pleae try to create the form from PowerApps
<br />Looking forward hearing from you
<br />Kind regards
<br />Wolf Fabian Spohr
<br />Microsoft Office 365 Business Support
<br />