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:
294		 Rating:
     
Antwort:
  Ja
Thema:
Tabelle in Zeilen und Spalten auflösen

Skizze:

    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