Schönen guten Tag,
mein Kollege hat mir diesen Quelltext gegeben damit beim übertragen in Tabellen immer die nächste freie Zeile genommen wird. Da ich ncoh aAnfänger bin würde ich jedoch gerne wissen welche Zeile genau was bedeutet,damit ich es vielleicht auf meine Tabelle anwenden kann.
Sub vorschlag1()
Dim zell As Range
Set zell = Tabelle2.Cells(1, 1)
Do While Not IsEmpty(zell)
Do While InStr(1, zell, ",") > 1
zell.EntireRow.Insert
zell.Offset(-1, 0) = Left(zell, InStr(1, zell, ",") - 1)
zell = Mid(zell, InStr(1, zell, ",") + 1)
Loop
Set zell = zell.Offset(1, 0)
Loop
End Sub
|