Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Aufrunden
zurück: Listbox-Eintrag erstellen bzw. hinzufügen weiter: Werte aus Tab1 in Tab2 uebernehmen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Eric
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. März 2004, 16:17
Rufname:

Aufrunden - Aufrunden

Nach oben
       

Hallo an alle,

ich brauch mal wieder Hilfe von den Spezialisten hier. Ich habe in einem Formular ein Textfeld mit dem Datentyp Zahl. Nun möchte ich bei einer Eingabe zB. wird die zahl 1,1 eingegeben. dass automatisch aufgerundet wird auf 2. Mit den normalen Zahlenrundungen klappt das ja nicht, weil ab ,5 aufegerundet wird und unter , 5 abgerundet. Es soll also immer dann wenn die Zahl nicht x,00 ist auf die nächste höhre ganze zahl auf gerundet werden.

Ich hoffe es hat jemand eine Idee Danke schonmal im Voraus
lupos
Moderator


Verfasst am:
02. März 2004, 18:30
Rufname:
Wohnort: Seesen


Aufrunden - Aufrunden

Nach oben
       

HALLO Eric

Habe mal Very Happy schnell eine kleine Sub für dieses Problem geschrieben, probier es mal aus ob es deinen Abforderungen genügt.

Ich nutze hierbei die INT-Funktion die den ganzzahligen Anteil einer beliebigen Zahl ermittelt und subtrahiere diesen von der Zahl. Ist das Ergebnis > 0 wird auf den ganzzahligen Anteil 1 hinzu Addiert.
Code:
Sub Aufrunden()
    Dim Zahl As Variant

    Zahl = InputBox("Bitte geben Sie eine Zahl ein")
    MsgBox IIf(Zahl - Int(Zahl) > 0, Int(Zahl) + 1, Zahl)
End Sub

Solltest Du hierzu noch irgendwelche Fragen haben, kannst Du dich gerne noch einmal bei mir melden.

_________________
Gruß Lupos
Eric
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. März 2004, 19:39
Rufname:

ich kapiers nicht ganz - ich kapiers nicht ganz

Nach oben
       

Hallo Lupos,

erstmal danke für Deine Antwort, aber ich kapiers nicht ganz. Bin da nicht so fit mit Codes. Wo muß ich denn den Code in meine Formular einbauen, damit das funktioniert ?

Bis dann mal
lothi
c#, .Net


Verfasst am:
04. März 2004, 00:04
Rufname:
Wohnort: Birgisch

AW: Aufrunden - AW: Aufrunden

Nach oben
       

Hallo Eric

mach eine Funktion draus und kopiere diese in ein allgemeines Modul.
Code:
Function Aufrunden(Dim Zahl As Variant)
    Aufrunden =  IIf(Zahl - Int(Zahl) > 0, Int(Zahl) + 1, Zahl)
End Function
'Aufruf in VBA:           =Aufrunden(12.5)
'Aufruf in z.B. Formular: =Aufrunden(12,5)

Jetzt kannst du diese Funktion gleich verwenden wie die Access internen Funktionen wie Summe()

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
lupos
Moderator


Verfasst am:
04. März 2004, 17:44
Rufname:
Wohnort: Seesen

Aufrunden - Aufrunden

Nach oben
       

HALLO Eric

Hatte gestern Abend leider keine Zeit mehr dir zu antworten, glaube aber nicht das die Beiträge dir wirklich weiter geholfen haben.

Für dieses Problem mußt Du dir eine Ereignisprozedure für dieses besagte Steuerelement erstellen.

Dies machst Du wie folgt, Steuerelementeigenschaft Register Ereignis Bei Fokusverlust stellst Du auf [Ereignisprozedur] ein. Danach einfach auf den daneben liegenden Button ... klicken und schon bist Du auf der Formularmodulebene.

Dort kopierst Du dann zwischen Private Sub ....... und End Sub folgendes hinein.

Code:
On Error Resume Next

Me.ActiveControl = IIf(Me.ActiveControl - Int(Me.ActiveControl) > 0, Int(Me.ActiveControl) + 1, Me.ActiveControl)


Hoffe Du kommst mit meinen Ausführungen zurecht, wenn nicht kannst Du dich noch einmal an mich wenden.

_________________
Gruß Lupos
Eric
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. März 2004, 20:08
Rufname:


AW: Aufrunden - AW: Aufrunden

Nach oben
       

Ja hat geklappt Danke an alle
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: auf 0,05 Cent aufrunden 15 YA_tom89 1636 03. Dez 2012, 18:17
JMalberg auf 0,05 Cent aufrunden
Keine neuen Beiträge Access Tabellen & Abfragen: Aufrunden auf volle Zahl 2 tsc921 243 25. Apr 2012, 16:12
KlausMz Aufrunden auf volle Zahl
Keine neuen Beiträge Access Programmierung / VBA: Datum aufrunden auf Quartal in Access ??? mit Besonderheit 6 Modjo 888 21. Apr 2011, 10:44
Modjo Datum aufrunden auf Quartal in Access ??? mit Besonderheit
Keine neuen Beiträge Access Berichte: Arbeitsdauer aufrunden auf 5-Minuten-Schritte 1 willi100 1116 04. Feb 2011, 14:51
MiLie Arbeitsdauer aufrunden auf 5-Minuten-Schritte
Keine neuen Beiträge Access Tabellen & Abfragen: Aufrunden auf eine Nachkommazahl 6 YA_tom89 990 29. Sep 2009, 11:28
tk6 Aufrunden auf eine Nachkommazahl
Keine neuen Beiträge Access Tabellen & Abfragen: Aufrunden 6 franksegebade 879 04. Aug 2009, 09:43
KlausMz Aufrunden
Keine neuen Beiträge Access Hilfe: Aufrunden 1 franksegebade 546 19. Feb 2009, 18:05
Micki Aufrunden
Keine neuen Beiträge Access Programmierung / VBA: Stunden aufrunden 2 kolic 857 29. Aug 2007, 16:07
kolic Stunden aufrunden
Keine neuen Beiträge Access Programmierung / VBA: aufrunden zur nächsthohen Ganzzahl 6 wastun 2796 28. Jun 2007, 00:42
wastun aufrunden zur nächsthohen Ganzzahl
Keine neuen Beiträge Access Tabellen & Abfragen: Minuten in Abfrage auf volle 15 min. aufrunden 9 Wichtelmann 1702 17. Feb 2007, 18:46
Willi Wipp Minuten in Abfrage auf volle 15 min. aufrunden
Keine neuen Beiträge Access Tabellen & Abfragen: Aufrunden, sobald zahl Nachkomma enthält 2 Stefan M. 1123 22. Nov 2006, 11:34
Willi Wipp Aufrunden, sobald zahl Nachkomma enthält
Keine neuen Beiträge Access Tabellen & Abfragen: Aufrunden einer Berechneten Zelle in einer Abfrage 4 kartler 2527 19. Nov 2006, 21:35
kartler Aufrunden einer Berechneten Zelle in einer Abfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme