ich habe bei ihnen folgenden Code gefunden
https://www.herber.de/mailing/temp/194602h.htm
Sub MySort()
Dim rngSource As Range, rngTarget As Range, rng As Range, rngFind As Range
Dim iCol As Integer, iRow As Integer
Set rngSource = Range("A1").CurrentRegion
iCol = rngSource.Columns.Count
Set rngTarget = Range(Cells(1, iCol + 2), Cells(65536, iCol * 2 + 1))
For Each rng In rngSource.Cells
Set rngFind = rngTarget.Find(rng.Value, LookIn:=xlValues, lookat:=xlWhole)
If rngFind Is Nothing Then
iRow = iRow + 1
rngTarget(iRow, rng.Column).Value = rng.Value
Else
rngTarget(rngFind.Row, rng.Column).Value = rng.Value
End If
Next rng
End Sub
Was der Code macht ist das er die einzelenen Spalten wiederum nebeneinander schreibt aber so das gleiche Werte auf einer Höhe liegen.
sprich aus
A B C
MB1 / MB10 / MB5
MB2 / MB11 / MB6
MB3 / MB1 / MB7
0 / MB2 / MB3
0 / MB3 / MB2
0 / 0 / MB1
erkennt das Makro
A B C
MB1 /MB1 /MB1
0 /MB10 / 0
0/0/ MB5
MB2 /MB2/ MB2
0 /MB11 / 0
0/ 0/ MB6
MB3/ MB3 /MB3
0/ 0/ MB7
das ist schon mal super
ich würde jetzt gerne eine Stufe weitergehen
hier nochmal als Bild da die Zeilen hier immer Verschoben werden ohne HTML :-(
http://www9.picfront.org/picture/bs55kIX3/thb/Excel.jpg
sprich Typen sollen auf einer Zeile mit ihren jeweilien sich ändernden Wert erhalten bleiben
Vielleicht kann mir einer von euch helfen bzw. hat noch eine einfachere Idee solch ein Makro umzusetzten
Danke