Herbers Excel-Forum - das Archiv

Prozedur in MsgBox anzeigen

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
Excel-Beispiele zum Thema "Prozedur in MsgBox anzeigen"
Fehler in Workbook_Open-Prozedur abfangen Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben
Alle Prozeduren und Funktionen auflisten Workbook_Open-Prozedur beim VBA-Aufruf ausschalten
Zellinhalt während der Laufzeit in Prozedur übernehmen SVERWEIS als Ereignisprozedur
Bei jedem Aufruf eine andere Prozedur aufrufen. MsgBox mit Werten aus geschlossener Arbeitsmappe
Überprüfung auf Übereinstimmung und Anzeige in MsgBox Internetdaten abrufen und in MsgBox anzeigen