AW: Rückfrage
07.06.2009 19:57:11
Daniel
Hi
wie ist das mit den KWs gemeint?
in der Ursprungsdatei kommen die nicht vor.
wird die Datei wöchentlich um eine Spalte erweitert?
dann ist die von dir vorgegeben Logik nicht eindeutig, weil jede Woche ja eine andere Zusammenstellung sein kann, jeder AP-Wert kann unterschiedlich oft vorkommen und es würde Lücken in deiner zusammenstellung geben.
Wie soll dann das ganze aussehen?
nichtsdestotrotz, mal ohne Berücksichtigung der KW hier mal ein Makro zum Umbauen der Daten in 2 Sheets, passend für deine Beispieldatei:
Sub umbauen()
Const zeAP = 2
Const spMA = 2
Dim spKW As Long
Dim ze As Long
Dim Bereich As Range
Dim Zelle As Range
spKW = 4
ze = 4
With Sheets("PS")
Set Bereich = Intersect(.Columns(spMA).SpecialCells(xlCellTypeConstants).EntireRow, _
.Rows(zeAP).SpecialCells(xlCellTypeConstants).EntireColumn)
For Each Zelle In Bereich.SpecialCells(xlCellTypeConstants)
Sheets("MinBes").Cells(ze, 1).Value = .Cells(zeAP, Zelle.Column).Value
Sheets("MinBes").Cells(ze, spKW).Value = .Cells(Zelle.Row, spMA).Value
ze = ze + 1
Next
End With
With Sheets("MinBes")
.Cells(4, 1).CurrentRegion.EntireRow.Sort Key1:=.Cells(4, 1), order1:=xlAscending, header:= _
xlNo
End With
End Sub
Gruß, Daniel
Gruß, Daniel