Thema Datum  Von Nutzer Rating
Antwort
04.12.2013 17:04:10 PeterH.
Solved
Blau BMI Bewertung
 04.12.2013 17:18:30 PeterH.
Solved
10.12.2013 18:15:37 PeterH.
Solved
10.12.2013 18:03:49 PeterH.
Solved

Ansicht des Beitrags:
Von:
PeterH.		 Datum:
04.12.2013 17:18:30		 Views:
877		 Rating:
     
Antwort:
 Nein
Thema:
BMI Bewertung		 
Hier noch ein kleines Programm für die Bahncard
Option Explicit
Sub Bahncard()
    
    'Variablendefinition
    Dim Kilometer As Integer
    Dim Haeufigkeit As Byte
    Dim Klasse As Byte
    
    Dim GP_oBC As Long
    Dim GP_BC25 As Long
    Dim GP_BC50 As Long
    Dim GP_BC100 As Long
    
    Dim Empfehlung As String
    
    'Lesen der Daten
    Kilometer = Worksheets("Bahncard").Cells(2, 4).Value
    Haeufigkeit = Worksheets("Bahncard").Cells(4, 4).Value
    Klasse = Worksheets("Bahncard").Cells(6, 4).Value
    
    'Berechnen der Ergebnisse
    Select Case Klasse
    Case Is = 1
        GP_oBC = 0.6 * Kilometer * Haeufigkeit
        GP_BC25 = 0.6 * Kilometer * Haeufigkeit * 0.75 + 119
        GP_BC50 = 0.6 * Kilometer * Haeufigkeit * 0.5 + 482
        GP_BC100 = 6690
    Case Is = 2
        GP_oBC = 0.3 * Kilometer * Haeufigkeit
        GP_BC25 = 0.3 * Kilometer * Haeufigkeit * 0.75 + 59
        GP_BC50 = 0.3 * Kilometer * Haeufigkeit * 0.5 + 240
        GP_BC100 = 3990
    End Select
    
    If GP_BC100 < GP_BC50 Then
        Empfehlung = "BC 100"
    Else
        If GP_BC50 < GP_BC25 Then
            Empfehlung = "BC 50"
        Else
            If GP_BC25 < GP_oBC Then
                Empfehlung = "BC 25"
            Else
                Empfehlung = "oBC"
            End If
        End If
    End If
    
    'Schreiben der Daten
    Worksheets("Bahncard").Cells(10, 4).Value = GP_oBC
    Worksheets("Bahncard").Cells(11, 4).Value = GP_BC25
    Worksheets("Bahncard").Cells(12, 4).Value = GP_BC50
    Worksheets("Bahncard").Cells(13, 4).Value = GP_BC100
    Worksheets("Bahncard").Cells(15, 4).Value = Empfehlung

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.12.2013 17:04:10 PeterH.
Solved
Blau BMI Bewertung
 04.12.2013 17:18:30 PeterH.
Solved
10.12.2013 18:15:37 PeterH.
Solved
10.12.2013 18:03:49 PeterH.
Solved