Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Umrechnung qm zu ha
zurück: NICHT VORHANDENER VERWEIS- Ref. per Vba löschen klappt nicht weiter: Tabellen aus externer mdb kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
dhom
Neuling


Verfasst am:
05. Nov 2010, 08:35
Rufname:

Umrechnung qm zu ha - Umrechnung qm zu ha

Nach oben
       Version: Office 2010

Wie kann ich diese Umrechnung in eine seperate Function auslagern und die Umrechnung stimmt auch noch nicht was mache ich falsch???*
Code:
Private Sub Umrechnung_Click()
    Dim Flächeqm As String
    Dim Ergebniswert As Double

    Flächeqm = InputBox("Fläche in Quadratmeter:", "Umrechnung qm zu ha")
    Ergebniswert = 0.0001 * Flächeqm
    MsgBox "Fläche in Hektar ist: " & Round(Ergebniswert, 2), vbOKOnly, "Kehrwert"
End Sub
Gast



Verfasst am:
05. Nov 2010, 09:01
Rufname:


AW: Umrechnung qm zu ha - AW: Umrechnung qm zu ha

Nach oben
       Version: Office 2010

Also,

bei mir funzt die Berechnung, das Ergebnis ist auch richtig, was läuft bei Dir denn nicht?

GastHörer
dhom
Neuling


Verfasst am:
05. Nov 2010, 10:58
Rufname:

AW: Umrechnung qm zu ha - AW: Umrechnung qm zu ha

Nach oben
       Version: Office 2010

es berechnet die ha nicht richtig um und ich soll die umrechnungsformel in eine seperate Funktion formulieren.
KlausMz
Moderator Access


Verfasst am:
05. Nov 2010, 11:15
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Umrechnung qm zu ha - AW: Umrechnung qm zu ha

Nach oben
       Version: Office 2010

Hallo,
erstelle in einem allgemeinen Modul folgende Funktion:
Code:
Public Function fncQmZuHa(Qm As Double) As Double
    fncQmZuHa = Qm * 0.0001
End Function
Speichere das Modul mit dem namen "mdlQmZuHa".

Aufruf der Funktion:
Code:
Private Sub Umrechnung_Click()
    Dim Flächeqm As Double
   
    Flächeqm = InputBox("Fläche in Quadratmeter:", "Umrechnung qm zu ha")
    MsgBox "Fläche in Hektar ist: " & fncQmZuHa(Flächeqm)
End Sub
Ich würde nicht in der Funktion runden, sondern erst dann runden wenn man es braucht.
_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Gast



Verfasst am:
05. Nov 2010, 18:23
Rufname:


AW: Umrechnung qm zu ha - AW: Umrechnung qm zu ha

Nach oben
       Version: Office 2010

Ja hat super geklapt.
Tausend Dank schonmal.
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 Hilfe: Datumsgesteuerter Mailversand, ohne DB zu öffnen? 4 SonnyCorleone 104 03. Jan 2013, 11:48
SonnyCorleone Datumsgesteuerter Mailversand, ohne DB zu öffnen?
Keine neuen Beiträge Access Hilfe: Compact and Repair Problem bei Migration von Access 03 zu 10 3 Bonkers123 508 06. Dez 2011, 10:19
MissPh! Compact and Repair Problem bei Migration von Access 03 zu 10
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen zusammenführen (von 2 zu 1 ) 3 lars.muc 184 05. Nov 2011, 17:21
MissPh! Abfragen zusammenführen (von 2 zu 1 )
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Feld xy B dann ändere das Feld yy zu = 0 1 GTV 181 19. Mai 2011, 18:30
Nouba Wenn Feld xy B dann ändere das Feld yy zu = 0
Keine neuen Beiträge Access Hilfe: Access 97 zu 2010 5 BoHeld 2578 12. Apr 2011, 12:35
derArb Access 97 zu 2010
Keine neuen Beiträge Access Programmierung / VBA: Währung von DM zu Euro anzeigen lassen 30 alandesign 2451 28. Dez 2010, 17:52
redround Währung von DM zu Euro anzeigen lassen
Keine neuen Beiträge Access Formulare: von Form A Textfeld A nach Form B zu Textfeld B kopieren 1 imyta 588 07. Jan 2010, 05:45
stpimi von Form A Textfeld A nach Form B zu Textfeld B kopieren
Keine neuen Beiträge Access Programmierung / VBA: Ordner löschen ohne Laufzeitfehler 70 zu verursachen 3 Spreebude 587 09. Nov 2009, 01:19
derArb Ordner löschen ohne Laufzeitfehler 70 zu verursachen
Keine neuen Beiträge Access Tabellen & Abfragen: Probleme mit Umrechnung Datum in Kalenderwoche 2 Access_newbie111 1413 11. Apr 2009, 15:32
Access_newbie111 Probleme mit Umrechnung Datum in Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2003 DB zu Access 2007 0 desertangle 1426 17. Apr 2008, 11:08
desertangle Access 2003 DB zu Access 2007
Keine neuen Beiträge Access Programmierung / VBA: Beim Befüllen einer Excel-Tabelle kommt es zu Fehlermeldunge 7 access-beginner 391 10. Okt 2007, 11:36
Willi Wipp Beim Befüllen einer Excel-Tabelle kommt es zu Fehlermeldunge
Keine neuen Beiträge Access Berichte: Bericht kovertiert von 97 zu 2003 - Linien durcheinander 1 Job100 809 23. Mai 2007, 15:37
Job100 Bericht kovertiert von 97 zu 2003 - Linien durcheinander
 

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