Office: In Array suchen und Werte ausgeben

Moinsen Rabauken,

ich hab mal ne Frage an Euch Experten und hoffe ihr könnt mir als ambitionierten Quereinsteiger weiterhelfen.

Ich würde das jetzt eigentlich mit einr Do while Schleife lösen, will mich aber auch mal weiterentwickeln und versuchen das über ein Array zu lösen.
Würde den ganzen Prozess höchst wahrscheinlich performanter machen.

Also hier das Problem:
Ich bekomme eine Auswertung aus einem HTML-Formular als *.xlsx in folgendem Format (ähnliches Beispiel als Anhang)

Ich habe jetzt schon die Namen und Projekte mit folgendem Code in ein Array gelesen:
(im Original fängt der Werte Bereich in Cells(6,2) an)

PHP:

         Public Function MatrixFüllen() As Variant()
Dim ZeileNr     As Integer
Dim SpalteNr    As Integer
Dim Matrix()    As Variant
Dim intZeileMatrix As Integer
Dim intSpalteMatrix As Integer

' Matrix auf Zeilen- und Spaltenzahl der Auswahl bringen
' Dabei soll jeder Index bei 1 beginnen
ReDim Matrix(1 To 67, 1 To 51)
intZeileMatrix = 1
intSpalteMatrix = 1
' Auswahl zeilenweise lesen
For ZeileNr = 6 To ActiveSheet.UsedRange.Rows.Count
' Auswahl spaltenweise lesen
For SpalteNr = 2 To ActiveSheet.UsedRange.Columns.Count - 1
With Cells(ZeileNr, SpalteNr)
If Not IsEmpty(.Value) Then
' Matrix elementweise füllen
Matrix(intZeileMatrix, intSpalteMatrix) = Cells(ZeileNr, SpalteNr).Value
'                Else
'                    ' Fehlermeldung ausgeben
'                    MsgBox "Zelle " & .Address & " enthält keine Zahl"
'                    Exit Function
End If
End With
intSpalteMatrix = intSpalteMatrix + 1
Next SpalteNr
intZeileMatrix = intZeileMatrix + 1
intSpalteMatrix = 1
Next ZeileNr

Rückgabewert der Funktion
MatrixFüllen = Matrix
End Function


:)

 

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
aussagekräftigen Dateinamen hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten

 

Moin HaJo,

Alles klar, danke für den Hinweis. Ich habe mal ne Beispieldatei angehängt.

Grüße Hauke

 

Gut ich kann Dir Leider nicht helfen, da bei mir eine XLSX Datei kein Makro enthält.
Viel Erfolg noch.

 

Moinsen nochmal,

Danke für den Hinweis. Ich habe jetzt mal ne Mustermappe erstellt.

Da ist mir auch noch gleich eine weitere Frage geekommen. Wie kann ich den Array dynamisch erstellen?
so etwa nach dem Motto: den Code:

PHP:

         ReDim Matrix(1 To 4, 1 To 17)


 

Hallöle, ich hab das Problem erstmal mit ner konventionellen Schleife gelöst. Hier der Code für die, die´s interessiert:

PHP:

         Sub Werteauslesen()
Dim i As Integer, iSpalte As Integer, intZeile As Integer
Dim strVorname As String, strNachname As String, strProject1 As String, strProject2 As String, strProject3 As String, strProject4 As String
Dim strProject5 As String
Dim rngZellwert As Range

iSpalte = 4
intZeile = 6
i = 1

Do While Cells(intZeile, 2).Value <> ""
strVorname = Cells(intZeile, 3).Value
strNachname = Cells(intZeile, 2).Value
For iSpalte = 4 To 51 Anzahl der Spalten
If IsEmpty(Cells(intZeile, iSpalte)) = True Then
iSpalte = iSpalte
ElseIf Cells(intZeile, iSpalte) = 1 And strProject1 = "" Then
strProject1 = Cells(5, iSpalte).Value
ElseIf Cells(intZeile, iSpalte) = 1 And strProject1 <> "" And strProject2 = "" Then
strProject2 = Cells(5, iSpalte).Value
ElseIf Cells(intZeile, iSpalte) = 1 And strProject1 <> "" And strProject2 <> "" And strProject3 = "" Then
strProject3 = Cells(5, iSpalte).Value
ElseIf Cells(intZeile, iSpalte) = 1 And strProject1 <> "" And strProject2 <> "" And strProject3 <> "" And strProject4 = "" Then
strProject4 = Cells(5, iSpalte).Value
ElseIf Cells(intZeile, iSpalte) = 1 And strProject1 <> "" And strProject2 <> "" And strProject3 <> "" And strProject4 <> "" And strProject5 = "" Then
strProject5 = Cells(5, iSpalte).Value
End If
Next
With Sheets("Ergebnisse")
.Cells(i, 1).Value = strVorname
.Cells(i, 2).Value = strNachname
.Cells(i, 3).Value = strProject1
.Cells(i, 4).Value = strProject2
.Cells(i, 5).Value = strProject3
.Cells(i, 6).Value = strProject4
.Cells(i, 7).Value = strProject5
End With

strProject1 = ""
strProject2 = ""
strProject3 = ""
strProject4 = ""
strProject5 = ""
intZeile = intZeile + 1
i = i + 1
Loop
End Sub


 

Hallöchen,

du hast dir wirklich Gedanken gemacht ... Respekt !!! *Smilie

Du musst nicht mühselig dein Array über Schleifen zusammenfitzeln.
Du kannst auch einfach das Array mit einer Range füllen.

DeinArray = Tabelle1.Usedrange

reicht theoretisch schon. Natürlich nicht so schön und auch fehleranfällig ... aber ginge.

 

Aloha,

danke für Deine Rückmeldung.

Hast Du noch ne Idee für mich, wie ich das Array auswerte? Vielleicht hab ich echt n Brett vorm Kopf, aber ich versteh halt net, wie ich die Werte aus dem Arry in die neue Tabelle bekomme. Wobei sozusagen die Werte je Zeile so gefüllt werden sollen, wie sie auch in der Matrix befüllt sind. Soll heisen, nur die befüllten Felder der Matrix sollen hintereinander auf einem anderen sheet ausgegeben werden.

HIer mal n Bild aus dem befüllten array

LG

 

Moin!
Hier mal dein Beispiel angepasst zur Ausgabe. Der Code gibt das jetzt in Tabelle1 aus, dass ggf. noch ändern. In der Function habe ich dir mal noch eine Zeile ergänzt, die zeigt, wie man dynamisch die Größe festlegt - alternativ zum Vorschlag vom FlottenFeger. Bei der Ausgabe gibt er dir dann aber nur die 1 hintereinander aus. Weiß nicht, ob es da besser wäre dort Projekt xy eintragen zu lassen. Kannst ja aber mal schauen.

Code:

VG

 

Moin,

vielen Dank für deine Rückmeldnug. Ich werde den Code heute abend testen. Ich wünsch erstmal einen schönen Sonntag.

 

Moin Matthias

super, funktioniert. Eine kleine Anpassung muss ich noch machen, da er mir zwar jetzt die Projekte dynamisch rauswirft und ich nicht vorher dimensionieren muss. Jedoch wirft er mir zwar pro Zeile Vor- und Nachname raus, aber halt jeweils immer nur die "1" als Spaltenhalter für das Projekt. Ich melde mich dann gleich nochmal mit dem fertigen Code. Vielen DAnk nochmal für die schnelle Hilfe.

Hauke

 

Ja coole Sache. Es ist geschafft.

Habe noch ne schfleife für die Name und die Projekte eingezogen, da die Namen sich ja ändern, die Projekte ja in der Überschrift (bei mir im Original HTML-File in Zeile 5 stehen. Jetzt klappts und ist super schnell. Hammer. Danke.

PHP:

          Matrix elementweise füllen
If SpalteNr > 3 Then
matrix(intZeileMatrix, intSpalteMatrix) = Cells(5, SpalteNr).Value
Else
matrix(intZeileMatrix, intSpalteMatrix) = Cells(ZeileNr, SpalteNr).Value
End If