AW: Aus Tabelle Matrix erstellen
29.04.2008 08:33:11
ede
Hallo Rainer,
ich gehe mal davon aus, das Deine Tabelle nach der Spalte Beitragsstuge aufwärts sortiert ist!
teste mal folgendes Makro, ob es so ausreichend ist, wobei Du die Sheetnamen in Deinem Fall anpassen musst!!!
Sub umsetzen()
Dim i, s, lzeile, zeile As Integer
Dim ziel, quelle, fach As String
'+ + + + + ANPASSEN
quelle = "Tabelle1"
ziel = "Tabelle2"
zeile = 2
Sheets(ziel).Cells(1, 1) = "FAchgebiet/..."
lzeile = Sheets(quelle).Cells(65536, 1).End(xlUp).Row
For i = 2 To lzeile
'Fachgebiet bestimmen
fach = Sheets(quelle).Cells(i, 4)
done = False
ss = Sheets(ziel).Cells(1, 256).End(xlToLeft).Column + 2
For s = 2 To ss
If IsEmpty(Sheets(ziel).Cells(1, s)) Then
Sheets(ziel).Cells(1, s) = fach
Exit For
End If
If Sheets(ziel).Cells(1, s) = fach Then Exit For
Next s
Sheets(ziel).Cells(zeile, 1) = Sheets(quelle).Cells(i, 6)
Sheets(ziel).Cells(zeile, s) = Sheets(quelle).Cells(i, 1) & " " & Sheets(quelle).Cells(i, 2) _
& " " & Sheets(quelle).Cells(i, 3) & " (" & Sheets(quelle).Cells(i, 5) & ")"
zeile = zeile + 1
Next i
End Sub
gruss