Hallo,
ich würde gerne ein Array erstellen in das ich eine Stoffwerttabelle schreibe. Dieses muss 2Dimensional sein und wird als Bezugsfeld zur KOnstantenabfrage verschiedener Stoffe genutzt. Ich habe ca. 150 Stoffe mit 48 verschiedenen Eigenschaften also ein Array von (150,47) soltle es tun.
Die Exceltabelle die ich jetzt zur Verfügung habe soll komplett in meiner Funktion stehen, also quasi komplett entkoppelt von den Worksheets sein (Anweisung vom Chef).
Diese Funktion soll ich später als Addin in Exel legen, damit man eine UDF in der die Stoffdatenbank steckt hat, mit welcher man dann Sachen wie z.B. die Dichte berechnet.
Nun zu meiner eigentlichen Frage:
Wie schreibe ich die Excel Tabelle am schnellsten in den Programmcode? Da ich logischerweiise nich alle Werte einzeln in die Zellen schreiben will, weil das hirnlos ist und ewig dauert, habe ich versucht folgenden Code beispielhaft zu verwenden:
Dim Stofftabelle(,) As Variant= New Variant(1, 1) {{Stoff, Schmelztemperatur}, {O2, 222}}
Natürlich weiss ich das der Code um einiges länger wäre, aber wie gesagt geht es ja nur um das Prinzip. Das "=" scheint hier das Problem zu sein, aber ich kriegs einfahc nicht zum laufen.
Zur Suchfkt. bin ich mir auch noch nicht sicher.
Ich dachte da an so etwas wie:
-----------------------------------------------------
Substance= o2 ' Gesucht wäre also Suerstoff
for max= Stoffwerttabelle.Ubound
i=0
Substancerow=0
while Substancerow =! Substance
if i < max then
Stoffwerttabelle (Substancerow, 0)
Substancerow= i+1
else
msgbox ("Error")
wend
msgbox Stoffwerttabelle (Substancerow,0) ' wäre dann die Zelle mti dem O2
----------------------------------------------
Hier wäre ja dann quasi die Zelle mit dem Stoff (Substance) in der Zelle (Substancerow,1) oder?
|