Thema Datum  Von Nutzer Rating
Antwort
06.09.2021 15:20:55 Sascha
NotSolved
06.09.2021 15:59:29 Mase
NotSolved
Rot Tabelle in Zeilen und Spalten auflösen
 08.09.2021 10:40:57 Sascha
NotSolved
08.09.2021 14:29:32 Mase
*****
Solved
14.09.2021 09:06:14 Sascha
NotSolved

Ansicht des Beitrags:
Von:
Sascha		 Datum:
08.09.2021 10:40:57		 Views:
332		 Rating:
     
Antwort:
  Ja
Thema:
Tabelle in Zeilen und Spalten auflösen

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) 
 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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


 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.09.2021 15:20:55 Sascha
NotSolved
06.09.2021 15:59:29 Mase
NotSolved
Rot Tabelle in Zeilen und Spalten auflösen
 08.09.2021 10:40:57 Sascha
NotSolved
08.09.2021 14:29:32 Mase
*****
Solved
14.09.2021 09:06:14 Sascha
NotSolved