Clever-Excel-Forum

Moin,

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

Ich habe eine Datei (siehe Datei Excel1 [attachment=24891]). 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 [attachment=24892]).

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

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

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

Ich danke für die Antwort, hat geklappt.

Lg

Thorsten

Eintrag geschlossen

Thorsten.

Gast 123

Ego

Thorsten.