Inputbox - Rückgabe des Wertes in Formel verwende

Hallo zusammen
habe hier ein Problem was mich fast zur Verzeiflung treibt:
Ich möchte in einen Zellbereich mit schleife in die Spalte daneben Formeln
eintragen lassen.
Die Formel setzt sich zusammen aus
- Bearbeitungszeit (Spalte links daneben)
- Fester Zuschlagsfaktor( ist als Zahl in der Formel hinterlegt(*2,2)
- varibaler Wert für Stundensatz (std)
Hierzu verwende ich eine Inputbox folgendermassen:


std = InputBox("Minutenfaktor?", , 0.58)

(Datentyp double)
0,58 als defaultwert => kann sich aber ändern
Diesen wert schreibe ich in die Formel zurück:

Cells(1, clm).Offset(x, 1).Formula = "=RC[-1]* 1.1* " & std & ""

ABER: wenn jetzt die Inputbox kommt, ist der wert mit KOMMA belegt, obwohl default
das Dezimalzeichen drin ist.
Dann kommt die Fehlermeldung: Anwendungs- oder objektorientierter fehler
Wenn ich in der Inputbox das Komma überschreibe, funktioniert es
Hat jemand einen Tipp, wie entweder die Inputbox meine default eingabe übernimmt
oder der Rückgabewert umgewandelt werden kann?
Ich habe mit cdbl probiert, bin da aber nicht weiter gekommen.....
Das einzige was mir jetzt noch einfallen würde wäre den Wert aus der Inputbox in eine freie Zelle zu schreiben und dann wieder in die Formel zu integrieren, aber das geht doch sicher eleganter?
VG Marius

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marius,
wenn du nur mit der Inputbox arbeiten willst musst du deinen String "std" auf alle möglichen Fehler prüfen, das erreichst du mit Schleifen die jedesmal das Ergebnis prüfen.
Wie man da in der Inputbox Fehlereingaben vermeiden kann weis ich nicht.
Das ganze wird etwas einfacher oder übersichtlicher wenn du mit einer UserForm arbeitest die eine TextBox enthält und einen Commandbutton zum übertragen des Wertes(std)
Allerdings hab ich eine Frage, wie wird dein eigentliches Makro gestartet?

Private Sub TextBox1_Change()
With TextBox1
If Val(.Value) > 59 Then
MsgBox "Es sind max. 59 Minuten erlaubt."
.Value = ""
.SetFocus
End If
End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
With TextBox1
Select Case KeyAscii
Case 48 To 57
Case Else
MsgBox "Es sind nur Zahlen von 0 - 9 möglich."
KeyAscii = 0
.Value = ""
.SetFocus
Exit Sub
End Select
If Len(.Value) >= 2 Then
MsgBox "Es ist nur eine zweistellige Eingabe erlaubt."
KeyAscii = 0
.Value = ""
.SetFocus
End If
End With
End Sub

Somit dürfte alles abgedeckt sein,
Gruß Matze
Ps.: Eine Musterdatei oder deine Datei hier hochladen erleichtert uns eventuell das was du vorhast.
Ist nur ein Gedanke mit der Uform,... Ich bin nächste Woche nicht da , wird Tino oder ein anderer Helfer weitermachen.

Dim std As Variant Const constVorGabe! = 0.58 std = Application.InputBox("Minutenfaktor?", , CStr(constVorGabe), Type:=1) If VarType(std) = vbBoolean Then Exit Sub std = Replace(CStr(std), ",", ".") '...

Sub testformel2() Application.ScreenUpdating = False Dim clm As Long 'letzte Spalte Dim rw As Long 'letzte Reihe Dim i As Long 'Schleifenzähler Dim x As Integer 'braucht keiner Dim std As Double 'Minutenfaktor wählbar Dim fee As Double 'Handlingzuschlag wählbar clm = Cells(1, Columns.Count).End(xlToLeft).Column + 1 'erste LEERE Spalte rw = Cells(Rows.Count, 1).End(xlUp).Row 'letzte zeile in "A" std = InputBox("Minutenfaktor", , 0.58) fee = InputBox("Handlingzuschlag", , 1.1) 'hier kann das Offset entfallen Cells(1, clm).Value = "Formel Berechnung" 'Trägt in Spaltenkopf die Bez. ein For i = 2 To rw 'x = x + 1 '

Beliebteste Forumthreads (12 Monate)

Inputbox - Rückgabe des Wertes in Formel verwende

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inputbox - Rückgabe des Wertes in Formel verwende

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread