DB Automat Excel vb

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Killerdisc.

    DB Automat Excel vb

    Ich brauch hilfe, denn ich will nen DB automaten mit excel über vb nachstellen so ich hab also hinbekommen das einer von münchen nach berlin kann aber net umgedreht weil ich es nicht per If anweisung angegeben hab wie bekomm ich es allso hin das zwei variablen mehrere aber die gleichen werte haben??? ich geb dir den quellcode mit

    (is nur der teil des programms der net so funzt wie er soll)

    Visual Basic-Quellcode

    1. Dim An, Zi As Variant
    3. Zi = UserForm2.Label5.Caption
    4. An = UserForm2.Label6.Caption
    7. If An = "HBF München" And Zi = "HBF Dresden" Then
    8. Strecke = 34.5
    9. End If
    11. If An = "HBF München" And Zi = "HBF Berlin" Then
    12. Strecke = 79
    13. End If
    15. If An = "HBF München" And Zi = "HBF Frankfurt" Then
    16. Strecke = 79
    17. End If
    19. If An = "HBF München" And Zi = "HBF Hamburg" Then
    20. Strecke = 109
    21. End If
    23. If An = "HBF München" And Zi = "HBF Köln" Then
    24. Strecke = 84
    25. End If
    27. If An = "HBF München" And Zi = "HBF Leipzig" Then
    28. Strecke = 64.95
    29. End If
    31. If An = "HBF München" And Zi = "HBF Chemnitz" Then
    32. Strecke = 36.7
    33. End If
    35. If An = "HBF Dresden" And Zi = "HBF Berlin" Then
    36. Strecke = 19
    37. End If
    39. If An = "HBF Dresden" And Zi = "HBF Frankfurt" Then
    40. Strecke = 33
    41. End If
    43. If An = "HBF Dresden" And Zi = "HBF Hamburg" Then
    44. Strecke = 44.3
    45. End If
    47. If An = "HBF Dresden" And Zi = "HBF Köln" Then
    48. Strecke = 90.5
    49. End If
    51. If An = "HBF Dresden" And Zi = "HBF Leipzig" Then
    52. Strecke = 22
    53. End If
    55. If An = "HBF Dresden" And Zi = "HBF Chemnitz" Then
    56. Strecke = 14.8
    57. End If
    59. If An = "HBF Berlin" And Zi = "HBF Frankfurt" Then
    60. Strecke = 89
    61. End If
    63. If An = "HBF Berlin" And Zi = "HBF Hamburg" Then
    64. Strecke = 69
    65. End If
    67. If An = "HBF Berlin" And Zi = "HBF Köln" Then
    68. Strecke = 79
    69. End If
    71. If An = "HBF Berlin" And Zi = "HBF Leipzig" Then
    72. Strecke = 29
    73. End If
    75. If An = "HBF Berlin" And Zi = "HBF Chemnitz" Then
    76. Strecke = 34.5
    77. End If
    79. If An = "HBF Frankfurt" And Zi = "HBF Hamburg" Then
    80. Strecke = 79
    81. End If
    83. If An = "HBF Frankfurt" And Zi = "HBF Köln" Then
    84. Strecke = 49
    85. End If
    87. If An = "HBF Frankfurt" And Zi = "HBF Leipzig" Then
    88. Strecke = 59
    89. End If
    91. If An = "HBF Frankfurt" And Zi = "HBF Chemnitz" Then
    92. Strecke = 59
    93. End If
    95. If An = "HBF Hamburg" And Zi = "HBF Köln" Then
    96. Strecke = 79
    97. End If
    99. If An = "HBF Hamburg" And Zi = "HBF Leipzig" Then
    100. Strecke = 69
    101. End If
    103. If An = "HBF Hamburg" And Zi = "HBF Chemnitz" Then
    104. Strecke = 79
    105. End If
    107. If An = "HBF Köln" And Zi = "HBF Leipzig" Then
    108. Strecke = 89
    109. End If
    111. If An = "HBF Köln" And Zi = "HBF Chemnitz" Then
    112. Strecke = 99
    113. End If
    115. If An = "HBF Leipzig" And Zi = "HBF Chemnitz" Then
    116. Strecke = 16.9
    117. End If
    119. UserForm2.Label8.Caption = Strecke
    122. If UserForm2.CommandButton3.Enabled = True Then
    123. UserForm2.Hide
    124. UserForm5.Show
    125. End If
    126. End Sub


    *Topic verschoben, VB-Tag eingefügt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende