Autor
|
Thema: Vergleich mit vb (311 mal gelesen)
|
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 11. Aug. 2010 17:04 <-- editieren / zitieren --> Unities abgeben:
Irgendwie stehe ich auf dem Schlauch. Ich habe folgenden Code: Code:
If Sheets(BlattNameAbrechnung).Cells(j, 14).Value < Sheets(BlattNameDefaultFlex).Cells(8, 2).Value Then MsgBox IsNumeric(Sheets(BlattNameAbrechnung).Cells(j, 14).Value) & " " & IsNumeric(Sheets(BlattNameDefaultFlex).Cells(2, 8).Value) & vbCrLf & _ Sheets(BlattNameAbrechnung).Cells(j, 14).Value & " " & Sheets(BlattNameDefaultFlex).Cells(2, 8).Value ExitTotalSum = True End If
Beide Vergleichswerte sind numerisch (Wahr) und der erste Wert ist grösser als der zweite und trotzdem wird der if Block abgearbeitet. Wo ist das Problem (ausser dem 30cm vor dem Bildschirm ) Axel ------------------ Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RSchulz Ehrenmitglied V.I.P. h.c. Head of CAD, Content & Collaboration / IT-Manager
Beiträge: 5541 Registriert: 12.04.2007
|
erstellt am: 11. Aug. 2010 17:13 <-- editieren / zitieren --> Unities abgeben: Nur für Axel.Strasser
Hallo Axel, Code:
If Sheets(BlattNameAbrechnung).Cells(j, 14).Value < Sheets(BlattNameDefaultFlex).Cells(8, 2).Value Then MsgBox IsNumeric(Sheets(BlattNameAbrechnung).Cells(j, 14).Value) & " " & IsNumeric(Sheets(BlattNameDefaultFlex).Cells(2, 8).Value) & vbCrLf & _ Sheets(BlattNameAbrechnung).Cells(j, 14).Value & " " & Sheets(BlattNameDefaultFlex).Cells(2, 8).Value ExitTotalSum = True End If
Ich würde mal auf einen Zahlendreher tippen oder anders formuliert ... versuchs mal so ... Code:
If Sheets(BlattNameAbrechnung).Cells(j, 14).Value < Sheets(BlattNameDefaultFlex).Cells(2, 8).Value Then MsgBox IsNumeric(Sheets(BlattNameAbrechnung).Cells(j, 14).Value) & " " & IsNumeric(Sheets(BlattNameDefaultFlex).Cells(2, 8).Value) & vbCrLf & _ Sheets(BlattNameAbrechnung).Cells(j, 14).Value & " " & Sheets(BlattNameDefaultFlex).Cells(2, 8).Value ExitTotalSum = True End If
sry konnt ich mir jetzt nciht verkneifen schönen Feierabend ------------------ MFG Rick Schulz Nettiquette (CAD.de) - Was ist die Systeminfo? - Wie man Fragen richtig stellt. - Unities
[Diese Nachricht wurde von RSchulz am 11. Aug. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 11. Aug. 2010 17:22 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|