Thema Datum  Von Nutzer Rating
Antwort
14.09.2019 14:59:08 jofed
NotSolved
Blau Spalten untereinander einfügen
 14.09.2019 19:49:02 Gast47345
*****
Solved
16.09.2019 17:21:08 jofed
NotSolved

Ansicht des Beitrags:
Von:
Gast47345		 Datum:
14.09.2019 19:49:02		 Views:
381		 Rating:
     
Antwort:
 Nein
Thema:
Spalten untereinander einfügen		 
Option Explicit

Public Sub Example()
  
  Dim rng   As Excel.Range
  Dim rngC  As Excel.Range
  Dim rngA  As Excel.Range
  
  'unser Datenbereich
  Set rng = Range("C1:F5")
  'Beispieldaten generieren
  rng.FormulaR1C1 = "=ROW(RC3)+" & rng.Rows.Count & "*(COLUMN()-COLUMN(RC3))"
  rng.Value = rng.Value 'Formelergebnisse -> Werte
  
  'Zelle die den Zielort angibt
  Set rngA = Range("A1")
  
  'spaltenweise (untereinander) kopieren
  For Each rngC In rng.Columns
    rngC.Copy rngA
    'neuer Zielort erhalten wir indem wir den aktuellen Zielort
    'um n Zeilen nach unten verschieben
    ' .. n ist bei uns die Zeilenanzahl der kopierten Spalte
    Set rngA = rngA.Offset(rngC.Rows.Count)
  Next
  
End Sub

PS: Kleiner Rat von mir:

Vergiss die Datentypen-Kürzel ("!", "%", usw.) ganz schnell - sind außerdem alle, außnahmslos durch die Bank weg, falsch gewählt.

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
14.09.2019 14:59:08 jofed
NotSolved
Blau Spalten untereinander einfügen
 14.09.2019 19:49:02 Gast47345
*****
Solved
16.09.2019 17:21:08 jofed
NotSolved