So transponieren sie einen bereich in vba (mit beispiel)

Sie können die folgende grundlegende Syntax verwenden, um einen Bereich mit VBA zu transponieren:

 SubTransposeRange ()

    'specify range to transpose
    MyRange = Range(" A1:B5 ")
    
    'find dimensions of range
    XUpper = UBound(MyRange, 1)
    XLower = LBound(MyRange, 1)
    YUpper = UBound(MyRange, 2)
    YLower = LBound(MyRange, 2)
    
    'transpose range
    Range(" D1 ").Resize(YUpper - YLower + 1, XUpper - XLower + 1).Value = _
      WorksheetFunction.Transpose(MyRange)
      
End Sub

In diesem speziellen Beispiel werden die Zellen im Bereich A1:B5 transponiert und der transponierte Bereich beginnend in Zelle D1 angezeigt.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: So transponieren Sie einen Bereich in VBA

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der Informationen über verschiedene Basketballspieler enthält:

Nehmen wir an, wir möchten den Bereich A1:B5 transponieren und den transponierten Bereich beginnend in Zelle D1 anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubTransposeRange ()

    'specify range to transpose
    MyRange = Range(" A1:B5 ")
    
    'find dimensions of range
    XUpper = UBound(MyRange, 1)
    XLower = LBound(MyRange, 1)
    YUpper = UBound(MyRange, 2)
    YLower = LBound(MyRange, 2)
    
    'transpose range
    Range(" D1 ").Resize(YUpper - YLower + 1, XUpper - XLower + 1).Value = _
      WorksheetFunction.Transpose(MyRange)
      
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass der transponierte Bereich beginnend in Zelle D1 angezeigt wird.

Mit anderen Worten: Die Zeilen und Spalten sind vertauscht.

Um einen anderen Bereich zu transponieren, ersetzen Sie einfach A1:B5 im Makro durch einen anderen Bereich.

Hinweis : Die vollständige Dokumentation zur VBA- Transpose -Methode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie Zellen mit bestimmtem Text
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen