Prozedur in MsgBox anzeigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Prozedur in MsgBox anzeigen von: Kuno B.
Geschrieben am: 24.02.2005 14:47:33

Hallo Forum,

ich möchte per Button eine Msgbox aufrufen welche mir ein Ergebnis anzeigt und welche ich dann per Ok Button wieder schliessen kann. Jedoch soll bei aufrufen der Msgbox eine Berechnung stattfinden und dann das Ergebnis in Msgbox angezeigt werden.

Die Berechnung müßte man also per Coder hinterlegen.

Beispiel für die Formel: ((O52+U49)/H61)*T6

Habe in der Recherche nichts dergleichen finden können.

Wäre supi wenn mir jemand helfen kann.

danke schon mal.

Kuno B.

Bild


Betrifft: AW: Prozedur in MsgBox anzeigen von: AndréL.
Geschrieben am: 24.02.2005 15:01:28

Hallo Kuno,
probier mal das aus.
[a1] kannst Du ja noch anpassen.
Sub aa()
Dim x
[a1].Formula = "=Sum($O52 + $U49) / $H61 * $T6"
MsgBox [a1]
End Sub


Gruß
AndréL.


Bild


Betrifft: Objekt unterstüzt die Eingenschaft nicht von: Kuno B.
Geschrieben am: 24.02.2005 15:15:19

Hallo AndrèL,

funzt leider nicht, bekomme die Meldung "Objekt unterstüzt die Eingenschaft nicht".

Hast Du noch ne andre Idee?


danke

Kuno B.


Bild


Betrifft: AW: Objekt unterstüzt die Eingenschaft nicht von: Bert
Geschrieben am: 24.02.2005 15:22:33

Sub aa()
dim Summ as double
Summ =([O52] + [U49]) / [H61] * [T6]
MsgBox Summ
End Sub


Bert


Bild


Betrifft: Danke euch, klappt supi von: Kuno B.
Geschrieben am: 24.02.2005 15:26:13




Bild


Betrifft: AW: Objekt unterstüzt die Eingenschaft nicht von: AndréL.
Geschrieben am: 24.02.2005 15:22:51

Sub aa()
[a1].Formula = "=Sum($O52 + $U49) / $H61 * $T6"
MsgBox [a1]
End Sub


Und so??
AndréL.


Bild


Betrifft: Bert's Code ist besser!! :-) oT. von: AndréL.
Geschrieben am: 24.02.2005 15:24:56




Bild


Betrifft: Kann man d. Nachmommastellen begrenzen? von: Kuno B.
Geschrieben am: 24.02.2005 15:28:13

Hallo,

nochmals danke.

Kann ich noch Nachkommastellen auf 2 begrenzen in der Anzeige?



Danke

Kuno B.


Bild


Betrifft: AW: Kann man d. Nachmommastellen begrenzen? von: AndréL.
Geschrieben am: 24.02.2005 16:01:02

Hallo Kuno,
noch'n Versuch:
Sub aa()
Dim Summ
Summ = ([O52] + [U49]) / [H61] * [T6]
Summ = Format(Summ, "##0.00")
MsgBox Summ
End Sub


Gruß
AndréL.


Bild


Betrifft: SUPER, thank´s a lot von: Kuno B.
Geschrieben am: 24.02.2005 16:09:19

Danke, das war der Bringer.

Jetzt funzt es wie es soll.



Gruß

Kuno B.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Prozedur in MsgBox anzeigen"