Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Blöcke transponieren
 
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
 
 
Tabelle1
 ABCDE
1     
2aabc 
3bde  
4cfg  
5 hij 
6d    
7e    
8     
9f    
10g    
11     
12h    
13i    
14j    
15     
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
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