Office: (Office 2007) Datenbereich, die nebeneinander stehen, untereinander anordnen

erpe · 31. Juli 2016

Hallo,
sei nicht so geizig mit Deinen Auskünften.

Dieser blöde Spruch hat sich so verbreitet, dass man hier zig-mal nachfragen muss, damit man endlich weiß, was gemeint ist.

Wie breit ist der Bereich von A1 - Ax?
Wie lang ist der Bereich von A1 - x?
Ändern sich diese Bereiche?
Sind Leerzeilen, -spalten dazwischen?
Ab wo soll das Ergebnis stehen?

Gruß
Rainer

OfficeUser · 12. Januar 2021

Moin!
Trotz des Geizes mal ein Ansatz für vier Spalten ohne Leerzeilen:

A B C D E F G H I J K L M N O P
1 a1 a2 a3 a4 a1 a2 a3 a4 b1 b2 b3 b4 c1 c2 c3 c4
2 b1 b2 b3 b4
3 c1 c2 c3 c4
Zelle Formel
E1 =INDEX($A:$D;ABRUNDEN(SPALTE(D1)/4;0);REST(SPALTE(D1);4)+1)
F1 =INDEX($A:$D;ABRUNDEN(SPALTE(E1)/4;0);REST(SPALTE(E1);4)+1)
Excel Tabellen im Web darstellen >>

RPP63 · 31. Juli 2016

Aha!
Ich sehe gerade:
Erst waren es drei,
dann fünf
und schließlich vier Spalten *eek.gif*
Bin raus, anpassen kannst Du meine obige Formel ja sicherlich selbständig.

Gruß Ralf

erpe · 31. Juli 2016

Lösung mit VBA:

Code:

Sub Verti2Hori()
Dim i As Integer
Dim LoLetzte As Long ' Letzte Zeile
Dim InLetzte As Integer ' Letzte Spalte
With Sheets("Tabelle1")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
InLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
End With

Range("A1").Select 'Startzelle
i = 1 'InLetzte + 3 '3 Spalten nach letztem Eintrag
Do Until IsEmpty(ActiveCell.Value)
Do Until IsEmpty(ActiveCell.Value)
If ActiveCell > 0 Then
Cells(1, i) = ActiveCell.Value
i = i + 1
End If
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(1, -InLetzte).Select 'zurück nach Spalte 1
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Rainer

Office: (Office 2007) Datenbereich, die nebeneinander stehen, untereinander anordnen

Datenbereich, die nebeneinander stehen, untereinander anordnen

Datenbereich, die nebeneinander stehen, untereinander anordnen

Datenbereich, die nebeneinander stehen, untereinander anordnen

Datenbereich, die nebeneinander stehen, untereinander anordnen - Similar Threads - Datenbereich nebeneinander stehen

Dynamischer Datenbereich Diagramm - verschiedene Tabellenblätter

Name in Datenbereich suchen und zugehörigen Wert in der Zeile in einer neuen Tabelle ausgeben

VBA Datenbereich kopieren

Verwalten externer Datenbereiche und ihrer Eigenschaften

Konvertieren einer Excel-Tabelle in einen Datenbereich

Verfahren zum Zählen von Zellen in einem Datenbereich

Verwenden einer Sprachausgabe zum Benennen einer Zelle oder eines Datenbereichs in Excel

Zelle	Formel
E1	=INDEX($A:$D;ABRUNDEN(SPALTE(D1)/4;0);REST(SPALTE(D1);4)+1)
F1	=INDEX($A:$D;ABRUNDEN(SPALTE(E1)/4;0);REST(SPALTE(E1);4)+1)