AW: Zellinhalt auf Zeilen verteilen
10.03.2007 15:50:00
Daniel
Hallo
hier ne lösung,
das Ergebnis wird in Tabellen2 eingetragen
Vorraussetztung ist allerdings, daß nur in Spalte 3 die Mehrfachwerte vorkommen können.
https://www.herber.de/bbs/user/41014.xls
und der Code dazu:
Option Explicit
Option Base 1
Sub Modifizieren()
Dim Quelle
Dim Erg()
Dim Erg2
Dim spQ As Long
Dim TextSP3
Dim i As Long, i2 As Long
Dim j As Long
Dim k As Long
Quelle = Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Value
spQ = UBound(Quelle, 2)
'---Tabelle in neue Tabelle übertragen
For i = 1 To UBound(Quelle, 1)
TextSP3 = Split(Quelle(i, 3), Chr(10))
For i2 = 1 To UBound(TextSP3) + 1
k = k + 1
ReDim Preserve Erg(spQ, k)
For j = 1 To spQ
Erg(j, k) = Quelle(i, j)
Next
Erg(3, k) = TextSP3(i2 - 1)
Next
Next
'---Ergebnisarry transponieren, falls es hierfür einen Befehl gibt, wüsste ich gerne wie er heißt
ReDim Erg2(UBound(Erg, 2), UBound(Erg, 1))
For i = 1 To UBound(Erg2, 1)
For j = 1 To UBound(Erg2, 2)
Erg2(i, j) = Erg(j, i)
Next
Next
'---Ergebnis zurückschreiben
Sheets("Tabelle2").Cells(1, 1).Resize(UBound(Erg2, 1), UBound(Erg2, 2)).Value = Erg2
Sheets("Tabelle2").Select
End Sub
Gruß, Daniel