Problem mit select case

K

Klaiba

Grünschnabel
hallo erstmal

ich hab mal ne frage .
ich habe ein programm welches ein listfeld hat ganz normal in welchem werte und namen stehen die berechnet werden sollen. mein probelm ist das wenn ich auf berechenen klicke (mein cmdbutton) und kein slect case angewählt ist mir ds programm abstürzt. ich hab jetzt probiert mit If slect case = true then..... usw aber dann gibts ein problem denn nun kann cih auch was anwählen und er gibt totzdem meine fehlermeldung an.

ich hoffe es is nich zu kompliziert

danke für eure hilfe
 
If IsNumeric(txtEingabe) = True Then

txtAusgabe = txtEingabe / (lstWährung.ItemData(lstWährung.ListIndex) / 10000)
txtAusgabe = Format(txtAusgabe, "#,##0.00")

lblAusgabe.Visible = True
lblEingabe.Visible = True
txtAusgabe.Visible = True

Else
MsgBox "Bitte nur Zahlen eingeben!", vbCritical, "FEHLER"


ich brauch aber noch ein if der ne fehlermeldung abgibt das ich was aus dem select case anwählen muss
 
"ich brauch aber noch ein if der ne fehlermeldung abgibt das ich was aus dem select case anwählen muss "

Meinst du damit die ListBox, in der du eine Währung aussuchen mußt, bevor du auf "Berechnen" klickst?
Welche Werte stehen denn z.B. in der Liste?
 
Vieleicht hilft dir das:

If lstWährung.ListIndex < 0 Then
MsgBox "Bitte eine Währung auswählen", vbOKOnly, "Hinweis"
Else
If IsNumeric(txtEingabe.Text) = True Then
txtAusgabe.Text = txtEingabe.Text / (lstWährung.Text / 10000)
txtAusgabe.Text = Format(txtAusgabe.Text, "#,##0.00")

lblAusgabe.Visible = True
lblEingabe.Visible = True
txtAusgabe.Visible = True
Else
MsgBox "Bitte nur Zahlen eingeben!", vbCritical, "FEHLER"
End If
End If

Noch ein Tip: auch wenn es ohne .text funktioniert, so ist es doch übersichtlicher, wenn du es bei den Textfeldern mit angibst. Der Code wird daurch lesbarer.
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück