Problem bei Hypothenusen Berechnung (Sub Prozeduren) VB

[Jim Panse]

Huhu!

Also, als erstes: Ich bin Anfänger was die VBA Sprache angeht, also keine unnötigen Posts wie: Noob, Lowbob etc. pp. *g*

Hier mal die Aufgabe:

Es gilt: c² = a² + b²

Benutzer gibt Kathetenlänge von a und b ein und erhält Länge der Hypthenuse c

Sub Hypothenuse()
Dim Eingabezahl1
Dim Eingabezahl2
'Kommentare sind möglich
Einagbezahl1 = InputBox("Bitte Länge der Seite a einegben:")
Einagbezahl2 = InputBox("Bitte Länge der Seite b eingeben:")
MsgBox "Die Hypothenuse von " & Eingabezahl1 & und & Eingabezahl2 & " ist " & (Eingabezahl1 ^ 2) + (Eingabezahl2 ^ 2)
End Sub

Das hab ich mal fabriziert... Kapier nicht ganz wie ich das umschreiben muss.

Ne Übung vorher mussten wir nur ne Quadratzahl errechnen lassen. Hab ich auch hinbekommen:

Sub Quadrat_berechnen()
Dim Eingabezahl
'Kommentare sind möglich
Eingabezahl = InputBox("Bitte Zahl eingeben:") 'Kommentare sind möglich
MsgBox "Die Quadratzahl von " & Eingabezahl & " ist " & Eingabezahl ^ 2
End Sub

Kann mir jemand helfen und vllt. paar Tips geben?

Danke euch!

 

[baumgärtner]

so auf den ersten Blick fehlen die Anführungszeichen beim Wort und innerhalb der Textverkettung.

MsgBox "Die Hypothenuse von " & Eingabezahl1 & [COLOR='Red']"[/COLOR] und [COLOR='Red']"[/COLOR] & Eingabezahl2 & " ist " & (Eingabezahl1 ^ 2) + (Eingabezahl2 ^ 2)

 

[sHiNoDa]

hab zwar keine ahnung von vba aber ich würd auch sagen, dass bei dem 'und' die "" fehlen.

du müsstes als fehlermeldung (wenn du eine hast) rausbekommen, dass 'und' ein undefinierter bezeichner ist. zumindestens sowas ähnliches

 

[Jim Panse]

Es liegt aber scheinbar nicht nur an dem "und".

Bekomme immer noch die Meldung das wenn Seite a = 2 ist und Seite b = 2 ist, dass die Hypothenuse (c) = 0 ist.

Gibt ja nicht wirklich Sinn, nech?

 

[Lacky]

Hallo,

in VBA hab ich nur ein bisschen erfahrung kenn mich aber gut mit VB.NET aus. Das ist ja ähnlich.

Also ich muss erst mal zustimmen das bei dem und die " fehlen.

MsgBox "Die Hypothenuse von " & Eingabezahl1 & " und " & Eingabezahl2 & " ist " & (Eingabezahl1 ^ 2) + (Eingabezahl2 ^ 2)

Edit:
ahhh hab es jetzt auch mal in excel vba ausprobiert und hab mich auch gewundert wieso das net geht. Ich hab zu erst ne neue Variable "Ergebnis" erstellt und die auf 5 gesetzt. Da hatte es 5 ausgegeben aber das a und b war 0.
Da konnte es nur an den beiden liegen und da hab ich den blöden Fehler gesehen.
Wenn du mal in deine Deklaration schaus und dann zu deiner zuweisung von Eingabezahl1 und 2 dann siehst du das du einmal Eingabezahl und einmal Einagbezahl geschrieben hast.
Wenn du das änderst funzt es.


Edit2:
ich weiß net ob du das erst mal zum ausprobieren gemacht hast aber die rechnung ist aber dann noch nicht die Hypotenuse weil da noch die Wurzel fehlt.
ich meine das so ((Eingabezahl1 ^ 2) + (Eingabezahl2 ^ 2))^1/2

Gruß Lacky

 

[Jim Panse]

Wow! Danke dir! Das is echt doof, dass es an einem so dummen Fehler liegt

Ja, das mit der Rechnung war nur zu Testzwecken.

Klasse von dir!

Mein Problem ist somit also erledigt