Startseite
  Über...
  Archiv
  Gästebuch
  Kontakt
 

  Abonnieren
 



  Letztes Feedback



https://myblog.de/netline

Gratis bloggen bei
myblog.de





Waehrungsrechner


Private Sub cmdBerechnen_Click()
Dim lngZeile As Long

lngZeile = 1

        If Me.txtEingabe = "" Then
            MsgBox "Bitte Startwert eingeben!", vbOKOnly
        ElseIf Me.cboVonWaehrung = Me.cboNachWaehrung Then
            MsgBox "Bitte Unterschiedliche Währungen wählen!"
        
        Else
            Me.txtAusgabe = Tabelle2.Cells(Me.cboNachWaehrung.ListIndex + 2, Me.cboVonWaehrung.ListIndex + 2) * Val(Me.txtEingabe) 'Val(Replace(Replace(Me.txtEingabe, ".", "", ",", ".")
            Me.txtAusgabe = Format(Me.txtAusgabe, "#,##0.00"
            Tabelle1.Cells(lngZeile, 1) = Date
            Tabelle1.Cells(lngZeile, 2) = Me.txtEingabe
            Tabelle1.Cells(lngZeile, 3) = Me.cboVonWaehrung
            Tabelle1.Cells(lngZeile, 4) = Me.txtAusgabe
            Tabelle1.Cells(lngZeile, 5) = Me.cboNachWaehrung
        
        End If
    Do
        If Tabelle1.Cells(lngZeile, 1) = "" Then
    Exit Do
        Else
            lngZeile = lngZeile + 1
        End If
    Loop
End Sub
4.5.16 17:33
 


Werbung


bisher 0 Kommentar(e)     TrackBack-URL

Name:
Email:
Website:
E-Mail bei weiteren Kommentaren
Informationen speichern (Cookie)


Die Datenschuterklärung und die AGB habe ich gelesen, verstanden und akzeptiere sie. (Pflicht Angabe)

 Smileys einfügen
s



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung