Office: (Office 2007) werte addieren in vba

Hi,

hab gerade mal gesucht, aber alle Beiträge konnten mir nicht wirklich weiterhelfen, da bei allen Lösungen alles geklappt hat. Vielleicht steh ich auch einfach auf dem Schlauch.
Folgendes Problem:
Ich lese mit Hilfe von VBA den Wert aus einer Zelle aus, und danach den Wert aus einer anderen Zelle. Nun möchte ich diese beiden Werte miteinander addieren. Das mache ich mit folgendem Code
Code:

punkte_alt ist in diesem Fall 3 und punkte_neu ist in diesem Fall 4
Nun bekommt punkte den Wert 34 und nicht 7
Wo liegt denn hier mein Fehler? *smashing

:)

 

Hallo Joschi,

dazu müßtest Du evtl. mal mehr Code posten.

Ich habe es hiermit getestet:

	A	B	C
1	Punkte alt	Punkte neu	Punkte
2	3	4

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Wie Du siehst - das erwartete Ergebnis *wink.gif*

Hier nur der Hinweis: die Dimensionierung als Integer habe ich hier der Einfachheit wegen genommen!

cu
myfake

 

Hi Myfake,
jetzt klappts... ich hatte die Var als String deklariert... :-( Umgeändert auf Integer... und nun funzt es

 

Hallo Joschi,

aber nur nochmal der Hinweis, dass sich die "Integer Deklarierung" auf ganze Zahlen bezieht. Du bekommst dann u.U. ein falsches Ergebnis heraus. Sollte das der Fall sein, versuch es doch mit "Double".

cu
myfake

 

Servus and alle,

Ich hab das selbe Problem wie joschi... Ich habe mir mit Word VBA einen Taschenrechner gebastelt. Man kann aus 4 verschiedenen Optionen wählen Addition, Subtraktion usw. Bei allen klappts reibungslos bis auf die Addition. wenn ich für Zahl 1 ne 9 eingebe und für Zahl 2 ne 1 kommt als Ergebnis 91 raus.

hier der Programmcode der Addition

If varAufgabe = 1 Then
strArt = "Addition"

Do

varEins = InputBox("Geben Sie hier die erste Zahl ein:")

If varEins = "" Then

MsgBox ("Bitte geben Sie eine Zahl in das Textfeld ein.")

End If

Loop Until varEins ""

Do

varZwei = InputBox("Geben Sie hier die zweite Zahl ein:")

If varZwei = "" Then

MsgBox ("Bitte geben Sie eine Zahl in das Textfeld ein.")

End If

Loop Until varZwei ""

dblErgebnis = varEins + varZwei



Mit den vielen Schleifen soll verhindert werden das die Fehlermeldung "Typen unverträglich" kommt wenn man nur Enter drückt anstatt etwas in die Inputbox einzutragen. Deshalb musste ich auch als var deklarieren und nicht als single oder double.
Ich habe auch schon versucht dblErgebnis als varErgebnis zu deklarieren aber das bringts auch nich.

Hoffe ihr könnt mir helfen

Danke schonmal

 

Hallo Grinskatze,

Eingaben in Textboxen sind immer Text. Eingegebene Ziffernfolgen müssen erst in den entsprechenden Wert umgewandelt werden. So sollte es funktionieren:
Code:

Gruß Ingolf

 

Boar ingGi,

du bist super vielen lieben dank es hat geklappt mein rechner ist fertig *gg*

danke gruß GK