Option Explicit
Dim Kurs As Single
Dim Betrag As Single
Dim KV As String
Dim abrechnung As Currency
Dim Prov As Single
Dim Euro As Currency
Const Proz = 0.015
'Alexander Weis
Private Sub aus_euro_Click()
Euro = aus_euro.Caption
End Sub
Private Sub aus_prov_Click()
Prov = aus_prov.Caption
End Sub
Private Sub bef_ende_Click()
End
End Sub
Private Sub bef_next_Click()
ein_fremdwaehrung.SetFocus
End Sub
Private Sub bef_umrechnung_Click()
Euro = Betrag / Kurs
Prov = Euro * Proz
If KV = "Verkauf" Then
abrechnung = (Euro - Prov)
Else
abrechnung = (Prov + Euro)
End If
aus_abrechnungsbetrag.Caption = abrechnung
aus_euro.Caption = Euro
aus_prov.Caption = Prov
End Sub
Private Sub ein_fremdkurs_lostfocus()
Kurs = ein_fremdkurs.Text
ein_fremdkurs.SelStart = 0
ein_fremdkurs.SelLength = Len(ein_fremdkurs.Text)
End Sub
Private Sub ein_fremdwaehrung_lostfocus()
Betrag = ein_fremdwaehrung.Text
ein_fremdwaehrung.SelLength = Len(ein_fremdwaehrung.Text)
ein_fremdwaehrung.SelStart = 0
End Sub
Private Sub ein_kv_lostfocus()
KV = ein_kv.Text
ein_kv.SelStart = 0
ein_kv.SelLength = Len(ein_kv.Text)
End Sub
Private Sub ein_fremdwaehrung_Change()
End Sub
Mein Problem ist das ich wen ich auf bef=befehlschaltfläche aus=ausgabefeld ein=eingabefeld wenn ich auf bef_next klicke makiert er mir nicht das feld und stellt sich auch nicht vor das wort er stellt sich nur hinter das wort bei denn anderen eingabefelder makiert erst brav dann
Nächster fehler ist wenn ich Zahlen eingebe bei und dann auf bef_berechnen klicke dann makiert er mir die erste zeile Euro = Betrag / Kurs und sagt Überläufer Laufzeitenfehler 6 Bittte um Hilfe danke im voraus
Dim Kurs As Single
Dim Betrag As Single
Dim KV As String
Dim abrechnung As Currency
Dim Prov As Single
Dim Euro As Currency
Const Proz = 0.015
'Alexander Weis
Private Sub aus_euro_Click()
Euro = aus_euro.Caption
End Sub
Private Sub aus_prov_Click()
Prov = aus_prov.Caption
End Sub
Private Sub bef_ende_Click()
End
End Sub
Private Sub bef_next_Click()
ein_fremdwaehrung.SetFocus
End Sub
Private Sub bef_umrechnung_Click()
Euro = Betrag / Kurs
Prov = Euro * Proz
If KV = "Verkauf" Then
abrechnung = (Euro - Prov)
Else
abrechnung = (Prov + Euro)
End If
aus_abrechnungsbetrag.Caption = abrechnung
aus_euro.Caption = Euro
aus_prov.Caption = Prov
End Sub
Private Sub ein_fremdkurs_lostfocus()
Kurs = ein_fremdkurs.Text
ein_fremdkurs.SelStart = 0
ein_fremdkurs.SelLength = Len(ein_fremdkurs.Text)
End Sub
Private Sub ein_fremdwaehrung_lostfocus()
Betrag = ein_fremdwaehrung.Text
ein_fremdwaehrung.SelLength = Len(ein_fremdwaehrung.Text)
ein_fremdwaehrung.SelStart = 0
End Sub
Private Sub ein_kv_lostfocus()
KV = ein_kv.Text
ein_kv.SelStart = 0
ein_kv.SelLength = Len(ein_kv.Text)
End Sub
Private Sub ein_fremdwaehrung_Change()
End Sub
Mein Problem ist das ich wen ich auf bef=befehlschaltfläche aus=ausgabefeld ein=eingabefeld wenn ich auf bef_next klicke makiert er mir nicht das feld und stellt sich auch nicht vor das wort er stellt sich nur hinter das wort bei denn anderen eingabefelder makiert erst brav dann
Nächster fehler ist wenn ich Zahlen eingebe bei und dann auf bef_berechnen klicke dann makiert er mir die erste zeile Euro = Betrag / Kurs und sagt Überläufer Laufzeitenfehler 6 Bittte um Hilfe danke im voraus