Spalte nach 24 Werten in nächste Spalte aufteilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
probier mal
Option Explicit

Sub Div_24_List()
    Dim y As Integer, i As Integer
    Dim lRow As Integer
    Dim divArea As Range
    'Teiler definieren
    y = 24
    'Letze Zelle der Spalte mit der Liste
    Set divArea = Range("A65536")
    '****************************
    'Hier nichts mehr anpassen
    'Letzen Eintrag definieren
    lRow = divArea.End(xlUp).Row
    'Prüfung ob Tabelle ausreichend ist
    If lRow / y > 255 Then
        MsgBox "Zuviele Daten"
        Set divArea = Nothing
        Exit Sub
    End If
    For i = 1 To Application.WorksheetFunction.RoundUp(lRow, 0)
        Range(Cells(y + 1, divArea.Column), Cells(lRow, divArea.Column)).Cut Cells(1, i + 1)
        Set divArea = Cells(65536, i + 1)
        lRow = divArea.End(xlUp).Row
    Next i
End Sub

Gruss Rainer

Hallo
Vor Ausführung des Codes

	A
1	1
2	1
3	1
4	1
5	1
6	1
7	1
8	1
9	1
10	1
11	1
12	1
13	1
14	1
15	1
16	1
17	1
18	1
19	1
20	1
21	1
22	1
23	1
24	1
25	1
26	1
27	1
28	1
29	1
30	1
31	1
32	1
33	1
34	1
35	1
36	1
37	1
38	1
39	1
40	1
41	1
42	1
43	1
44	1
45	1
46	1
47	1
48	1
49	1
50	1
51	1
52	1
53	1
54	1
55	1
56	1
57	1
58	1
59	1
60	1
61	1
62	1
63	1
64	1
65	1
66	1
67	1
68	1
69	1
70	1
71	1
72	1
73	1
74	1
75	1
76	1
77	1
78	1
79	1
80	1
81	1
82	1
83

nach Ausführung des Codes

	A	B	C	D	E
1	1	1	1	1
2	1	1	1	1
3	1	1	1	1
4	1	1	1	1
5	1	1	1	1
6	1	1	1	1
7	1	1	1	1
8	1	1	1	1
9	1	1	1	1
10	1	1	1
11	1	1	1
12	1	1	1
13	1	1	1
14	1	1	1
15	1	1	1
16	1	1	1
17	1	1	1
18	1	1	1
19	1	1	1
20	1	1	1
21	1	1	1
22	1	1	1
23	1	1	1
24	1	1	1
25

"...
der VB Code überträgt leider gleich die ersten Werte in die nächste Spalte...."
Das kann nicht sein, weil
Range(Cells(y + 1, divArea.Column), Cells(lRow, divArea.Column)).Cut
Cells(y+1, divarea.Column)
zu diesem Zeipunkt "y+1" = 25 ist, und somit erst ab Zeile 25 auszuschneiden beginnt.
.Cut Cells(1, i + 1)
i = 1 + 1 = 2
somit gleich in Spalte 2 kopiert
Danach werden alle Variablen neu gesetzt
Sorry, aber da habe ich keine Erklärung dafür.
Lade mal die Tabelle hoch.
Gruss Rainer

Sub werte() Dim wks As Worksheet Dim lngZähler As Long, lzeile As Long Dim intSp As Integer, ZeilenEnde As Integer Set wks = Sheets("Tabelle1") 'Anpassen intSp = 2 'Anpassen hier Start des einfügens ab Spalte B(2) ZeilenEnde = 24 'Anpassen With wks lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row For lngZähler = 1 To lzeile Step ZeilenEnde .Range(Cells(lngZähler, 1), Cells(lngZähler + ZeilenEnde - 1, 1)).Copy .Range(Cells(1, intSp), Cells(ZeilenEnde, intSp)) intSp = intSp + 1 Next End With Set wks = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Spalte nach 24 Werten in nächste Spalte aufteilen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte nach 24 Werten in nächste Spalte aufteilen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread