For R = 1 To NRrows
If (RSNonResourceCosts![CostType]) <> "" Then
CL(1) = CL(1) + 1
WKS.Cells(199 + R, 1) = (RSNonResourceCosts![CostType])
End If
If (RSNonResourceCosts![SoftwareCosts]) <> "" Then
CL(2) = CL(2) + 1
WKS.Cells(199 + R, 2) = (RSNonResourceCosts![SoftwareCosts])
End If
RSNonResourceCosts.MoveNext
Next R
Beigefügt ist eine "Cut-Down" -Version des Codes. Ich schreibe in eine Excel-Tabelle, um eine indirekte Formel anzuwenden. [CostType]
und [SoftwareCosts]
im Beispiel sind momentan Konstanten.Variablen als Feldnamen
Ich möchte der Benutzer in der Lage sein, Felder hinzuzufügen, ohne dann den Code ändern zu müssen. Der neue Feldname wird von der Tabelle abgeleitet. Ist es möglich, einen Feldnamen (nicht bekannt, bis die Tabelle geändert wird) zwischen den eckigen Klammern zu verwenden?
Oder mit Standardattributen von Cord-und Feld 'RSNonResourceCosts (Feldname)' – Andre