Ich versuche, Daten von einer einzelnen Zelle in mehrere Zeilen aufzuteilen, wie unten gezeigt. Ich benutze den folgenden Code: Sub TransposeRange() Dim rng As Range Dim InputRng As Range, OutRng As Range xTitleId = "Splitcell" Set InputRng = Application.Selection.Range("A1") Set InputRng =...