VBA rechnet falsch aus

Forumthread: VBA rechnet falsch aus

Marija

Hallo,
kann mir bitte jemand erklären, was ich da falsch mache und warum sich der Preis nicht immer automatisch errechnet?
Ich bin total vezweifelt, bitte helft mir!!!
Anbei die Datei wie folgt:
https://www.herber.de/bbs/user/4947.xls
Vielen Dank und herzliche Grüsse
Marija

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: VBA rechnet falsch aus

Nepumuk

Hallo Marija,
so sollte es funktionieren:

Option Explicit
Function preis(Entf As Integer, Gew As Integer) As Variant
    Dim n As Integer, m As Integer, Zeilenoffset As Integer
    Select Case Gew
        Case Is <= 20
            Gew = 20
        Case Is <= 100
            If Gew / 10 <> Int(Gew / 10) Then Gew = (Int(Gew / 10) + 1) * 10
        Case Is <= 550
             If Gew / 20 <> Int(Gew / 20) Then Gew = (Int(Gew / 20) + 1) * 20
        Case Is <= 1100
             If Gew / 50 <> Int(Gew / 50) Then Gew = (Int(Gew / 50) + 1) * 50
        Case Is <= 15000
            If Gew / 100 <> Int(Gew / 100) Then Gew = (Int(Gew / 100) + 1) * 100
        Case Else
            preis = "Fehler bei Gewicht"
            Exit Function
    End Select
    Select Case Entf
        Case Is <= 30
            Entf = 30
        Case Is <= 100
            If Entf / 10 <> Int(Gew / 10) Then Gew = (Int(Gew / 10) + 1) * 10
        Case Is <= 300
            If Entf / 20 <> Int(Entf / 20) Then Entf = (Int(Entf / 20) + 1) * 20
        Case Is <= 311
            Entf = 311
        Case Is <= 340
            Entf = 340
        Case Is <= 500
             If Entf / 20 <> Int(Entf / 20) Then Entf = (Int(Entf / 20) + 1) * 20
        Case Is <= 700
            If Entf / 25 <> Int(Entf / 25) Then Entf = (Int(Entf / 25) + 1) * 25
        Case Is <= 1000
            If Entf / 50 <> Int(Entf / 50) Then Entf = (Int(Entf / 50) + 1) * 50
        Case Else
            preis = "Fehler bei Entfernung"
            Exit Function
    End Select
    With Worksheets("Stückguttarif")
        For n = 5 To 46
            If Entf = .Cells(n, 1).Value Then Zeilenoffset = n - 4: Exit For
        Next n
        For m = 2 To 177
            If Gew = .Cells(4, m).Value Then preis = .Cells(4 + Zeilenoffset, m).Value: Exit For
        Next m
    End With
End Function

Gruß
Nepumuk

AW: VBA rechnet falsch aus

Marija

Super, Nepumuk!
Du bist Spitze, vielen Dank!!!
Ich habe schon vermutet, dass etwas bei m und n schief läuft, wusste aber nicht, wie ich es korrigieren soll.
DANKESCHÖN!

AW: VBA rechnet falsch aus

Marija

Ach, ich habe es jetzt ausprobiert, irgendwas stimmt bei den kleineren Entfernungen (bis 100) und beim Gewicht auch bis 100, z.B. bei 35 KM und 51 KG rechnet mir Excel 70 EUR aus. Anstatt 6,10 EUR. Vielleicht ist noch ein Fehler in der Schleife drin, könntest du bitte noch einmal schauen. Bitte!
Gruß
Marija

AW: VBA rechnet falsch aus

Nepumuk

Hallo Marija,
in der Select - Anweisung für die Entfernung


Function preis(Entf As Integer, Gew As Integer) As Variant
Dim n As Integer, m As Integer, Zeilenoffset As Integer
Select Case Gew
Case Is <= 20
Gew = 20
Case Is <= 100
If Gew / 10 <> Int(Gew / 10) Then Gew = (Int(Gew / 10) + 1) * 10
Case Is <= 550
If Gew / 20 <> Int(Gew / 20) Then Gew = (Int(Gew / 20) + 1) * 20
Case Is <= 1100
If Gew / 50 <> Int(Gew / 50) Then Gew = (Int(Gew / 50) + 1) * 50
Case Is <= 15000
If Gew / 100 <> Int(Gew / 100) Then Gew = (Int(Gew / 100) + 1) * 100
Case Else
preis = "Fehler bei Gewicht"
Exit Function
End Select
Select Case Entf
Case Is <= 30
Entf = 30
Case Is <= 100
If Entf / 10 <> Int(Entf / 10) Then Entf = (Int(Entf / 10) + 1) * 10
Case Is <= 300
If Entf / 20 <> Int(Entf / 20) Then Entf = (Int(Entf / 20) + 1) * 20
Case Is <= 311
Entf = 311
Case Is <= 340
Entf = 340
Case Is <= 500
If Entf / 20 <> Int(Entf / 20) Then Entf = (Int(Entf / 20) + 1) * 20
Case Is <= 700
If Entf / 25 <> Int(Entf / 25) Then Entf = (Int(Entf / 25) + 1) * 25
Case Is <= 1000
If Entf / 50 <> Int(Entf / 50) Then Entf = (Int(Entf / 50) + 1) * 50
Case Else
preis = "Fehler bei Entfernung"
Exit Function
End Select
With Worksheets("Stückguttarif")
For n = 5 To 46
If Entf = .Cells(n, 1).Value Then Zeilenoffset = n - 4: Exit For
Next n
For m = 2 To 177
If Gew = .Cells(4, m).Value Then preis = .Cells(4 + Zeilenoffset, m).Value: Exit For
Next m
End With
End Function

Gruß
Nepumuk

AW: VBA rechnet falsch aus

05.04.2004 11:30:48

Marija

Super, noch einmal herzlichen Dank!!!
Ich bin ja wirklich blind :o(((
Schönen Tag noch!

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA rechnet falsch aus

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread