|
Ich hab das jetzt mal so gelöst:
Sub test()
Dim substance As Variant
Dim Property As Variant
Dim ID As String
Dim Value As Variant
Dim output As Variant
Run Tab_ID_Name()
substance = "Sauerstoff"
ouput = "ID_Number"
ID = T_ID_Name(substance)(Propnr_ID_Name(output))
'MsgBox ID
Run Tab_konst()
Property = "MI"
Value = T_Const(ID)(Propnr_Const(Property))
MsgBox Value
End Sub
Public T_Const As Object
Public Propnr_Const As Object
Public Tab_const_exist As Boolean
Public T_ID_Name As Object
Public Tab_ID_Name_exist As Boolean
Public Propnr_ID_Name As Object
Public Function Tab_ID_Name()
If Tab_ID_Name_exist = False Then
'Tabelle mit den Konstanten:
Set T_ID_Name = CreateObject("Scripting.Dictionary")
Dim T_ID_Name_Name As Object
Set T_ID_Name_Name = CreateObject("Scripting.Dictionary")
T_ID_Name("Argon") = Array(1)
T_ID_Name("Chlor") = Array(2)
T_ID_Name("Fluor") = Array(3)
T_ID_Name("Schwefelfluorid") = Array(4)
T_ID_Name("Schwefelhexafluorid") = Array(5)
T_ID_Name("Chlorwasserstoff") = Array(6)
T_ID_Name("Fluorwasserstoff") = Array(7)
T_ID_Name("Wasserstoff") = Array(8)
T_ID_Name("Wasser") = Array(9)
T_ID_Name("Schwefelwasserstoff") = Array(10)
T_ID_Name("Ammoniak") = Array(11)
T_ID_Name("Helium") = Array(12)
T_ID_Name("Stickstoffmonoxid") = Array(13)
T_ID_Name("Stickstoffdioxid") = Array(14)
T_ID_Name("Stickstoff") = Array(15)
T_ID_Name("Distickstoffdioxid") = Array(16)
T_ID_Name("Sauerstoff") = Array(17)
T_ID_Name("Schwefeldioxid") = Array(18)
T_ID_Name("Schwefeltrioxid") = Array(19)
T_ID_Name("Kohlenstofftetrafluorid") = Array(20)
T_ID_Name("Kohlenmonoxid") = Array(21)
T_ID_Name("Carbonylsulfid") = Array(22)
T_ID_Name("Kohlendioxid") = Array(23)
T_ID_Name("Methylfluorid") = Array(24)
T_ID_Name("Wasserstoffcyanid") = Array(25)
T_ID_Name("Formaldehyd") = Array(26)
T_ID_Name("Ameisensäure") = Array(27)
T_ID_Name("Methan") = Array(28)
T_ID_Name("Methanol") = Array(29)
T_ID_Name("Perfluorethen") = Array(30)
T_ID_Name("Perfluorethan") = Array(31)
T_ID_Name("Ethin (=Acetylen)") = Array(32)
T_ID_Name("Keten") = Array(33)
T_ID_Name("Vinylchlorid") = Array(34)
T_ID_Name("Acetonnitril") = Array(35)
T_ID_Name("Ethen (=Ethylen)") = Array(36)
T_ID_Name("Ethanal/Acetaldehyd") = Array(37)
T_ID_Name("Essigsäure") = Array(38)
T_ID_Name("Methylformiat") = Array(39)
T_ID_Name("Ethan") = Array(40)
T_ID_Name("Hexafluorpropen") = Array(41)
T_ID_Name("Oktafluorpropan") = Array(42)
T_ID_Name("Acrylonitril") = Array(43)
T_ID_Name("Cyclopropen") = Array(44)
T_ID_Name("Propadien") = Array(45)
T_ID_Name("Propin") = Array(46)
T_ID_Name("Propionitril") = Array(47)
T_ID_Name("Propen (=Propylen)") = Array(48)
T_ID_Name("Cyclopropylen") = Array(49)
T_ID_Name("1-Hydroxypropanon") = Array(50)
T_ID_Name("Propan") = Array(51)
T_ID_Name("1-Propanol") = Array(52)
T_ID_Name("Isopropylhydroxyd") = Array(53)
T_ID_Name("Methylethylether") = Array(54)
T_ID_Name("Perfluorbuten") = Array(55)
T_ID_Name("Perfluorcyclobutan") = Array(56)
T_ID_Name("Methacrylnitril") = Array(57)
T_ID_Name("Pyrrol") = Array(58)
T_ID_Name("Methacrolein") = Array(59)
T_ID_Name("1-Butin") = Array(60)
T_ID_Name("2-Butin") = Array(61)
T_ID_Name("1,3-Butadien") = Array(62)
T_ID_Name("Dihydrofuran") = Array(63)
T_ID_Name("2-Butenal") = Array(64)
T_ID_Name("1-Buten") = Array(65)
T_ID_Name("cis-2-Buten") = Array(66)
T_ID_Name("trans-2-Buten") = Array(67)
T_ID_Name("Cyclobutan") = Array(68)
T_ID_Name("Isobutylen") = Array(69)
T_ID_Name("n-Butan") = Array(70)
T_ID_Name("Isobutan") = Array(71)
T_ID_Name("Pyridin") = Array(72)
T_ID_Name("Cyclopentadien") = Array(73)
T_ID_Name("Gamma-Pyran") = Array(74)
T_ID_Name("Cyclopenten") = Array(75)
T_ID_Name("1-trans-3-Pentadien") = Array(76)
T_ID_Name("1-cis-3-Pentadien") = Array(77)
T_ID_Name("1,4-Pentadien") = Array(78)
T_ID_Name("1-Pentin") = Array(79)
T_ID_Name("Cyclopentanon") = Array(80)
T_ID_Name("Ethylarcrylat") = Array(81)
T_ID_Name("1-Penten") = Array(82)
T_ID_Name("cis-2-Penten") = Array(83)
T_ID_Name("trans-2-Penten") = Array(84)
T_ID_Name("Methylbuten-2") = Array(85)
T_ID_Name("n-Pentan") = Array(86)
T_ID_Name("Hexafluorbenzol") = Array(87)
T_ID_Name("Benzol") = Array(88)
T_ID_Name("Phenol") = Array(89)
T_ID_Name("Cyclohexadien") = Array(90)
T_ID_Name("1,5-Hexadien") = Array(91)
T_ID_Name("Cyclohexen") = Array(92)
T_ID_Name("Cyclohexan") = Array(93)
T_ID_Name("1-Hexen") = Array(94)
T_ID_Name("2,3-Dimethylbuten") = Array(95)
T_ID_Name("n-Hexan") = Array(96)
T_ID_Name("Octafluortoluol") = Array(97)
T_ID_Name("Benzonitril") = Array(98)
T_ID_Name("Phenylisocyanat") = Array(99)
T_ID_Name("Benzoxaol") = Array(100)
T_ID_Name("Indoxazen") = Array(101)
T_ID_Name("Toluol") = Array(102)
T_ID_Name("o-Cresol") = Array(103)
T_ID_Name("m-Cresol") = Array(104)
T_ID_Name("p-Cresol") = Array(105)
T_ID_Name("Guajacol") = Array(106)
T_ID_Name("1-Hepten") = Array(107)
T_ID_Name("n-Heptan") = Array(108)
T_ID_Name("Decafluorethylbenzol") = Array(109)
T_ID_Name("Benzofuran") = Array(110)
T_ID_Name("Indol") = Array(111)
T_ID_Name("Cyclooctatetraen") = Array(112)
T_ID_Name("Styrol") = Array(113)
T_ID_Name("o-Xylol") = Array(114)
T_ID_Name("m-Xylol") = Array(115)
T_ID_Name("p-Xylol") = Array(116)
T_ID_Name("Ethylbenzol") = Array(117)
T_ID_Name("Ethylphenol") = Array(118)
T_ID_Name("Xylenole") = Array(119)
T_ID_Name("Ethylguajacol") = Array(120)
T_ID_Name("Ethylcyclohexan") = Array(121)
T_ID_Name("n-Octan") = Array(122)
T_ID_Name("Perfluormesitylen") = Array(123)
T_ID_Name("Perfluorethylvinylbenzol") = Array(124)
T_ID_Name("Perfluorpropylbenzol") = Array(125)
T_ID_Name("Inden") = Array(126)
T_ID_Name("Alpha-Methylstyrol") = Array(127)
T_ID_Name("1,2,3-Trimethylbenzol") = Array(128)
T_ID_Name("1,2,4-Trimethylbenzol") = Array(129)
T_ID_Name("1,3,5-Trimethylbenzol") = Array(130)
T_ID_Name("n-Nonan") = Array(131)
T_ID_Name("Naphthalin") = Array(132)
T_ID_Name("Azulen") = Array(133)
T_ID_Name("Methylinden") = Array(134)
T_ID_Name("Dihydronaphthalin") = Array(135)
T_ID_Name("Dicyclopentadien") = Array(136)
T_ID_Name("Methylindan") = Array(137)
T_ID_Name("n-Decan") = Array(138)
T_ID_Name("1-Methylnaphthalin") = Array(139)
T_ID_Name("2-Methylnaphthalin") = Array(140)
T_ID_Name("Acenaphthylen") = Array(141)
T_ID_Name("Diphenyl") = Array(142)
T_ID_Name("Fluoren") = Array(143)
T_ID_Name("Anthracen") = Array(144)
T_ID_Name("Phenanthren") = Array(145)
T_ID_Name("Aliphatengruppe C5 - C8") = Array(146)
T_ID_Name("Aliphatengruppe C9 - C11") = Array(147)
T_ID_Name("Aliphatengruppe C12 - C14") = Array(148)
T_ID_Name("Aliphatengruppe C15-C17") = Array(149)
T_ID_Name("Aliphatengruppe C18-C20") = Array(150)
T_ID_Name("Aliphatengruppe C21-C23") = Array(151)
T_ID_Name("Aliphatengruppe C24-C26") = Array(152)
T_ID_Name("Aliphatengruppe C27-C31") = Array(153)
T_ID_Name("mjhmf") = Array(154)
T_ID_Name("t") = Array(155)
T_ID_Name("Aromatengruppe C14 H10") = Array(156)
Set Propnr_ID_Name = CreateObject("Scripting.Dictionary")
Propnr_ID_Name("ID_Name") = 0
Propnr_ID_Name("ID_Number") = 1
Tab_ID_Name_exist = True
Else
'tabelle schon vorhanden
End If
End Function
Public Function Tab_konst()
'MsgBox Tab_const_exist
If Tab_const_exist = False Then
'Tabelle mit den Konstanten:
Set T_Const = CreateObject("Scripting.Dictionary")
T_Const("1") = Array("AR", "Argon", 39, 948, 83, 8, 87, 3, 150, 8, 4, 87, 74, 9, 26, 2604283, 0, 291, 0, 1, -0, 4, 0, 0, 29, 3, 163, Wahr)
T_Const("2") = Array("CL2", "Chlor", 70, 906, 172, 2, 238, 7, 417, 7, 7, 124, 44, 5400588, 0, 275, 0, 1, 0, 73, 0, 0, 90, 4, 289, Wahr)
T_Const("3") = Array("F2", "Fluor", 37, 997, 53, 5, 85, 144, 3, 5, 22, 66, 2, 23, 7299824, 0, 288, 0, 1, 0, 48, 0, 0, 37, 7, 159, Wahr)
T_Const("4") = Array("SF4", "Schwefelfluorid", 108, 58, 152, 232, 7, 364, 4, 33, 146, 52, 85507007, 0, 208, 1, 1, 0, 2368, -781300, -740600, 0, 185, 6943, Wahr)
T_Const("5") = Array("SF6", "Schwefelhexafluorid", 146, 54, 209, 6, 222, 5, 318, 7, 3, 76, 198, 72, 73609469, 0, 281, 0, 1, 0, 268, -1222000, -1118000, 34, 3, 115, Wahr)
T_Const("6") = Array("HCL", "Chlorwasserstoff", 36, 461, 159, 188, 1, 324, 6, 8, 31, 81, 28, 50605769, 0, 249, 1, 1, 1, 0, 12, -92360, -95330, 54, 8, 444, Wahr)
T_Const("7") = Array("HF", "Fluorwasserstoff", 20, 6, 190, 292, 7, 461, 6, 48, 69, 24, 9676305, 0, 12, 0, 1, 0, 372, -271300, -273400, 196, 3, 332, 5, Wahr)
T_Const("8") = Array("H2", "Wasserstoff", 2, 16, 14, 20, 4, 33, 2, 1, 3, 65, 22, 63487277, 0, 305, 0, 1, 2602449, -0, 22, 0, 0, 58, 6, 461, Wahr)
T_Const("9") = Array("H2O", "Wasser", 18, 15, 273, 15, 373, 2, 647, 3, 22, 9, 56, 19, 36180814, 0, 229, 1, 8, 1, 0, 344, -242000, -228800, 335, 2257, Wahr)
T_Const("10") = Array("H2S", "Schwefelwasserstoff", 34, 8, 187, 6, 212, 8, 373, 2, 8, 94, 98, 5, 34, 99177955, 0, 284, 0, 9, 1, 0, 1, -20180, -33080, 69, 5, 548, Wahr)
T_Const("11") = Array("NH3", "Ammoniak", 17, 31, 195, 4, 239, 7, 405, 6, 11, 28, 72, 5, 25, 37926795, 0, 242, 1, 5, 1, 0, 25, -45720, -16160, 339, 1369, Wahr)
T_Const("12") = Array("HE", "Helium", 4, 3, 0, 4, 21, 5, 19, 0, 227, 57, 3, 19, 8331138, 0, 301, 0, 1, 349049, -0, 387, 0, 0, 3, 52, 20, 42, Wahr)
T_Const("13") = Array("NO", "Stickstoffmonoxid", 30, 6, 109, 5, 121, 4, 180, 6, 48, 58, 20, 871072, 0, 25, 0, 2, 1, 0, 607, 90430, 86750, 77, 461, Wahr)
T_Const("14") = Array("NO2", "Stickstoffdioxid", 46, 6, 261, 9, 294, 3, 431, 4, 10, 13, 170, 61, 99480947, 0, 48, 0, 4, 1, 0, 86, 33870, 52000, 0, 314, Wahr)
T_Const("15") = Array("N2", "Stickstoff", 28, 13, 63, 3, 77, 4, 126, 2, 3, 39, 89, 5, 31, 64866541, 0, 29, 0, 1, 0, 4, 0, 0, 25, 75, 201, Wahr)
T_Const("16") = Array("N2O", "Distickstoffdioxid", 44, 13, 182, 3, 184, 7, 309, 6, 7, 24, 97, 4, 34, 58236154, 0, 274, 0, 2, 1, 0, 16, 81600, 103700, 148, 6, 377, Wahr)
T_Const("17") = Array("O2", "Sauerstoff", 31.999, 54, 4, 90, 2, 154, 6, 5, 5, 73, 4, 25, 70954145, 0, 288, 0, 1, 0, 21, 0, 0, 13, 82, 214, Wahr)
T_Const("18") = Array("SO2", "Schwefeldioxid", 64, 63, 197, 7, 263, 430, 8, 7, 88, 122, 43, 78748107, 0, 268, 1, 6, 1, 0, 251, -297100, -300400, 116, 8, 389, Wahr)
T_Const("19") = Array("SO3", "Schwefeltrioxid", 80, 58, 290, 318, 491, 8, 21, 130, 46, 80125437, 0, 26, 0, 1, 0, 41, -396000, -371300, 312, 519, Wahr)
T_Const("20") = Array("CF4", "Kohlenstofftetrafluorid", 88, 5, 86, 4, 145, 2, 227, 6, 3, 74, 140, 50, 58095693, 0, 277, 0, 1, 0, 191, -933700, -889000, 8, 137, Wahr)
T_Const("21") = Array("CO", "Kohlenmonoxid", 28, 1, 68, 1, 81, 7, 132, 9, 3, 5, 93, 1, 32, 98406105, 0, 295, 0, 1, 1, 0, 49, -110600, -137400, 30, 1, 218, Wahr)
T_Const("22") = Array("COS", "Carbonylsulfid", 60, 7, 134, 3, 222, 9, 375, 5, 88, 140, 50, 58095693, 0, 26, 0, 7, 1, 0, 99, -138500, -165800, 78, 7, 308, Wahr)
T_Const("23") = Array("CO2", "Kohlendioxid", 44, 1, 194, 7, 216, 6, 304, 2, 7, 38, 94, 33, 31830125, 0, 274, 0, 1, 0, 225, -393800, -394600, 184, 574, Wahr)
T_Const("24") = Array("CHF3", "Methylfluorid", 70, 15, 110, 191, 315, 5, 6, 113, 2, 40, 48330079, 0, 24, 1, 8, 1, 0, 187, -697500, -662800, 0, 243, Wahr)
T_Const("25") = Array("CHN", "Wasserstoffcyanid", 27, 26, 259, 9, 298, 9, 456, 8, 5, 39, 139, 50, 20238739, 0, 197, 3, 1, 0, 407, 130600, 120200, 311, 976, Wahr)
T_Const("26") = Array("CH2O", "Formaldehyd", 30, 26, 156, 254, 408, 6, 59, 109, 5, 39, 9766822, 0, 213, 2, 3, 1, 0, 253, -116000, -110000, 0, 712, Wahr)
T_Const("27") = Array("CH2O2", "Ameisensäure", 46, 25, 281, 5, 373, 8, 580, 6, 8, 106, 5, 37, 97582776, 0, 15, 1, 5, 1, 0, 419, -378900, -351200, 276, 5, 494, Wahr)
T_Const("28") = Array("CH4", "Methan", 16, 43, 90, 7, 111, 7, 190, 6, 4, 6, 99, 35, 17795135, 0, 288, 0, 1, 0, 8, -74900, -50870, 58, 6, 510, Wahr)
T_Const("29") = Array("CH4O", "Methanol", 32, 42, 175, 5, 337, 8, 512, 6, 8, 1, 118, 42, 28411095, 0, 224, 1, 7, 1, 0, 559, -201300, -162600, 103, 1100, Wahr)
T_Const("30") = Array("C2F4", "Perfluorethen", 100, 16, 130, 7, 197, 5, 306, 4, 3, 94, 175, 63, 90704476, 0, 271, 0, 1, 0, 226, -659000, -624100, 0, 166, 68095738, Wahr)
T_Const("31") = Array("C2F6", "Perfluorethan", 138, 12, 172, 4, 194, 9, 292, 8, 3, 6, 224, 82, 77606617, 0, 279, 0, 1, 0, 263, -1344000, -1258000, 0, 116, 63523707, Wahr)
T_Const("32") = Array("C2H2", "Ethin (=Acetylen)", 26, 38, 189, 2, 192, 4, 308, 3, 6, 14, 113, 40, 4083455, 0, 271, 0, 1, 0, 184, 226900, 209300, 96, 3, 829, Wahr)
T_Const("33") = Array("C2H2O", "Keten", 42, 38, 138, 232, 380, 6, 48, 145, 52, 47573453, 0, 3, 1, 4, 1, 0, 207, -61130, -60330, 0, 491, 44558186, Wahr)
T_Const("34") = Array("C2H3Cl", "Vinylchlorid", 62, 499, 119, 4, 386, 9, 602, 4, 15, 294, 110, 7098738, 0, 24, 1, 7, 1, 0, 22, 35170, 51540, 0, 528, 84738204, Wahr)
T_Const("35") = Array("C2H3N", "Acetonnitril", 41, 53, 229, 3, 354, 8, 548, 4, 83, 173, 63, 14183167, 0, 184, 3, 5, 1, 0, 321, 87920, 105700, 199, 800, Wahr)
T_Const("36") = Array("C2H4", "Ethen (=Ethylen)", 28, 54, 104, 169, 4, 282, 4, 5, 4, 129, 46, 42403408, 0, 276, 0, 1, 0, 85, 52340, 68160, 119, 4, 483, Wahr)
T_Const("37") = Array("C2H4O", "Ethanal/Acetaldehyd", 44, 54, 150, 2, 293, 6, 461, 5, 57, 154, 55, 89417823, 0, 22, 2, 5, 1, 0, 303, -164400, -133400, 73, 7, 617, 5, Wahr)
T_Const("38") = Array("C2H4O2 (1)", "Essigsäure", 60, 52, 289, 8, 391, 1, 594, 4, 5, 79, 171, 62, 37704309, 0, 2, 1, 3, 1, 0, 454, -435100, -376900, 195, 1, 406, Wahr)
T_Const("39") = Array("C2H4O2 (2)", "Methylformiat", 60, 52, 174, 2, 304, 9, 487, 2, 6, 172, 62, 75938402, 0, 255, 1, 8, 1, 0, 252, -350000, -297400, 0, 463, 26039701, Wahr)
T_Const("40") = Array("C2H6", "Ethan", 30, 7, 89, 9, 184, 5, 305, 4, 4, 88, 148, 53, 61411453, 0, 285, 0, 1, 0, 98, -84740, -32950, 92, 9, 490, Wahr)
T_Const("41") = Array("C3F6", "Hexafluorpropen", 150, 2, 185, 89, 264, 395, 8, 3, 48, 282, 5, 105, 56311519, 0, 299, 0, 1, 0, 324, -1114580, 0, 0, 153, 39428214, Wahr)
T_Const("42") = Array("C3F8", "Oktafluorpropan", 188, 21, 90, 236, 5, 345, 1, 2, 68, 299, 8, 112, 34775712, 0, 28, 0, 1, 0, 325, -1749747, 0, 0, 105, 80074732, Wahr)
T_Const("43") = Array("C3H3N", "Acrylonitril", 53, 64, 189, 5, 350, 5, 536, 4, 56, 210, 77, 36253299, 0, 21, 3, 5, 1, 0, 35, 185100, 195400, 0, 605, 23825483, Wahr)
T_Const("44") = Array("C3H4 (1)", "Cyclopropen", 40, 65, 145, 55, 279, 457, 7, 5, 85, 147, 5, 53, 42430699, 0, 227, 0, 1, 0, 175, 276342, 286474, 0, 599, 18720089, Wahr)
T_Const("45") = Array("C3H4 (2)", "Propadien", 40, 65, 136, 9, 238, 7, 393, 5, 47, 162, 58, 94087723, 0, 271, 0, 2, 1, 0, 313, 192300, 202500, 0, 522, Wahr)
T_Const("46") = Array("C3H4 (3)", "Propin", 40, 65, 170, 45, 250, 402, 4, 5, 62, 164, 59, 70369538, 0, 276, 0, 7, 1, 0, 218, 185568, 194570, 0, 549, 9016001, Wahr)
T_Const("47") = Array("C3H5N", "Propionitril", 55, 8, 180, 3, 370, 5, 564, 4, 4, 18, 230, 85, 10118983, 0, 205, 3, 7, 1, 0, 318, 50660, 96210, 92, 561, Wahr)
T_Const("48") = Array("C3H6 (1)", "Propen (=Propylen)", 42, 81, 87, 9, 225, 4, 365, 4, 62, 181, 66, 20518546, 0, 275, 0, 4, 1, 0, 148, 20430, 62760, 69, 9, 438, Wahr)
T_Const("49") = Array("C3H6 (2)", "Cyclopropylen", 42, 81, 145, 7, 240, 4, 397, 8, 5, 49, 170, 61, 99480947, 0, 282, 0, 1, 0, 264, 53340, 104500, 129, 4, 476, 9, Wahr)
T_Const("50") = Array("C3H6O2", "1-Hydroxypropanon", 74, 8, 233, 82, 414, 589, 1, 5, 48, 228, 5, 84, 51963293, 0, 256, 0, 1, 0, 758, -511233, 0, 0, 646, 57734759, Wahr)
T_Const("51") = Array("C3H8", "Propan", 44, 97, 85, 5, 231, 1, 369, 8, 4, 24, 203, 74, 66218711, 0, 281, 0, 1, 0, 152, -103900, -23490, 80, 426, Wahr)
T_Const("52") = Array("C3H8O (1)", "1-Propanol", 60, 96, 146, 9, 370, 4, 536, 7, 5, 17, 218, 5, 80, 64732569, 0, 253, 1, 7, 1, 0, 624, -256600, -161900, 0, 668, 2783036, Wahr)
T_Const("53") = Array("C3H8O (2)", "Isopropylhydroxyd", 60, 96, 184, 7, 355, 4, 508, 3, 4, 76, 220, 81, 22763891, 0, 248, 1, 7, 1, 0, 665, -272600, -173500, 0, 645, 87116389, Wahr)
T_Const("54") = Array("C3H8O (3)", "Methylethylether", 60, 96, 134, 280, 5, 437, 8, 4, 4, 221, 81, 61461999, 0, 267, 1, 2, 1, 0, 236, -216600, -117700, 0, 404, 21169999, Wahr)
T_Const("55") = Array("C4F8 (1)", "Perfluorbuten", 200, 32, 237, 14, 288, 452, 3, 4, 11, 240, 5, 89, 17712452, 0, 263, 0, 1, 0, 204, 0, 0, 0, 120, 18178514, Wahr)
T_Const("56") = Array("C4F8 (2)", "Perfluorcyclobutan", 200, 32, 267, 2, 270, 8, 388, 5, 2, 78, 324, 121, 869781, 0, 279, 0, 1, 0, 356, 0, 0, 0, 115, 1057336, Wahr)
T_Const("57") = Array("C4H5N (1)", "Methacrylnitril", 67, 91, 183, 61, 390, 590, 1, 4, 1, 267, 5, 99, 69656338, 0, 218, 0, 1, 0, 329, 98031, 164030, 0, 522, 4307141, Wahr)
T_Const("58") = Array("C4H5N (2)", "Pyrrol", 67, 91, 249, 75, 403, 640, 5, 99, 210, 5, 77, 55558195, 0, 237, 1, 8, 1, 0, 291, 108280, 160290, 0, 554, 5724093, Wahr)
T_Const("59") = Array("C4H5O", "Methacrolein", 69, 83, 160, 62, 336, 516, 5, 4, 76, 258, 5, 96, 18415052, 0, 287, 0, 1, 0, 335, 0, 0, 0, 446, 92387532, Wahr)
T_Const("60") = Array("C4H6 (1)", "1-Butin", 54, 92, 147, 4, 281, 2, 463, 7, 4, 71, 220, 81, 22763891, 0, 27, 0, 8, 1, 0, 5, 165300, 202200, 0, 412, 76096388, Wahr)
T_Const("61") = Array("C4H6 (2)", "2-Butin", 54, 92, 240, 9, 300, 2, 488, 6, 5, 9, 221, 81, 61461999, 0, 277, 0, 8, 1, 0, 124, 146400, 185600, 0, 463, 633645, Wahr)
T_Const("62") = Array("C4H6 (3)", "1,3-Butadien", 54, 92, 164, 3, 268, 7, 425, 4, 33, 221, 81, 61461999, 0, 27, 0, 1, 0, 195, 110200, 150800, 147, 8, 415, Wahr)
T_Const("63") = Array("C4H6O (1)", "Dihydrofuran", 70, 92, 176, 81, 337, 537, 9, 5, 39, 208, 5, 76, 78351867, 0, 251, 0, 1, 0, 24, 0, 0, 0, 425, 14704358, Wahr)
T_Const("64") = Array("C4H6O (2)", "2-Butenal", 70, 92, 171, 26, 344, 526, 4, 4, 59, 256, 5, 95, 40440408, 0, 269, 0, 1, 0, 336, 0, 0, 0, 450, 4756619, Wahr)
T_Const("65") = Array("C4H8 (1)", "1-Buten", 56, 108, 87, 8, 266, 9, 419, 6, 4, 92, 240, 88, 98283562, 0, 277, 0, 3, 1, 0, 187, -126, 71340, 68, 7, 393, Wahr)
T_Const("66") = Array("C4H8 (2)", "cis-2-Buten", 56, 108, 134, 3, 276, 9, 435, 6, 4, 2, 234, 86, 65289537, 0, 272, 0, 3, 1, 0, 202, -6990, 65900, 0, 413, 62916448, Wahr)
T_Const("67") = Array("C4H8 (3)", "trans-2-Buten", 56, 108, 167, 6, 274, 428, 6, 4, 1, 238, 88, 20587469, 0, 274, 0, 1, 0, 214, -11180, 63010, 0, 410, 73547542, Wahr)
T_Const("68") = Array("C4H8 (4)", "Cyclobutan", 56, 108, 182, 4, 285, 7, 459, 9, 4, 99, 210, 77, 36253299, 0, 274, 0, 1, 0, 209, 26670, 110100, 19, 4, 431, 80599205, Wahr)
T_Const("69") = Array("C4H8 (5)", "Isobutylen", 56, 108, 132, 8, 266, 3, 417, 9, 4, 239, 88, 59431615, 0, 275, 0, 5, 1, 0, 19, -16910, 58110, 0, 393, 2429423, Wahr)
T_Const("70") = Array("C4H10 (1)", "n-Butan", 58, 124, 134, 8, 272, 7, 425, 2, 3, 8, 255, 94, 81978563, 0, 274, 0, 1, 0, 193, -126200, -16100, 80, 386, Wahr)
T_Const("71") = Array("C4H10 (2)", "Isobutan", 58, 124, 113, 6, 261, 3, 408, 1, 3, 65, 263, 97, 93963574, 0, 283, 0, 1, 1, 0, 176, -134600, -20900, 78, 3, 367, Wahr)
T_Const("72") = Array("C5H5N", "Pyridin", 79, 102, 231, 5, 388, 5, 620, 5, 63, 254, 94, 43013162, 0, 277, 2, 3, 1, 0, 24, 140300, 190300, 104, 7, 427, Wahr)
T_Const("73") = Array("C5H6", "Cyclopentadien", 66, 103, 162, 27, 313, 15, 502, 3, 5, 1, 229, 5, 84, 90731724, 0, 275, 0, 1, 0, 202, 133984, 179455, 0, 405, 9946208, Wahr)
T_Const("74") = Array("C5H6O", "Gamma-Pyran", 82, 103, 185, 23, 353, 15, 558, 8, 5, 12, 242, 5, 89, 95447363, 0, 267, 0, 1, 0, 254, 0, 0, 0, 380, 74390513, Wahr)
T_Const("75") = Array("C5H8 (1)", "Cyclopenten", 68, 119, 138, 1, 317, 4, 506, 4, 76, 243, 5, 90, 34326376, 0, 275, 0, 9, 1, 0, 203, 32950, 110900, 49, 4, 404, Wahr)
T_Const("76") = Array("C5H8 (2)", "1-trans-3-Pentadien", 68, 119, 185, 7, 315, 2, 496, 3, 99, 275, 102, 62791909, 0, 266, 0, 7, 1, 0, 175, 77870, 146800, 105, 380, 61675914, Wahr)
T_Const("77") = Array("C5H8 (3)", "1-cis-3-Pentadien", 68, 119, 138, 77, 315, 2, 496, 3, 99, 275, 102, 62791909, 0, 266, 0, 1, 0, 175, 78297, 145875, 0, 380, 61675914, Wahr)
T_Const("78") = Array("C5H8 (4)", "1,4-Pentadien", 68, 119, 124, 9, 299, 1, 478, 3, 79, 276, 103, 1905886, 0, 263, 0, 4, 1, 0, 104, 105500, 170400, 90, 4, 382, Wahr)
T_Const("79") = Array("C5H8 (5)", "1-Pentin", 68, 119, 167, 5, 313, 3, 493, 4, 4, 5, 278, 103, 80154224, 0, 275, 0, 9, 1, 0, 164, 144400, 210400, 0, 379, 70756001, Wahr)
T_Const("80") = Array("C5H8O", "Cyclopentanon", 84, 118, 222, 5, 403, 9, 626, 5, 37, 268, 99, 89186559, 0, 28, 3, 1, 0, 35, -192800, 0, 0, 450, 66131029, Wahr)
T_Const("81") = Array("C5H8O2", "Ethylarcrylat", 100, 118, 201, 373, 552, 3, 75, 320, 120, 29346571, 0, 261, 0, 1, 0, 4, 0, 0, 0, 344, 25911373, Wahr)
T_Const("82") = Array("C5H10 (1)", "1-Penten", 70, 135, 107, 9, 303, 1, 464, 7, 4, 5, 300, 112, 42630437, 0, 31, 0, 4, 1, 0, 245, -20930, 79170, 82, 9, 359, Wahr)
T_Const("83") = Array("C5H10 (2)", "cis-2-Penten", 70, 135, 121, 7, 310, 1, 475, 3, 69, 300, 112, 42630437, 0, 28, 0, 1, 0, 251, -28090, 71890, 0, 374, 8809, Wahr)
T_Const("84") = Array("C5H10 (3)", "trans-2-Penten", 70, 135, 132, 9, 309, 5, 471, 3, 52, 300, 112, 42630437, 0, 28, 0, 1, 0, 24, -31780, 69960, 0, 373, 1697, Wahr)
T_Const("85") = Array("C5H10 (4)", "Methylbuten-2", 70, 135, 139, 4, 311, 7, 470, 3, 45, 318, 119, 50566193, 0, 28, 0, 1, 0, 285, -42580, 59700, 0, 380, 99462991, Wahr)
T_Const("86") = Array("C5H12", "n-Pentan", 72, 151, 143, 4, 309, 2, 496, 6, 3, 37, 304, 113, 99777519, 0, 262, 0, 1, 0, 251, -146500, -8370, 116, 4, 358, Wahr)
T_Const("87") = Array("C6F6", "Hexafluorbenzol", 186, 57, 278, 44, 353, 4, 516, 7, 3, 3, 335, 126, 20943362, 0, 255, 0, 1, 0, 4, -957300, -880000, 0, 172, 54707479, Wahr)
T_Const("88") = Array("C6H6", "Benzol", 78, 114, 278, 7, 353, 3, 562, 1, 4, 89, 259, 96, 37913246, 0, 271, 0, 1, 0, 212, 82980, 129700, 127, 7, 394, Wahr)
T_Const("89") = Array("C6H6O", "Phenol", 94, 113, 314, 455, 694, 2, 6, 13, 229, 84, 71346493, 0, 24, 1, 6, 1, 0, 44, -96420, -32900, 120, 6, 511, Wahr)
T_Const("90") = Array("C6H8", "Cyclohexadien", 80, 13, 223, 95, 361, 55, 559, 4, 4, 54, 277, 5, 103, 60589599, 0, 271, 0, 1, 0, 216, 108443, 0, 0, 402, 38224447, Wahr)
T_Const("91") = Array("C6H10 (1)", "1,5-Hexadien", 82, 146, 132, 332, 6, 507, 3, 45, 328, 123, 4470307, 0, 26, 0, 1, 0, 16, 83740, 0, 0, 338, 5167915, Wahr)
T_Const("92") = Array("C6H10 (2)", "Cyclohexen", 82, 146, 169, 7, 356, 1, 560, 4, 4, 35, 292, 109, 286392, 0, 27, 0, 6, 1, 0, 21, -5360, 106900, 40, 2, 371, Wahr)
T_Const("93") = Array("C6H12 (1)", "Cyclohexan", 84, 162, 279, 7, 353, 9, 553, 4, 4, 7, 308, 115, 57023887, 0, 273, 0, 3, 1, 0, 213, -123200, 31780, 31, 4, 360, Wahr)
T_Const("94") = Array("C6H12 (2)", "1-Hexen", 84, 162, 133, 3, 336, 6, 504, 3, 17, 350, 132, 13813427, 0, 26, 0, 4, 1, 0, 285, -41700, 87500, 111, 337, Wahr)
MsgBox "test"
Else
'tabelle schon vorhanden
End If
Run Tab_const2()
End Function
Public Function Tab_const2()
If Tab_const_exist = False Then
'Tabelle mit den Konstanten:
T_Const("95") = Array("C6H12 (3)", "2,3-Dimethylbuten", 84, 162, 115, 9, 328, 8, 501, 3, 24, 343, 129, 36985692, 0, 27, 0, 1, 0, 221, -66360, 79090, 0, 319, 23533826, Wahr)
T_Const("96") = Array("C6H14", "n-Hexan", 86, 178, 177, 8, 341, 9, 507, 4, 2, 97, 370, 140, 6198172, 0, 26, 0, 1, 0, 296, -167300, -167, 152, 335, Wahr)
T_Const("97") = Array("C7F8", "Octafluortoluol", 236, 65, 377, 7, 390, 55, 534, 5, 2, 71, 428, 163, 15407672, 0, 26, 0, 1, 0, 475, 0, 0, 0, 146, 65259169, Wahr)
T_Const("98") = Array("C7H5N", "Benzonitril", 103, 124, 260, 464, 3, 699, 4, 4, 22, 345, 5, 130, 35821896, 0, 251, 3, 5, 1, 0, 36, 219000, 261000, 0, 415, 81377483, Wahr)
T_Const("99") = Array("C7H5NO (1)", "Phenylisocyanat", 119, 12, 260, 87, 435, 65, 640, 8, 3, 99, 316, 5, 118, 91496507, 0, 222, 0, 1, 0, 484, 0, 0, 0, 350, 60779347, Wahr)
T_Const("100") = Array("C7H5NO (2)", "Benzoxaol", 119, 12, 303, 65, 455, 65, 684, 3, 5, 21, 324, 5, 122, 6688634, 0, 376, 0, 1, 0, 461, 0, 0, 0, 381, 34452009, Wahr)
T_Const("101") = Array("C7H5NO (3)", "Indoxazen", 119, 12, 259, 74, 455, 6, 540, 1, 5, 21, 324, 5, 122, 6688634, 0, 376, 0, 1, 0, 462, 0, 0, 0, 853, 15043194, Wahr)
T_Const("102") = Array("C7H8", "Toluol", 92, 141, 178, 383, 8, 591, 7, 4, 11, 316, 118, 71809595, 0, 264, 0, 4, 1, 0, 257, 50030, 122100, 72, 360, Wahr)
T_Const("103") = Array("C7H8O (1)", "o-Cresol", 108, 14, 304, 1, 464, 2, 697, 6, 5, 1, 282, 105, 36731795, 0, 24, 1, 6, 1, 0, 443, -128700, -33000, 0, 434, Wahr)
T_Const("104") = Array("C7H8O (2)", "m-Cresol", 108, 14, 285, 4, 475, 4, 705, 8, 4, 56, 310, 116, 35683917, 0, 241, 1, 8, 1, 0, 464, -132400, -40570, 99, 438, Wahr)
T_Const("105") = Array("C7H8O (3)", "p-Cresol", 108, 14, 307, 9, 475, 1, 704, 6, 5, 15, 285, 5, 106, 73824701, 0, 251, 1, 6, 1, 0, 515, -125500, -30900, 110, 1, 439, Wahr)
T_Const("106") = Array("C7H8O2", "Guajacol", 124, 14, 305, 15, 478, 15, 700, 4, 4, 91, 303, 5, 113, 80128679, 0, 256, 0, 1, 0, 551, 0, 0, 0, 399, 85438898, Wahr)
T_Const("107") = Array("C7H14", "1-Hepten", 98, 189, 154, 3, 366, 8, 537, 2, 2, 84, 440, 167, 95125947, 0, 28, 0, 3, 1, 0, 3, -62340, 95880, 128, 1, 319, Wahr)
T_Const("108") = Array("C7H16", "n-Heptan", 100, 205, 182, 6, 371, 6, 540, 2, 2, 73, 432, 164, 75242916, 0, 263, 0, 1, 0, 351, -187900, 8000, 141, 5, 317, Wahr)
T_Const("109") = Array("C8F10", "Decafluorethylbenzol", 286, 73, 279, 18, 420, 565, 9, 2, 18, 533, 5, 205, 53308271, 0, 247, 0, 1, 0, 648, 0, 0, 0, 141, 93084106, Wahr)
T_Const("110") = Array("C8H6O", "Benzofuran", 118, 136, 267, 87, 452, 683, 4, 4, 37, 340, 5, 128, 3818406, 0, 262, 0, 1, 0, 366, 0, 0, 0, 354, 56554359, Wahr)
T_Const("111") = Array("C8H7NO", "Indol", 117, 15, 254, 326, 15, 793, 9, 4, 58, 356, 5, 134, 71105949, 0, 247, 0, 1, 0, 398, 0, 0, 0, 77, 98006141, Wahr)
T_Const("112") = Array("C8H8 (1)", "Cyclooctatetraen", 104, 152, 266, 15, 412, 640, 5, 4, 14, 345, 5, 130, 35821896, 0, 269, 0, 1, 0, 244, 298240, 370173, 0, 338, 27933989, Wahr)
T_Const("113") = Array("C8H8 (2)", "Styrol", 104, 152, 242, 5, 418, 3, 647, 3, 99, 464, 5, 177, 76485086, 0, 345, 0, 1, 1, 0, 257, 147500, 213900, 105, 372, Wahr)
T_Const("114") = Array("C8H10 (1)", "o-Xylol", 106, 168, 248, 417, 6, 630, 2, 3, 73, 369, 139, 66529137, 0, 263, 0, 5, 1, 0, 314, 19000, 122200, 129, 8, 348, Wahr)
T_Const("115") = Array("C8H10 (2)", "m-Xylol", 106, 168, 225, 3, 412, 3, 617, 3, 55, 376, 142, 44319997, 0, 26, 0, 3, 1, 0, 331, 17250, 118900, 108, 9, 345, Wahr)
T_Const("116") = Array("C8H10 (3)", "p-Xylol", 106, 168, 286, 4, 411, 5, 616, 2, 3, 52, 379, 143, 63449508, 0, 26, 0, 1, 1, 0, 324, 17960, 121200, 160, 4, 339, Wahr)
T_Const("117") = Array("C8H10 (4)", "Ethylbenzol", 106, 168, 178, 2, 409, 3, 617, 1, 3, 61, 374, 141, 64925644, 0, 263, 0, 4, 1, 0, 301, 29810, 130700, 0, 336, 1674878, Wahr)
T_Const("118") = Array("C8H10O (1)", "Ethylphenol", 122, 167, 269, 491, 1, 716, 4, 4, 41, 341, 5, 128, 77700549, 0, 253, 0, 1, 0, 531, -146600, 0, 0, 407, 3803432, Wahr)
T_Const("119") = Array("C8H10O (2)", "Xylenole", 122, 167, 348, 484, 1, 722, 8, 4, 32, 341, 5, 128, 77700549, 0, 246, 0, 1, 0, 417, 0, 0, 0, 376, 60622745, Wahr)
T_Const("120") = Array("C8H10O2", "Ethylguajacol", 138, 167, 265, 75, 512, 735, 7, 4, 31, 359, 5, 135, 89932564, 0, 253, 0, 1, 0, 6, 0, 0, 0, 386, 94368472, Wahr)
T_Const("121") = Array("C8H16", "Ethylcyclohexan", 112, 216, 161, 8, 404, 9, 609, 3, 3, 450, 171, 95371952, 0, 27, 0, 1, 0, 243, -171900, 39270, 0, 296, 3152381, Wahr)
T_Const("122") = Array("C8H18", "n-Octan", 114, 232, 216, 4, 398, 8, 568, 8, 2, 48, 492, 188, 80969371, 0, 259, 0, 1, 0, 394, -208600, 16400, 180, 9, 301, Wahr)
T_Const("123") = Array("C9F12 (1)", "Perfluormesitylen", 336, 81, 294, 5, 438, 578, 8, 1, 88, 614, 5, 238, 3503521, 0, 24, 0, 1, 0, 7, 0, 0, 0, 125, 49495011, Wahr)
T_Const("124") = Array("C9F12 (2)", "Perfluorethylvinylbenzol", 336, 81, 0, 469, 612, 1, 1, 84, 663, 5, 258, 3057963, 0, 24, 0, 1, 0, 761, 0, 0, 0, 138, 86710702, Wahr)
T_Const("125") = Array("C9F12 (3)", "Perfluorpropylbenzol", 336, 81, 294, 5, 439, 578, 8, 1, 86, 614, 5, 238, 3503521, 0, 24, 0, 1, 0, 697, 0, 0, 0, 126, 12017841, Wahr)
T_Const("126") = Array("C9H8", "Inden", 116, 163, 271, 15, 455, 15, 689, 3, 4, 7, 375, 5, 142, 24469504, 0, 267, 0, 1, 0, 34, 0, 0, 0, 352, 98241863, Wahr)
T_Const("127") = Array("C9H10", "Alpha-Methylstyrol", 118, 179, 227, 87, 438, 5, 654, 3, 4, 412, 5, 156, 96729082, 0, 255, 0, 1, 0, 325, 113050, 208680, 0, 324, 6375143, Wahr)
T_Const("128") = Array("C9H12 (1)", "1,2,3-Trimethylbenzol", 120, 195, 247, 7, 449, 2, 664, 5, 3, 46, 430, 163, 95316372, 0, 27, 0, 6, 1, 0, 39, -9590, 124600, 69, 9, 333, Wahr)
T_Const("129") = Array("C9H12 (2)", "1,2,4-Trimethylbenzol", 120, 195, 227, 442, 5, 649, 1, 3, 23, 430, 163, 95316372, 0, 258, 0, 3, 1, 0, 39, -13940, 117000, 110, 335, Wahr)
T_Const("130") = Array("C9H12 (3)", "1,3,5-Trimethylbenzol", 120, 195, 228, 4, 437, 9, 637, 3, 3, 13, 433, 165, 15212853, 0, 26, 0, 1, 1, 0, 398, -16080, 118000, 79, 6, 324, Wahr)
T_Const("131") = Array("C9H20", "n-Nonan", 128, 259, 219, 7, 424, 594, 6, 2, 31, 548, 211, 39119084, 0, 26, 0, 1, 0, 444, -229200, 24830, 120, 6, 288, Wahr)
T_Const("132") = Array("C10H8 (1)", "Naphthalin", 128, 174, 353, 5, 491, 1, 748, 4, 4, 5, 410, 155, 97045599, 0, 267, 0, 1, 0, 302, 151100, 223700, 147, 337, Wahr)
T_Const("133") = Array("C10H8 (2)", "Azulen", 128, 174, 372, 15, 474, 711, 5, 3, 9, 409, 5, 155, 77112398, 0, 27, 0, 1, 0, 355, 280110, 352127, 0, 335, 118277, Wahr)
T_Const("134") = Array("C10H10 (1)", "Methylinden", 130, 19, 328, 76, 475, 702, 7, 3, 55, 431, 5, 164, 55259611, 0, 262, 0, 1, 0, 385, 0, 0, 0, 330, 79038446, Wahr)
T_Const("135") = Array("C10H10 (2)", "Dihydronaphthalin", 130, 19, 301, 15, 364, 15, 724, 6, 3, 73, 423, 5, 161, 35678742, 0, 262, 0, 1, 0, 356, 0, 0, 0, 150, 29738646, Wahr)
T_Const("136") = Array("C10H12 (1)", "Dicyclopentadien", 132, 206, 306, 15, 443, 15, 659, 7, 3, 36, 429, 5, 163, 75337521, 0, 263, 0, 1, 0, 334, 0, 0, 0, 293, 28524628, Wahr)
T_Const("137") = Array("C10H12 (2)", "Methylindan", 132, 206, 275, 6, 476, 3, 701, 2, 3, 4, 445, 5, 170, 15207841, 0, 26, 0, 1, 0, 385, 0, 0, 0, 325, 32926077, Wahr)
T_Const("138") = Array("C10H22", "n-Decan", 142, 286, 243, 5, 447, 3, 617, 6, 2, 11, 603, 233, 67777196, 0, 247, 0, 1, 0, 49, -249800, 33240, 201, 8, 276, Wahr)
T_Const("139") = Array("C11H10 (1)", "1-Methylnaphthalin", 142, 201, 242, 7, 517, 8, 772, 3, 57, 445, 169, 95194982, 0, 25, 0, 5, 1, 0, 334, 116900, 217800, 48, 8, 320, Wahr)
T_Const("140") = Array("C11H10 (2)", "2-Methylnaphthalin", 142, 201, 307, 7, 514, 2, 761, 3, 51, 462, 176, 76230265, 0, 26, 0, 4, 1, 0, 382, 116200, 216300, 84, 2, 307, Wahr)
T_Const("141") = Array("C12H8", "Acenaphthylen", 152, 196, 365, 65, 543, 15, 790, 1, 3, 67, 473, 181, 1754445, 0, 264, 0, 1, 0, 469, 258338, 0, 0, 341, 47709462, Wahr)
T_Const("142") = Array("C12H10", "Diphenyl", 154, 212, 342, 4, 528, 4, 789, 3, 85, 502, 192, 83344301, 0, 295, 0, 1, 0, 364, 182200, 280300, 121, 4, 310, Wahr)
T_Const("143") = Array("C13H10", "Fluoren", 166, 223, 387, 35, 567, 15, 816, 6, 3, 38, 521, 5, 200, 69076101, 0, 26, 0, 1, 0, 484, 0, 0, 0, 325, 27470254, Wahr)
T_Const("144") = Array("C14H10 (1)", "Anthracen", 178, 234, 489, 7, 613, 883, 3, 24, 554, 213, 81742421, 0, 245, 0, 1, 0, 465, 224800, 0, 0, 322, 36242454, Wahr)
T_Const("145") = Array("C14H10 (2)", "Phenanthren", 178, 234, 373, 7, 613, 878, 3, 24, 554, 213, 81742421, 0, 246, 0, 1, 0, 492, 207090, 308100, 0, 327, 21877118, Wahr)
T_Const("146") = Array("C5 .. C8", "Aliphatengruppe C5 - C8", 98, 189, 154, 3, 366, 8, 537, 2, 2, 84, 440, 167, 95125947, 0, 28, 0, 3, 1, 0, 3, -62340, 95880, 128, 1, 319, Wahr)
T_Const("147") = Array("C9 .. C11", "Aliphatengruppe C9 - C11", 142, 286, 243, 5, 447, 3, 617, 6, 2, 11, 603, 233, 67777196, 0, 247, 0, 1, 0, 49, -249800, 33240, 201, 8, 276, Wahr)
T_Const("148") = Array("C12 .. C14", "Aliphatengruppe C12 - C14", 98, 189, 154, 3, 366, 8, 537, 2, 2, 84, 440, 167, 95125947, 0, 28, 0, 3, 1, 0, 3, -62340, 95880, 128, 1, 319, Wahr)
T_Const("149") = Array("C15 .. C17", "Aliphatengruppe C15-C17", 128, 174, 353, 5, 491, 1, 748, 4, 4, 5, 410, 155, 97045599, 0, 267, 0, 1, 0, 302, 151100, 223700, 147, 337, Wahr)
T_Const("150") = Array("C18 .. C20", "Aliphatengruppe C18-C20", 128, 174, 353, 5, 491, 1, 748, 4, 4, 5, 410, 155, 97045599, 0, 267, 0, 1, 0, 302, 151100, 223700, 147, 337, Wahr)
T_Const("151") = Array("C21 .. C23", "Aliphatengruppe C21-C23", 128, 174, 353, 5, 491, 1, 748, 4, 4, 5, 410, 155, 97045599, 0, 267, 0, 1, 0, 302, 151100, 223700, 147, 337, Wahr)
T_Const("152") = Array("C24 .. C26", "Aliphatengruppe C24-C26", 128, 174, 353, 5, 491, 1, 748, 4, 4, 5, 410, 155, 97045599, 0, 267, 0, 1, 0, 302, 151100, 223700, 147, 337, Wahr)
T_Const("153") = Array("C27 .. C31", "Aliphatengruppe C27-C31", 128, 174, 353, 5, 491, 1, 748, 4, 4, 5, 410, 155, 97045599, 0, 267, 0, 1, 0, 302, 151100, 223700, 147, 337, Wahr)
T_Const("154") = Array("NGFDNGFD", "mjhmf", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, Wahr)
T_Const("155") = Array("T", "t", 11, 1, 2, 3, 4, 8, 6, 9, 11, 11, 11, 11, 12, 13, 14, Wahr)
T_Const("156") = Array("C14H10(3)", "Aromatengruppe C14 H10", 178, 234, 489, 7, 613, 883, 3, 24, 554, 216, 81742421, 0, 245, 0, 1, 0, 465, 22480, 0, 0, 322, 36242454, Wahr)
Set Propnr_Const = CreateObject("Scripting.Dictionary")
Propnr_Const("Summenformel") = 0
Propnr_Const("Name") = 1
Propnr_Const("MI") = 2
Propnr_Const("TM") = 3
Propnr_Const("TB") = 4
Propnr_Const("TC") = 5
Propnr_Const("PC") = 6
Propnr_Const("VC") = 7
Propnr_Const("VB") = 8
Propnr_Const("ZC") = 9
Propnr_Const("DIPLOM_NÜ") = 10
Propnr_Const("FQ") = 11
Propnr_Const("OMEGA") = 12
Propnr_Const("DELTA_HF") = 13
Propnr_Const("DELTA_GF") = 14
Propnr_Const("DELTA_HM") = 15
Propnr_Const("DELTA_HVS") = 16
Propnr_Const("GEPRUEFT") = 17
Tab_const_exist = True
Else
'tabelle schon vorhanden
End If
End Function
|