AW: (Pivot)tabelle in Datensätze umwandeln
09.05.2005 14:26:07
matthias
Hallo OttoH
vielen Dank - Deins ist eleganter
bin im Moment hinter dieser Lösung gekommen
Sub mo_sta_cc()
Dim ziz As Long
Dim zis As Long
Dim akz As Long
Dim aks As Long
ziz = 71
zis = 1
For aks = 3 To 100
For akz = 2 To 66
ziz = ziz + 1
Cells(ziz, zis).Value = Cells(akz, aks).Value
Cells(ziz, zis + 1).Value = Cells(1, aks).Value
Cells(ziz, zis + 2).Value = Cells(akz, 1).Value
Cells(ziz, zis + 3).Value = Cells(akz, 2).Value
Next akz
Next aks
End Sub
vielen Dank.
Werde deines übernehmen
Gruß Matthias