Ich habe ein kleines Programm geschrieben mit Exel, da ist ja dieser VB editor dabei. Muss ich da jetzt immer Exel für das Programm starten dann in den VB editor gehen und oben auf den Pfeildrücken ? Oder kann man das auch in eine EXE oder so umwandeln für ein Besseres verständnis hier der Quellcode:
Private Sub CommandButton1_Click()
liter = [a2]
liter2 = [b2]
liter3 = [c2]
tank1liter = 0
tank2liter = 0
tank3liter = 0
benzinsumme = [e2]
supersumme = [f2]
dieselsumme = [g2]
gessumme = [h2]
End Sub
Private Sub CommandButton2_Click()
[a2] = [a2] - tank1liter
liter = [a2]
[e2] = [e2] + benzineinnahmen
benzinsumme = [e2]
tank1liter = 0
benzineinnahmen = 0
[b2] = [b2] - tank2liter
liter2 = [b2]
[f2] = [f2] + supereinnahmen
supersumme = [f2]
tank2liter = 0
supereinnahmen = 0
[c2] = [c2] - tank3liter
liter3 = [c2]
[g2] = [g2] + dieseleinnahmen
dieselsumme = [g2]
tank3liter = 0
dieseleinnahmen = 0
End Sub
Private Sub CommandButton3_Click()
[a2] = benzinfüllung
[b2] = superfüllung
[c2] = dieselfüllung
liter = [a2]
liter2 = [b2]
liter3 = [c2]
benzinfüllung = ""
superfüllung = ""
dieselfüllung = ""
End Sub
Private Sub CommandButton4_Click()
[e2] = 0
[f2] = 0
[g2] = 0
End Sub
Private Sub CommandButton5_Click()
End
End Sub
Private Sub CommandButton6_Click()
MsgBox "Tankstellen Hilfe v 1.0 Copyrigt by Michael Hawranek"
End Sub
Private Sub date_form_click()
date_form = Date
End Sub
Private Sub Frame6_Click()
End Sub
Private Sub gessumme_Click()
gessumme = [h2]
End Sub
Private Sub UserForm_Click()
liter = [a2]
Dim gesamtbenzin As Double
gesamtbenzin = [a2]
End Sub
Vielen Dank im vorrauß!
Micha
Private Sub CommandButton1_Click()
liter = [a2]
liter2 = [b2]
liter3 = [c2]
tank1liter = 0
tank2liter = 0
tank3liter = 0
benzinsumme = [e2]
supersumme = [f2]
dieselsumme = [g2]
gessumme = [h2]
End Sub
Private Sub CommandButton2_Click()
[a2] = [a2] - tank1liter
liter = [a2]
[e2] = [e2] + benzineinnahmen
benzinsumme = [e2]
tank1liter = 0
benzineinnahmen = 0
[b2] = [b2] - tank2liter
liter2 = [b2]
[f2] = [f2] + supereinnahmen
supersumme = [f2]
tank2liter = 0
supereinnahmen = 0
[c2] = [c2] - tank3liter
liter3 = [c2]
[g2] = [g2] + dieseleinnahmen
dieselsumme = [g2]
tank3liter = 0
dieseleinnahmen = 0
End Sub
Private Sub CommandButton3_Click()
[a2] = benzinfüllung
[b2] = superfüllung
[c2] = dieselfüllung
liter = [a2]
liter2 = [b2]
liter3 = [c2]
benzinfüllung = ""
superfüllung = ""
dieselfüllung = ""
End Sub
Private Sub CommandButton4_Click()
[e2] = 0
[f2] = 0
[g2] = 0
End Sub
Private Sub CommandButton5_Click()
End
End Sub
Private Sub CommandButton6_Click()
MsgBox "Tankstellen Hilfe v 1.0 Copyrigt by Michael Hawranek"
End Sub
Private Sub date_form_click()
date_form = Date
End Sub
Private Sub Frame6_Click()
End Sub
Private Sub gessumme_Click()
gessumme = [h2]
End Sub
Private Sub UserForm_Click()
liter = [a2]
Dim gesamtbenzin As Double
gesamtbenzin = [a2]
End Sub
Vielen Dank im vorrauß!
Micha
