Durchschnitt
11.06.2006 09:33:22
Erich
Mit folgenden Code rechne ich gefahrene KM und Liter pro 100 Km aus.
On Error Resume Next
Dim i As Integer
Dim zu As Integer
If UserForm1.TextBox1.Text = "" Or UserForm1.TextBox3.Text = "" Then
zu = MsgBox("Es fehlt eine Eingabe", vbOKOnly, "Überprüfung")
If zu = vbYes Then
Else: UserForm1.TextBox1.SetFocus
Exit Sub
End If
End If
UserForm1.Label3.Caption = CDbl(UserForm1.TextBox1) - CDbl(UserForm1.TextBox2)
UserForm1.Label5.Caption = CDbl(UserForm1.TextBox3) * "100" / CDbl(UserForm1.Label3)
UserForm1.Label5.Caption = Format(UserForm1.Label5.Caption, "#,###,###,##0.00")
End Sub
Eintragen in Tabelle mit...
With Tabelle1.Cells(Rows.Count, 3).End(xlUp)
.Offset(1, 0) = UserForm1.Label3
End With
Die Ergebnisse werden aber als Text eingetragen
Und damit kann ich nicht weiterrechnen.
Gibt es einen Trick wie man das äandern kann ?
Vorab schon mal Danke
Gruss Erich