In einer Spalte, hier A, sind Daten jeweils durch eine Leerzeile getrennt. Jeder Block soll nun transponiert also waagerecht rechts davon zeilenweise dargestellt werden.

 

Für kleine Datenmengen gibt es hier noch eine Formellösung: Formeln -> Blöcke transponieren

 

 

 

 

Der Code für ein allgemeines Modul. Der Code bearbeitet das jeweils aktive Tabellenblatt.

 

Public Sub Bloecke_transponieren()

'################################################

'Code für ein allgemeines Modul

'Autor: Jürgen Hennekes

'################################################

Dim lngQ As Long

Dim lngZ As Long

Dim intS As Integer

Dim lngLast As Long

 

lngLast = Cells(Rows.Count, 1).End(xlUp).Row

lngZ = 2

intS = 2

 

For lngQ = 2 To lngLast

  If Cells(lngQ, 1).Value <> "" Then

    Cells(lngZ, intS).Value = Cells(lngQ, 1).Value

    intS = intS + 1

      Else

    lngZ = lngZ + 1

    intS = 2

  End If

Next

 

MsgBox "Es wurden " & lngZ - 1 & " Blöcke erzeugt.", 64

 

End Sub