Dim EinzelneWorte() As String. 'Werte zuweisen. Text = "Hund,Katze,Maus". 'Zeichenkette trennen & in ein Array speichern. EinzelneWorte = Split(Text,",").
確定! 回上一頁