title image


Smiley Daten in einer MsgBox formatieren
Hallo,ich habe die untenstehende VBA-Prozedur erstellt, die aus einer EXCEL-Liste bestimmte Werte in einer MsgBox anzeigen soll.Die Darstellung erfolgt allerdings nicht wie gewünscht.Wenn in der Liste ein Wert von 36,00 (Format Zahl mit 2 Dezimalstellen) steht, wird in der MsgBox nur 36 angezeigt. Ein Wert von 36,50 aus der Liste wird in der MsgBox mit 36,5 angezeigt.Wie kann man die Anzeige in der MsgBox so steuern, daß der Wert von z.B. 36,00 auch in der MsgBox mit den entsprechenden Dezimalstellen angezeigt wird?Vielleicht habt Ihr eine Lösung!?VBA-Prozedur:Dim Art_Nr As String, Bezeichnung As StringDim VK_Preis As Currency, Grenzkosten As Currency, DB1 As CurrencyDim DBPro As SingleSub Suchen()'Es folgte eine Eingabeaufforderung, mit der die'Benutzereingabe in die Variable Art_Nr übergeben wirdOn Error GoTo FehlerArt_Nr = InputBox _("Geben Sie die Nummer des gesuchten Artikels ein:")Columns("A:A").Cells.Find(What:=Art_Nr, LookAt:= _xlWhole).ActivateActiveCell.Offset(0, 1).Range("A1").SelectBezeichnung = Application.SelectionActiveCell.Offset(0, 1).Range("A1").SelectVK_Preis = Application.SelectionActiveCell.Offset(0, 2).Range("A1").SelectDB1 = Application.SelectionActiveCell.Offset(0, 1).Range("A1").SelectDBPro = Application.SelectionText = Art_Nr & " " & Bezeichnung & "" & Chr(13) _& "Verkaufspreis in GE: " & (VK_Preis) & Chr(13) _& "DB1 in GE: " & (DB1) & Chr(13) _& "DB in Prozent: " & (DBPro) & Chr(13)X = MsgBox(Text, 0, "Der gesuchte Artikel:")Exit SubFehler: X = MsgBox("Artikel nicht vorhanden!", 16 + 0)End SubMit freundlichen GrüßenBerndt

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: