VorSplitCells ()
Schwaches LastR als lang
Schwaches DestR als lang
Schwaches arr als Variante
Schwacher Kostenzähler als lang
Schwaches Counter2 als lang
LastR = Zellen (Rows.Count, 1).End (xlUp). Reihe
Für Kostenzähler = 1 zu LastR
Wenn Zellen (Gegen, 1) <> "" dann
arr = aufspaltete (die Zellen (Gegen, 1), Chr (10))
Für Counter2 = 0 zu UBound (arr)
DestR = DestR + 1
Zellen (DestR, 2) = arr (Counter2)
Zunächst
Beenden wenn
Zunächst
MsgBox „getan“
Enden-Unterseeboot
|