|
Hallo Mase,
herzliche Dank für deinen Ansatz. Irgendiwie haut das Ganze noch nicht ganz hin. Der Debug-Output spuckt unterschiedliche Arrays aus (Bewertung | Bewerter | der Bewertete)
Das spuckt mir Debug Print aus:
Name A / Name B Name A / Name B Name A / Name B
Name A / Name B 1.1 Christoph 1.1 Christoph
Name A / Name B 2.2 Wilhelm 2.2 Wilhelm
Name A / Name B 3.3 Hesham 3.3 Hesham
Name A / Name B 3.4 Tilo 3.4 Tilo
Name A / Name B 4.5 Martina 4.5 Martina
Name A / Name B 5.6 Niklas 5.6 Niklas
Name A / Name B 6.7 Torsten 6.7 Torsten
Name A / Name B 7.8 Janis 7.8 Janis
Name A / Name B 8.9 Stephan 8.9 Stephan
Wo liegt da der Fehler, dass der Zeilenwert / die Bewertung nicht mitgenommen wird? (1.1 Christoph; 2.2 Wilhelm; 8.9 Stephan und 9.11 Oliver)
Sub MatrixInListe()
Dim cZeilen As Excel.Range
Dim cSpalten As Excel.Range
Dim rngZeilen As Excel.Range
Dim rngSpalten As Excel.Range
Dim MatrixArr As Integer
Dim Z, r, c As Integer
Set rngZeilen = Range("A1:AA5")
Z = 3
For Each cZeilen In rngZeilen '*** "Zeile"--> "Bewertete Personen" = Name B
For Each cSpalten In Range(Cells(1, 2), Cells(1, Columns.count).End(xlToLeft)) '*** Spalte --> "Bewerter" = Name A
Debug.Print cZeilen.Value & vbTab & cSpalten.Value & vbTab & cZeilen.Offset(0, cSpalten.Column - 1).Value
' MatrixArr = cZeilen.Value & cSpalten.Value & cZeilen.Offset(0, cSpalten.Column - 1).Value
' Debug.Print MatrixArr
*** Mein Versuch direkt ins Arbeitsblatt Out zu schreiben
' Worksheets("Out").UsedRange.Value
' For r = LBound(MatrixArr, 1) + 1 To UBound(MatrixArr, 1)
' For c = LBound(MatrixArr, 2) To UBound(MatrixArr, 2)
' With SZ
' .Cells(Z, c) = Rng(r, c)
' End With
' Next
' Z = Z + 1
' Next
' Next
' End With
Next cSpalten
Next cZeilen
End Sub
|