Hier also ein kleiner Auschnitt
Function Meier_Loco(Empfangsort, Absenderort)
If Empfangsort = Köln And Absenderort = Göttigen - Meier Or Fulda - Meier Then
Select Case Birnen
Case 1 To 50
Köln = 1.11
Case 51 To 100
Köln = 2.22
Case 101 To 200
Köln = 3.33
Case 201 To 300
Köln = 4.44
Case 301 To 400
Köln = 5.55
Case 401 To 500
Köln = 6.66
Case 501 To 600
Köln = 7.77
Case 601 To 700
Köln = 8.88
Case 701 To 800
Köln = 9.99
Case 801 To 900
Köln = 10.10
Case 901 To 1000
Köln = 11.11
Case 1001 To 1100
Köln = 12.12
Case 1101 To 9000
Köln = 13.13
Case 9001 To 24000
Köln = 14.14
End Select
End If
Herzlichen Dank - Jessie :-)