Text in Liste direkt um Zusatz ergänzen

[Egon12]

Hallo,

wenn das DataObject keine Schwierigkeiten macht ist alles ok. Aber das ist es eben nicht immer.

Man ist besser dran dies mit API Function zu erschlagen. Da habe ich es noch nicht erlebt, dass da was rumzickt.

Gruß Uwe

[knobbi38]

Hallo Günther,

das Beispiel ist keine CP Lösung, sondern kann in den Code von Daniel (#15) als Alternative verwendet werden. 
Ein bisschen Eigeninitiative ist dabei natürlich angesagt, sonst bleibt ja der Lernerfolg aus und du könntest deinen eigenen Code nicht verstehen bzw. warten. 

Tip:
mit diesem Code wird ein Objekt mit Früher-Bindung angelegt:

Code:

Dim D As New DataObject

bzw.

Dim D as DataObject
Set D = New DataObject

...

set D = Nothing

Frühe-Bindung benötigt immer einen Verweis auf die entsprechende Bibliothek.

Stattdessen das Ganze nochmal, aber diesmal mit Später-Bindung und ohne Verweis auf eine Bibliothek:

Code:

Dim D as Object

Set D = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
...
set D = Nothing

Zum Einstieg in VBA gibt es nun wirklich viele Möglichkeiten, neben Wiki Beiträgen, Openbooks usw. auch ein paar freie eBooks, z.B.
https://goalkicker.com/VBABook/
Man muss sich aber natürlich darauf einlassen und ein wenig Zeit investieren.

Gruß Knobbi38