Tabelle automatisch sortieren lassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Anordnen() Application.ScreenUpdating = False z = Cells.SpecialCells(xlCellTypeLastCell).Row For i = 2 To z If Cells(i, 1) Cells(i, 3) Then If Cells(i, 1) > Cells(i, 3) Then Range(Cells(i, 1), Cells(i, 2)).Insert Shift:=xlDown z = z + 1 Else Range(Cells(i, 3), Cells(i, 4)).Insert Shift:=xlDown End If End If Next i Application.ScreenUpdating = True End Sub

Sub Anordnen() Application.ScreenUpdating = False z = Cells.SpecialCells(xlCellTypeLastCell).Row For i = 2 To z If IsEmpty(Cells(i, 1)) Then Exit For If Cells(i, 1) Cells(i, 3) Then If Cells(i, 1) > Cells(i, 3) Then Range(Cells(i, 1), Cells(i, 2)).Insert Shift:=xlDown z = z + 1 Else Range(Cells(i, 3), Cells(i, 4)).Insert Shift:=xlDown End If End If Next i Application.ScreenUpdating = True End Sub

Hallo Dietmar,
versuche mal

Sub Anordnen_2()
Application.ScreenUpdating = False
Range(Cells(2, 25), Cells(Range("Y65536").End(xlUp).Row, 25)).ClearContents
Range("Y1") = "Konten"
z = Cells.SpecialCells(xlCellTypeLastCell).Row
For j = 1 To 23 Step 2
Range(Cells(2, j), Cells(z, j)).Copy Destination:=Range("Y65536").End(xlUp).Offset(1, 0)
Next j
Columns("Y:Y").Sort Key1:=Range("Y1"), Order1:=xlAscending, Header:=xlGuess
x = Range("Y65536").End(xlUp).Row
For k = x To 2 Step -1
If Cells(k, 25) = Cells(k - 1, 25) Then
Cells(k, 25).Delete Shift:=xlUp
End If
Next k
For m = 1 To 23 Step 2
For i = 2 To x
If IsEmpty(Cells(i, m)) Then Exit For
If Cells(i, m)  Cells(i, 25) Then
Range(Cells(i, m), Cells(i, m + 1)).Insert Shift:=xlDown
End If
Next i
Next m
Application.ScreenUpdating = True
End Sub

Voraussetzungen:
1. Spaltenaufbau wie in Musterdatei, Spalte Y wird als Hilfsspalte verwendet.
2. Die Kontennummern sind für jeden Monat aufsteigend sortiert und ohne Leerzellen in die Spalten A, C, ... eingetragen.
https://www.herber.de/bbs/user/86506.xls
Gruß
Martin

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I
1
2
3						Summe von KWh	Monat
4	Monat	Konto	KWh			Konto	Jan 13	Feb 13	Gesamtergebnis
5	Jan 13	1100	1232324			1100	1232324	7634	1239958
6	Jan 13	1111	2232			1111	2232		2232
7	Jan 13	1125	23			1123	323		323
8	Jan 13	1123	323			1125	23	1212	1235
9	Jan 13	1126	2214			1126	2214	2444	4658
10	Jan 13	1127	3344			1127	3344		3344
11	Feb 13	1100	7634			1128		3232	3232
12	Feb 13	1125	1212			Gesamtergebnis	1240460	14522	1254982
13	Feb 13	1126	2444
14	Feb 13	1128	3232
15
16

Tabelle automatisch sortieren lassen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle automatisch sortieren lassen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread