Spalten und Zeilen per VBA vertauschen

[Thorsten.]

Moin,

ich hab ein kleines Problem und ich hoffe ihr könnt mir da weiterhelfen. 

Ich habe eine Datei (siehe Datei Excel1
  Excel1.xlsx (Größe: 10,4 KB / Downloads: 9) ). Bei dieser können die Werte bis tausend und höher nach unten gehen bzw. sich fortsetzten.
Nun würde ich gerne das nach dem Klick auf einen CommandoButton die Datei wie folgt aussieht (Excel2
  Excel2.xlsx (Größe: 10,42 KB / Downloads: 5) ).

Wie das ganze bei wenigen Zeilen funktioniert weis ich bzw. hatte ich schon umgesetzt über Range Cut und Copy. Da es sich allerdings nachher um wesentlich mehr Bereiche handelt, kann ich das so nicht fortsetzten.

Ich hoffe ihr könnt mir da weiterhelfen.



Schöne Grüße

Thorsten

[Gast 123]

Hallo Thorsten,

im Augenblick verstehe ich nicht so ganz den Sinn von Excel1.  Ist eine Auflistung so wie ich sie zeige nicht sinnvoller???
Anbei die Beispieldatei mit einem funktionierenden Makro zurück.  Die Spaltenbreite A-D kann variabel eingestellt werden.

mfg  Gast 123

[Ego]

Hallo Thorsten

eine Version von mir:

Code:

Option Explicit

Private Sub cbTuwat_Click()
Dim lngZL As Long
Dim lngZA As Long
Dim lngSL As Long
Dim varListe As Variant
Dim varAusgabe() As Variant

ThisWorkbook.Names("Ausgabe").RefersToRange.CurrentRegion = ""
varListe = ThisWorkbook.Names("Liste").RefersToRange.CurrentRegion.Value
ReDim varAusgabe(1 To UBound(varListe, 1) * UBound(varListe, 2) / 2, 1 To 2)
lngZA = 0
For lngZL = 1 To UBound(varListe, 1) - 1 Step 2
    For lngSL = 1 To UBound(varListe, 2)
        lngZA = lngZA + 1
        varAusgabe(lngZA, 1) = varListe(lngZL, lngSL)
        varAusgabe(lngZA, 2) = varListe(lngZL + 1, lngSL)
    Next lngSL
Next lngZL

ThisWorkbook.Names("Ausgabe").RefersToRange.Resize(UBound(varAusgabe, 1), 2) = varAusgabe
End Sub

[Thorsten.]

Ich danke für die Antwort, hat geklappt.

Lg

Thorsten


Eintrag geschlossen