Startseite
  Über...
  Archiv
  Gästebuch
  Kontakt
 

  Abonnieren
 



  Letztes Feedback



http://myblog.de/netline

Gratis bloggen bei
myblog.de





Private Sub cmdBerechnen_Click()

Dim lngZeile As Long

 

lngZeile = 1

 

        If Me.txtVon = "" Then

            MsgBox ("Bitte Startwert eingeben!", vbOKOnly

        ElseIf Me.cboVon = Me.cboNach Then

            MsgBox ("Bitte Unterschiedliche Währungen wählen!"

       

        Else

         Range("A1".EntireRow.Insert

            Me.txtNach = Tabelle2.Cells(Me.cboNach.ListIndex + 2, Me.cboVon.ListIndex + 2) * Val(Me.txtVon) 'Val(Replace(Replace(Me.txtVon, ".", "", ",", ".")

            Me.txtNach = Format(Me.txtNach, "#,##0.00"

            Tabelle3.Cells(lngZeile, 1) = Date

            Tabelle3.Cells(lngZeile, 2) = Me.txtVon

            Tabelle3.Cells(lngZeile, 3) = Me.cboVon

            Tabelle3.Cells(lngZeile, 4) = Me.txtNach

            Tabelle3.Cells(lngZeile, 5) = Me.cboNach

       

        End If

    Do

        If Tabelle1.Cells(lngZeile, 1) = "" Then

    Exit Do

        Else

            lngZeile = lngZeile + 1

        End If

    Loop

End Sub

Private Sub cmdEnde_Click()

 

        End

       

End Sub

 

Private Sub cmdNeueWaehrung_Click()

 

    Unload Me

    NeueWaehrung.Show

   

   

 

End Sub

 

Private Sub UserForm_Activate()

   

    Dim lngZeile As Long

    lngZeile = 2

 

    Do

        If Tabelle2.Cells(lngZeile, 1) = "" Then

    Exit Do

        Else

        Me.cboVon.AddItem Tabelle2.Cells(lngZeile, 1)

        Me.cboNach.AddItem Tabelle2.Cells(lngZeile, 1)

        lngZeile = lngZeile + 1

        End If

    Loop

   

   

End Sub

 

 

Private Sub txtEingabe_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 

    Me.txtEingabe = Format(Val(Replace(Replace(Me.txtEingabe, ".", "", ",", "."), "#,##0.00"

   

End Sub

4.5.16 19:38
 


Werbung


bisher 0 Kommentar(e)     TrackBack-URL

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



 Smileys einfügen



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