Eingaben werden nicht addiert

[dertommy]

Hallo!

Diese Lösung mit 

Code:

CDbl(wert1) + CDbl(wert2)

habe ich auch schon gemacht und hat auch funktioniert. Nur hatte ich dann bei folgender Codestelle das Problem:

Code:

If (CStr(wert1) + CStr(wert2)) > CStr(Range("E3")) * 5 Then

Hier kommt nämlich "Typen unverträglich"

Anbei mein aktueller Code, wahrscheinlich mache ich noch immer etwas falsch:

Code:

Dim wert1, wert2


Do
       
        wert1 = InputBox("Bitte neuen 1. Wert eingeben: " & String(2, vbNewLine) & _
        "alter Wert: € " & alterWert & " vom " & alterWertDatum)
       
        If wert1 = "" Then Exit Sub
       
        wert2 = InputBox("Bitte neuen 2. Wert eingeben: " & String(2, vbNewLine) & _
        "alter Wert: € " & alterWert & " vom " & alterWertDatum)
       
        'wert = wert1 + wert2'
       
        If (CStr(wert1) + CStr(wert2)) > CStr(Range("E3")) * 5 Then
            MsgBox ("Dein von dir eingegebener Wert ist um " & Format(((wert1 + wert2) / Range("E3")) * 100, "#,##0") & " % größer als der alte Wert.")
       
        End If
   
    Loop Until ((wert1 + wert2) / Range("E3")) * 100 < 500
       
        .Range("E3").Value = CDbl(wert1) + CDbl(wert2)

[RPP63]

Moin!
Darf ich mal die ketzerische Frage stellen, warum Du nicht einfach Zellen nimmst?
Schließlich betreffen Deine bisherigen Fehler ausschließlich absolutes Grundlagenwissen in VBA.
Was CStr() bewirkt, weißt Du?

Gruß Ralf

[dertommy]

Convert in string, oder?

[RPP63]

Korrekt! 
Und, kann man Texte addieren?

[derHoepp]

Moinsen,

mich machen fehlende Grundlagen und Beratungsresistenz wahnsinnig. Also, statt rumzudoktern direkt richtig: Die Application.InputBox könnte schon beim Aufruf den Datentyp sicherstellen, wenn der TE nicht in der Lage ist, implizite und explizite Typenkonvertierung einzusetzen.

Code:

'Direktfenster
?VarType(InbutBox("Zahl bitte"))=vbDouble
?VarType(Application.InputBox("Test", Type:=1)) =vbDouble

Viele Grüße
derHöpp

[schauan]

Hallöchen,

Und, kann man Texte addieren?

man könnte denken, ja.

Sub test()
MsgBox "a" + "b"
End Sub

... ok, a und b werden dadurch verkettet

[RPP63]

Natürlich kann man Texte addieren.
"a"+"b" ergibt bei mir Ã

Code:

?ChrW(AscW("a")+AscW("b"))

[schauan]

... das ist aber geschummelt ...

[RPP63]

Schummeln habe ich (auch) in diesem Forum gelernt.
Schließlich kann 17+4 auch 42 sein:

Arbeitsblatt mit dem Namen 'Tabelle2'
	A
1	17
2	4
3	42

Zelle	Format	Wert
A3	"42"	21

Zelle	Formel
A3	=A1+A2