Thema Datum  Von Nutzer Rating
Antwort
Rot VK-Kalkulieren mit InputBox
 03.05.2017 12:24:55 Michael
NotSolved
03.05.2017 13:59:13 Crazy Tom
*****
Solved
03.05.2017 15:34:23 Michael
Solved

Ansicht des Beitrags:
Von:
Michael 		Datum:
03.05.2017 12:24:55		 Views:
1078		 Rating:
     
Antwort:
  Ja
Thema:
VK-Kalkulieren mit InputBox

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VK-Kalkulieren mit InputBox
 03.05.2017 12:24:55 Michael
NotSolved
03.05.2017 13:59:13 Crazy Tom
*****
Solved
03.05.2017 15:34:23 Michael
Solved