Thema Datum  Von Nutzer Rating
Antwort
06.09.2021 15:20:55 Sascha
NotSolved
Blau Tabelle in Zeilen und Spalten auflösen
06.09.2021 15:59:29 Mase
NotSolved
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:
Mase
Datum:
06.09.2021 15:59:29
Views:
372
Rating: Antwort:
  Ja
Thema:
Tabelle in Zeilen und Spalten auflösen

Skizze:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim cZeilen     As Excel.Range
Dim cSpalten    As Excel.Range
Dim rngZeilen   As Excel.Range
Dim rngSpalten  As Excel.Range
 
 
Set rngZeilen = Range("A2:A5"'*** geht natürlich auch dynamisch
 
 
For Each cZeilen In rngZeilen   '*** in Deinem Sheet entspricht diese dem blauen Pfeil "Zeile"
         
        For Each cSpalten In Range(Cells(1, 2), Cells(1, Columns.Count).End(xlToLeft)) '*** in Deinem Sheet entspricht diese Schleife dem blauen Pfeil Spalte
             
            Debug.Print cZeilen.Value & vbTab & cSpalten.Value & vbTab & cZeilen.Offset(0, cSpalten.Column - 1).Value   '*** hier entweder Array füllen oder direkt ins Arbeitsblatt schreiben
             
        Next cSpalten
         
Next cZeilen

 


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:



  • 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
Blau Tabelle in Zeilen und Spalten auflösen
06.09.2021 15:59:29 Mase
NotSolved
08.09.2021 10:40:57 Sascha
NotSolved
08.09.2021 14:29:32 Mase
*****
Solved
14.09.2021 09:06:14 Sascha
NotSolved