Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

daten neu anordnen

daten neu anordnen
Frank
Hallo,
ich habe eine Datei mit Daten in der Spalte A.
Die Daten stehen untereinander bis A1000 oder länger.
Wie kann ich auf schnellem Weg, immer ab 50 Daten die nächsten 50 Daten in Spalte B, dann die nächsten 50 in Spalte C usw. schreiben?
Also
A1-A50 in Spalte A
A51-A100 In Spalte B
A101-150 in Spalte C usw.
so lange bis keine Daten mehr in Spalte A sind
Lieben Dank für eure Hilfe
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: daten neu anordnen
26.07.2012 13:59:14
Hajo_Zi
Hallo Frank,
löse es per Formel.
Tabelle2
 ABC
1151101
2252102
3353103
4454104
5555105
6656106
7757107
8858108
9959109
101060110
111161111
121262112
131363113
141464114
151565115
161666116
171767 

verwendete Formeln
Zelle Formel Bereich
A1 =ZEILE() 
B1 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C1 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A2 =ZEILE() 
B2 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C2 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A3 =ZEILE() 
B3 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C3 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A4 =ZEILE() 
B4 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C4 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A5 =ZEILE() 
B5 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C5 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A6 =ZEILE() 
B6 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C6 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A7 =ZEILE() 
B7 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C7 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A8 =ZEILE() 
B8 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C8 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A9 =ZEILE() 
B9 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C9 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A10 =ZEILE() 
B10 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C10 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A11 =ZEILE() 
B11 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C11 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A12 =ZEILE() 
B12 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C12 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A13 =ZEILE() 
B13 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C13 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A14 =ZEILE() 
B14 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C14 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A15 =ZEILE() 
B15 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C15 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A16 =ZEILE() 
B16 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C16 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
A17 =ZEILE() 
B17 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 
C17 =WENN(INDIREKT("A"&(SPALTE()-1)*50+ZEILE())=0;"";INDIREKT("A"&(SPALTE()-1)*50+ZEILE())) 

Tabellendarstellung in Foren Version 6.01 Eigene Version



Anzeige
AW: daten neu anordnen
26.07.2012 15:25:44
Frank
Hallo,
geht das auch automatisch?
So habe ich ja wieder einen manuellen Aufwand.
Lieben Dank
AW: daten neu anordnen
26.07.2012 16:27:58
MatthiasG
Hallo Frank,
dann vielleicht so: 

Sub verteile_auf_spalten()
Dim lz As Long
Dim sp As Integer
Dim Anz_Zeilen As Integer
Anz_Zeilen = 50 'auf 50 Zeilen verteilen
sp = 1
lz = lastcell(sp)
Do While lz > Anz_Zeilen
Range(Cells(Anz_Zeilen + 1, sp), Cells(lz, sp)).Cut _
Destination:=Cells(1, sp + 1)
sp = sp + 1
lz = lastcell(sp)
Loop
End Sub
Function lastcell(sp As Integer) As Long
Dim z As Long
z = Cells(Rows.Count, sp).End(xlUp).Row
If z = 1 And Cells(Rows.Count, sp)  "" Then z = Rows.Count
If z = 1 And Cells(1, sp) = "" Then z = 0
lastcell = z
End Function
Gruß Matthias
Anzeige
Perfekt. Danke Matthias. o.w.t.
27.07.2012 07:00:31
Frank
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige