Hier mein Code:
Jetz die Frage wo is der Fehler ich bekomm keine Ausgabe wenn ich aufen Button klick, alles andre funzt wunderbar ... ich hab ka irgendwie zu dem Projekt xD oder ka wie ichs nennen soll issen umrechner für etwas belangloses xD trotzdem will ich dass er geht ^^^wäre für jeder Hilfe dankbar ... Greetz EpoX
@dit ich sollte von irgendwo ganz hoch runter springen <.< ich hab die ausgabe vergessen ka wieso fragt net xD prob gelöst ... sry
Code:
Option Explicit
Dim Euro As Single
Dim Fremd As Single
Dim Kurs As Single
Private Sub CBPet_Click()
Kurs = 1.65847
Fremd = Val(TBFremd.Text)
Euro = Val(TBEuro.Text)
If Euro = 0 And Fremd = 0 Then
MsgBox ("Geben Sie einen Wert ein!")
ElseIf Euro = 0 And Fremd > 0 Then
Euro = Fremd * Kurs
ElseIf Fremd = 0 And Euro > 0 Then
Fremd = Euro / Kurs
Else
MsgBox ("Bitte geben Sie nur einen Wert ein!")
End If
End Sub
@dit ich sollte von irgendwo ganz hoch runter springen <.< ich hab die ausgabe vergessen ka wieso fragt net xD prob gelöst ... sry