leider habe ich ein Problem.
mit diesem Code verteilt er die Bereiche.
Sub Aufteilen()
Dim SpalteZiel As Long
Dim Zelle1 As Range
Dim Zelle2 As Range
SpalteZiel = 1
With Sheets("Vorlage")
.Range("A:B").Sort key1:=.Cells(1, 2), order1:=xlDescending, Header:=xlYes
Set Zelle2 = .Cells(1, 2)
Do
Set Zelle1 = Zelle2.Offset(1, 0)
If Zelle1.Value = "" Then Exit Sub
Set Zelle2 = .Columns(2).Find(What:=Zelle1.Value, searchdirection:=xlPrevious)
With Sheets("Auswertung")
.Cells(1, SpalteZiel).Value = Zelle1.Value
.Cells(3, SpalteZiel).Resize(1, 2).Value = Zelle1.Worksheet.Range("A1:B1").Value
Range(Zelle1.Offset(0, -1), Zelle2).Copy Destination:=.Cells(4, SpalteZiel)
End With
SpalteZiel = SpalteZiel + 3
Loop
End With
End Sub
Tabellenblatt Vorlage stehen folgende DatenSpalteA............SpalteB
Lagerplatz.........TYP
1-08-90-99.........LP_2
9-80-70-66.........LP_2
7-80-90-70.........LP_4
8-10-11-11.........LP_2
9-99-99-99.........SL_8
In das Tabellenblatt Auswertung sortierter ab und fügt es ab zeile 4 ein.
SpalteA............SpalteB...SpalteD.....SpalteE...SpalteG......SpalteH
ab Zeile 4
1-08-90-99.........LP_2......7-80-90-70....LP_4.....9-99-99-99...SL_8
9-80-70-66.........LP_2
8-10-11-11.........LP_2
Es werden immer die nach Typen eingegliedert.
Jetzt kommt aber noch ein neuer Glied dazu TYP TL_9
wie muss ich den Code anpassen, so das er den anderen TYPEN ( TL_9) in die Spalte K und L einfügt.?
Hoffe ihr könnt mir helfen.
Danke euch
LG Simone