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)
*Topic verschoben, VB-Tag eingefügt*
(is nur der teil des programms der net so funzt wie er soll)
Visual Basic-Quellcode
- Dim An, Zi As Variant
- Zi = UserForm2.Label5.Caption
- An = UserForm2.Label6.Caption
- If An = "HBF München" And Zi = "HBF Dresden" Then
- Strecke = 34.5
- End If
- If An = "HBF München" And Zi = "HBF Berlin" Then
- Strecke = 79
- End If
- If An = "HBF München" And Zi = "HBF Frankfurt" Then
- Strecke = 79
- End If
- If An = "HBF München" And Zi = "HBF Hamburg" Then
- Strecke = 109
- End If
- If An = "HBF München" And Zi = "HBF Köln" Then
- Strecke = 84
- End If
- If An = "HBF München" And Zi = "HBF Leipzig" Then
- Strecke = 64.95
- End If
- If An = "HBF München" And Zi = "HBF Chemnitz" Then
- Strecke = 36.7
- End If
- If An = "HBF Dresden" And Zi = "HBF Berlin" Then
- Strecke = 19
- End If
- If An = "HBF Dresden" And Zi = "HBF Frankfurt" Then
- Strecke = 33
- End If
- If An = "HBF Dresden" And Zi = "HBF Hamburg" Then
- Strecke = 44.3
- End If
- If An = "HBF Dresden" And Zi = "HBF Köln" Then
- Strecke = 90.5
- End If
- If An = "HBF Dresden" And Zi = "HBF Leipzig" Then
- Strecke = 22
- End If
- If An = "HBF Dresden" And Zi = "HBF Chemnitz" Then
- Strecke = 14.8
- End If
- If An = "HBF Berlin" And Zi = "HBF Frankfurt" Then
- Strecke = 89
- End If
- If An = "HBF Berlin" And Zi = "HBF Hamburg" Then
- Strecke = 69
- End If
- If An = "HBF Berlin" And Zi = "HBF Köln" Then
- Strecke = 79
- End If
- If An = "HBF Berlin" And Zi = "HBF Leipzig" Then
- Strecke = 29
- End If
- If An = "HBF Berlin" And Zi = "HBF Chemnitz" Then
- Strecke = 34.5
- End If
- If An = "HBF Frankfurt" And Zi = "HBF Hamburg" Then
- Strecke = 79
- End If
- If An = "HBF Frankfurt" And Zi = "HBF Köln" Then
- Strecke = 49
- End If
- If An = "HBF Frankfurt" And Zi = "HBF Leipzig" Then
- Strecke = 59
- End If
- If An = "HBF Frankfurt" And Zi = "HBF Chemnitz" Then
- Strecke = 59
- End If
- If An = "HBF Hamburg" And Zi = "HBF Köln" Then
- Strecke = 79
- End If
- If An = "HBF Hamburg" And Zi = "HBF Leipzig" Then
- Strecke = 69
- End If
- If An = "HBF Hamburg" And Zi = "HBF Chemnitz" Then
- Strecke = 79
- End If
- If An = "HBF Köln" And Zi = "HBF Leipzig" Then
- Strecke = 89
- End If
- If An = "HBF Köln" And Zi = "HBF Chemnitz" Then
- Strecke = 99
- End If
- If An = "HBF Leipzig" And Zi = "HBF Chemnitz" Then
- Strecke = 16.9
- End If
- UserForm2.Label8.Caption = Strecke
- If UserForm2.CommandButton3.Enabled = True Then
- UserForm2.Hide
- UserForm5.Show
- End If
- End Sub
*Topic verschoben, VB-Tag eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()