Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Double Werte subtrahieren
zurück: Autoschließen in Word weiter: Wordfenster aktualisieren (refresh) während Makro läuft Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
palmenmann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Feb 2010, 14:58
Rufname:

Double Werte subtrahieren - Double Werte subtrahieren

Nach oben
       Version: Office 2003

Hallo habe zwei Double Variablen, die beide einen positiven Wert haben.
Wenn ich die kleienr Zahl von der größeren abziehe, bekommen ich einen negative Zahl . Warum ist das so ?

Dim subtrak_sta As Double
Dim subtrak_sond As Double

subtrak_sta_lanege_sonderlaenge = subtrak_sta - subtrak_sond
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
03. Feb 2010, 16:04
Rufname:
Wohnort: Leipzig


AW: Double Werte subtrahieren - AW: Double Werte subtrahieren

Nach oben
       Version: Office 2003

Hallo Palmenmann,

also zunächst:

1. Wie ist subtrak_sta_lanege_sonderlaenge deklariert? Ich sehe keinen Variablentyp.
2. Nenn doch einfach mal die verwendeten beiden Zahlen, bei mir resultiert nämlich kein negativer Wert.

Gruß
Lisa
Gast



Verfasst am:
03. Feb 2010, 16:25
Rufname:

AW: Double Werte subtrahieren - AW: Double Werte subtrahieren

Nach oben
       Version: Office 2003

alle drei Variablen sind als Double deklariert.

14000 - 6000 sind bei mir -8000
palmenmann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Feb 2010, 16:29
Rufname:

AW: Double Werte subtrahieren - AW: Double Werte subtrahieren

Nach oben
       Version: Office 2003

hier nochmal genauer


Code:
    Dim subtrak_sta As Double
    Dim subtrak_sond As Double
    Dim subtrak_sta_lanege_sonderlaenge As Double

            subtrak_sta = CDbl(TB_Stueckzahl_G1.Text)
            subtrak_sond = CDbl(lab_Sonderlaenge.Caption)
            subtrak_sta_lanege_sonderlaenge = (subtrak_sta - subtrak_sond)
 
            TB_Stueckzahl_G1.Text = CStr(subtrak_sta_lanege_sonderlaenge)
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
03. Feb 2010, 16:44
Rufname:
Wohnort: Leipzig

AW: Double Werte subtrahieren - AW: Double Werte subtrahieren

Nach oben
       Version: Office 2003

Hallo Palmenmann,

nein, bei mir kommt 8000 heraus. Das Minus resultiert nicht aus der Rechnung. VBA rechnet richtig. Probier doch mal "im Trockendock":
Code:
Sub Test2()

    Dim subtrak_sta As Double
    Dim subtrak_sond As Double
    Dim subtrak_sta_lanege_sonderlaenge As Double

    subtrak_sta = CDbl("14000") 'CDbl(TB_Stueckzahl_G1.Text)
    subtrak_sond = CDbl("6000") 'CDbl(lab_Sonderlaenge.Caption)
    subtrak_sta_lanege_sonderlaenge = (subtrak_sta - subtrak_sond)
    Debug.Print CStr(subtrak_sta_lanege_sonderlaenge)
    'TB_Stueckzahl_G1.Text = CStr(subtrak_sta_lanege_sonderlaenge)
   
End Sub

liefert bei mir 8000. Der Fehler muss woanders liegen, am besten mal im Einzelschritt durchlaufen und jeden Wert einzeln ansehen (wenn man mit der Maus draufzeigt, wird er sichtbar).

Gruß
Lisa
Gast



Verfasst am:
03. Feb 2010, 17:25
Rufname:


AW: Double Werte subtrahieren - AW: Double Werte subtrahieren

Nach oben
       Version: Office 2003

bin schon mit dem debugger durch.
Habs jetzt anderes gelöst.
Trotzdem danke .Kann daran ja nicht liegen, scheint korrekt zu sein.
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 Word Serienbriefe: Werte in Serienbrief werden gerundet trotz Schalter 3 julian56789 217 08. Apr 2013, 16:43
CaBe Werte in Serienbrief werden gerundet trotz Schalter
Keine neuen Beiträge Word VBA Programmierung (Makros): Word! Werte von Textformularfeldern addieren 12 MovingMike 717 03. März 2013, 12:36
MovingMike Word! Werte von Textformularfeldern addieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Textmarke Zeichenkette einzelne Werte auslesen 2 michtoep 596 18. Nov 2011, 09:58
michtoep Textmarke Zeichenkette einzelne Werte auslesen
Keine neuen Beiträge Word VBA Programmierung (Makros): DocProperty Werte in Userform anzeigen 2 philhoc 2447 08. Nov 2011, 18:44
hallo1987 DocProperty Werte in Userform anzeigen
Keine neuen Beiträge Word VBA Programmierung (Makros): Zeilen zusammenfassen wenn Werte übereinstimmen 2 Steyler 188 09. Aug 2011, 08:28
Steyler Zeilen zusammenfassen wenn Werte übereinstimmen
Keine neuen Beiträge Word VBA Programmierung (Makros): Werte an Addin übergeben 19 stefan75 3478 01. März 2011, 10:02
stefan75 Werte an Addin übergeben
Keine neuen Beiträge Word VBA Programmierung (Makros): Werte aus Textdatei extrahieren 0 waynejuckts 403 11. März 2010, 13:37
waynejuckts Werte aus Textdatei extrahieren
Keine neuen Beiträge Word VBA Programmierung (Makros): Kombinationsfeld im UserForm soll Werte im Textformularfeld 0 nuknuk32 1333 04. März 2010, 15:37
nuknuk32 Kombinationsfeld im UserForm soll Werte im Textformularfeld
Keine neuen Beiträge Word VBA Programmierung (Makros): Makro beim Öffnen des Docs starten und alte Werte leeren 3 Gast 1208 20. Jan 2010, 12:11
Gast Makro beim Öffnen des Docs starten und alte Werte leeren
Keine neuen Beiträge Word VBA Programmierung (Makros): Ribbon UI werte abfragen 1 dravus 1443 27. Aug 2009, 11:25
Hubert_R Ribbon UI werte abfragen
Keine neuen Beiträge Word VBA Programmierung (Makros): Abfrageoption werte aus Excel 0 Gast 301 03. Jun 2009, 15:08
Gast Abfrageoption werte aus Excel
Keine neuen Beiträge Word Serienbriefe: Werte nur positiv ausgeben? 5 Mexi 1226 02. Feb 2009, 22:19
websven Werte nur positiv ausgeben?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum