Excel vba Berechnung liefert nur "0" zurück
08.08.2018 13:18:06
J.Bentrup
ich habe da ein kleines Problem.
Das folgende Makro sollte als das Ergebnis der Berechnung "Überstunden" auch als nicht Ganzzahligen Wert in die Ziel-Zelle eintragen, weil in der Tabelle damit wieder Summen gebildet werden sollen. Ich bekommen aber nur gerundete Werte zurück und es wird "0" bei einer Eingabe von 30 in die Tabelle eingetragen statt "0,5", usw.
Was läuft hier verkehrt?
Vielen Dank im Voraus.
Sub AZK_eintragen()
Dim Such_Datum As Date
Dim Ueber_Std As Long
Range("AU6").Select
Such_Datum = Selection
For i = 10 To 46
Fund_Datum = Cells(7, i).Value
If Fund_Datum = Such_Datum Then FundSpalte = i
Next i
Fund_Datum = Cells(7, FundSpalte).Value
' MsgBox "Das datum wurde in Splate " & FundSpalte & " gefunden. Funddatum = " & Fund_Datum
Ueber_Std = InputBox("Geben sie die höhe der AZK in Minuten ein zB. 30 für eine halbe _
Überstunde, oder -30 wenn die Schicht um eine halbe Stunde verkürzt wurde.")
If Ueber_Std = 0 Then Exit Sub
Ueber_Std = Ueber_Std / 60
MsgBox Ueber_Std
For x = 9 To 58
Name = Cells(x, 2)
InZelle = Cells(x, FundSpalte)
If Name = 0 Then GoTo Weiter
If InZelle = "" Then GoTo Eintrage
Eintrage:
Cells(x, FundSpalte) = Ueber_Std
Weiter:
Next x
End Sub