Habe eine Lösung bekommen

Liste.RowSource = Liste.RowSource & "Mein Wert" & ";"

Warum das AddItem nicht funktioniert hat weiß ich noch immer nicht aber so gehts...

Hab schon ein sehr langes kompliziertes Private Sub Click() geschrieben, es funktioniert alles, außer dem letzten Schritt...

Ich will eine Listbox (RowSourceTyp = "Value List") mit Strings füllen...

    k = 1
    While k <= n 'n ist die Anzahl der str die ich einlesen will
        Dim h As String
        h = fcDatenausStrg(strKunde, k) ' fcDatenausStrg hab ich selbst gemacht, liest aus einer str Kette die einzelnen Glieder aus, habs aber auch schon mit h = "Test" probiert.
        Liste.AddItem Item:=h ' hab auch schon probiert, h weg zu lassen und gleich Item:= "Test" zu schreiben. Außerdem hab ich schon Liste.AddItem "Test" und List.AddItem("Test") versucht

        k = k + 1
    Wend

Es liest mir zwar Felder in die Listbox ein aber die sind leer??????

Es tut sich vermutlich trotzdem was aber die Kraft an sich wird kaum mehr werden und es ist eine riesen Belastung für deinen Körper, der könnte anfangen zu rebellieren. Mach einen tag pause, das ist optimal.

Du bist zu dünn und tief in dir drinnen solltest du das auch fühlen. .. sollte das nicht der fall sein bitte sei so lieb und geh zu einem arzt....