Werte Rechnen

[snb]

in VBA:

Code:

Sub tst()
   MsgBox Round(wert / 8)
End Sub

[Florian20]

Hi nochmal,

Ich habe mir jetzt einen anderen weg überlegt, dieser ist nicht mehr gleich wie die Frage.

Aber Ich poste es trotzdem

Code:

Private Sub Label5_Click()
Dim WR As Integer
Dim i As Integer
  WR = NeueDaten.Label2.Caption
For i = WR To 0 Step -8
  NeueDaten.Label5.Caption = WR
  WR = WR - 8
  Application.Wait Now + TimeValue("00:00:01")
  NeueDaten.Repaint
Next i
End Sub

[snb]

Wo sind die Code Tags ?

[Florian20]

Guten Morgen,

Habe es jetzt nochmal umgebaut hier der komplette code  :21:

Code:

Private Sub Label4_Click()
Dim WR As Integer
Dim i As Integer
Dim AZW As Long
  WR = NeueDaten.Label2.Caption
For i = WR To 0 Step -8
  NeueDaten.Label4.Caption = WR
  WR = WR - 8
  Application.Wait Now + TimeValue("00:00:01")
  NeueDaten.Repaint
  AZW = AZW + 1
Next i
MsgBox "Lesen und Schreiben Erfolgreich!", vbInformation, "Neue Firmen"
  NeueDaten.Label4.ForeColor = RGB(0, 255, 0) 'Green
  AZW = AZW - 1
  NeueDaten.Label4.Caption = AZW
  Application.Wait Now + TimeValue("00:00:03")
Unload Me
End Sub

Liebe Grüße 
Flo