Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Spalten Transponieren
 01.11.2014 20:25:41 Paulo Borges
NotSolved
01.11.2014 22:15:55 Gast76804
NotSolved
02.11.2014 00:55:18 Paulo Borges
NotSolved
02.11.2014 20:52:23 Gast51409
NotSolved
02.11.2014 06:09:03 Gast12706
Solved

Ansicht des Beitrags:
Von:
Paulo Borges		 Datum:
01.11.2014 20:25:41		 Views:
1302		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Spalten Transponieren
Hallo Freunde,
 
mit folgenden Code der gut funktioniert transponiere ich eine spalte "18" (Kalendermonat 1) von zeile 16 bis 46 (Tag 1-31) in ein neues blatt namens Export bereich A1:AE1.
 
Nun habe ich 12 Spalten (12 Monate) angefangen ab spalte 18 jede 3 Spalte also Spalte (18-21-24-27......bis 51) und 28 bis 31 Zeilen je nach monat.
 
Wie kann ich alle in eine zeile transponieren.
 
Vielen Dank
 
Sub Transponieren()
Dim vntQuelle, vntZiel
Dim lngSpalte As Long, lngZeile As Long

vntQuelle = Worksheets("4081").Range("R16:R46")
vntZiel = Worksheets("Export").Range("A1:AE1")

For lngSpalte = 1 To 31 ' Step 3
    lngZeile = lngZeile + 1
    vntZiel(1, lngSpalte) = vntQuelle(lngZeile, 1)
Next
Worksheets("Export").Range("A1:AE1").Value = vntZiel

End Sub
 
Gruß Paulo

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
Rot Mehrere Spalten Transponieren
 01.11.2014 20:25:41 Paulo Borges
NotSolved
01.11.2014 22:15:55 Gast76804
NotSolved
02.11.2014 00:55:18 Paulo Borges
NotSolved
02.11.2014 20:52:23 Gast51409
NotSolved
02.11.2014 06:09:03 Gast12706
Solved