Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

daten neu anordnen

Forumthread: 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
Anzeige

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)

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