oUser ist vom Datentyp Object.
Vorausgesetzt die Objektvariable wurde ordentlich referenziert, kann diese Objektvariable Eigenschaften (manchmal auch Methoden) bereitstellen.
Die einzelnen Eigenschaften lassen sich auslesen/abrufen.
Variable = oUser.Eigenschaft
Hier würde also Variable der Eigenschaftswert zugewiesen.
Möchtest Du nun mehrere Eigenschaftswerte "verketten", könnte das wie folgt aussehen:
Variable = oUser.Eigenschaft1 & "-" & oUser.Eigenschaft2 'usw usf, wobei hier die Eigenschaftswerte mit einem Bindestrich dazwischen verkettet werden.
Zurück zu Deinem Beispiel:
Möchtest Du innerhalb Deiner Schleife je Eigenschaft in eine Zelle schreiben, könnte das wie folgt aussehen:
Worksheets("Tabelle1").Range("A" & i).Value = oUser.Eigenschaft1 'schreibt in A
Worksheets("Tabelle1").Range("A" & i).Offset(0,1).Value = oUser.Eigenschaft2 'schreibt in Spalte B (wegen dem Offset +1 zu A)
Worksheets("Tabelle1").Range("A" & i).Offset(0,2).Value = oUser.Eigenschaft3 'schreibt in Spalte C (wegen dem Offset(0,2))
Klar soweit?
|