Startseite
  Über...
  Archiv
  Gästebuch
  Kontakt
 

  Abonnieren
 



  Letztes Feedback



https://myblog.de/netline

Gratis bloggen bei
myblog.de





Private Sub cmdBerechnen_Click()

    If Me.cboVon = "" Then
        MsgBox "Bitte geben sie eine Ausgangswährung an!"
    ElseIf Me.cboNach = "" Then
        MsgBox " Bitte geben sie eine zielwährung an"
    ElseIf Me.txtVon = "" Then
        MsgBox "Bitte geben sie einen Ausgangsbetrag an"
    Else
        Me.txtNach = Tabelle2.Cells(Me.cboVon.ListIndex + 2, Me.cboNach.ListIndex + 2) * Me.txtVon
    End If
    
    


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 UserForm_Click()

End Sub

4.5.16 15:51


Werbung


Neue Währung

Private Sub cmdEintragen_Click()
    Dim lngZeile, lngZeile2 As Long
    lngZeile = 2
    lngZeile2 = 2
    
    Do
        If Tabelle2.Cells(lngZeile, 1) = "" Then
        Tabelle2.Cells(lngZeile, 1) = Me.txtNeueWaehrung
        Tabelle2.Cells(1, lngZeile) = Me.txtNeueWaehrung
    Exit Do
        Else
        lngZeile = lngZeile + 1
    End If

    Loop
    
    
    
'    Tabelle2.Cells(lngZeile, 2) = InputBox("1" + Me.txtNeueWaehrung + "= wieviel Euro"
'    Tabelle2.Cells(2, lngZeile) = 1 / Tabelle2.Cells(lngZeile, 2)
'
'    Tabelle2.Cells(lngZeile, 3) = InputBox("1" + Me.txtNeueWaehrung + "= wieviel US Dollar"
'    Tabelle2.Cells(3, lngZeile) = 1 / Tabelle2.Cells(lngZeile, 3)
'
'    Tabelle2.Cells(lngZeile, 4) = InputBox("1" + Me.txtNeueWaehrung + "= Japanischer Yen"
'    Tabelle2.Cells(4, lngZeile) = 1 / Tabelle2.Cells(lngZeile, 4)
'
'
'    Tabelle2.Cells(lngZeile, 5) = InputBox("1" + Me.txtNeueWaehrung + "= Britisches Pfund"
'    Tabelle2.Cells(5, lngZeile) = 1 / Tabelle2.Cells(lngZeile, 5)
'
'    Tabelle2.Cells(lngZeile, 6) = InputBox("1" + Me.txtNeueWaehrung + "= Schweizer Franken"
'    Tabelle2.Cells(6, lngZeile) = 1 / Tabelle2.Cells(lngZeile, 6)
'
'    Tabelle2.Cells(lngZeile, 7) = InputBox("1" + Me.txtNeueWaehrung + "= AU DOLLAR"
'    Tabelle2.Cells(7, lngZeile) = 1 / Tabelle2.Cells(lngZeile, 7)
'
'    Tabelle2.Cells(lngZeile, 8) = InputBox("1" + Me.txtNeueWaehrung + "= norwegische krone"
'    Tabelle2.Cells(8, lngZeile) = 1 / Tabelle2.Cells(lngZeile, 8)
    
    Do
        If Tabelle2.Cells(1, lngZeile2) = "" Then
    Exit Do
        Else
            Tabelle2.Cells(lngZeile, lngZeile2) = InputBox("1" + Me.txtNeueWaehrung + "= wieviel " & Tabelle2.Cells(1, lngZeile2))
            Tabelle2.Cells(lngZeile2, lngZeile) = 1 / Tabelle2.Cells(lngZeile, lngZeile2)
            lngZeile2 = lngZeile2 + 1
        End If
    Loop
    
    

    
    

End Sub



Private Sub cmdZurueck_Click()

Unload Me
usfWaehrungsrechner.Show


End Sub


4.5.16 15:50


[erste Seite] [eine Seite zurück]  [eine Seite weiter] s



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