Kann mir jemand bei folgendem VBA-Code helfen?
Es kann eigentlich nicht so aufwendig sein. Es soll nämlichn möglich sein, eine Zahl mit Komma (,) in der InputBox einzugeben und in einer Formel richtig zu verarbeiten. Im Moment werden die Nachkommastellen vernachlässigt.
Hängt dies an der deklaration der Variable oder an der Formel?
Viele Grüße Michael
Sub Makro1()
'
' VK-Kalkulation mit Runden
Dim A As Integer
A = Application.InputBox _
(Prompt:="Bitte geben Sie einen Kalkulationsfaktor ein:", _
Type:=3)
' Inputbox
'A = InputBox("Bitte geben Sie einen Kalkulationfaktor ein!", "Kalkulationsfaktor")
If A >= 10 Then
MsgBox ("Hinweis für: " & Application.UserName & "" & vbCr & "" & vbCr & "Der Kalkulationsfaktor ist zu groß!!!")
ElseIf A >= 5 Then
Exit Sub
Else
Range("B2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]* " & A & ""
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B11")
Range("B2:B11").Select
End Sub
|