Thema Datum  Von Nutzer Rating
Antwort
17.01.2011 10:57:41 vba-neuling
NotSolved
Blau hilfe bei zuordnung
 17.01.2011 13:23:13 Severus
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
17.01.2011 13:23:13		 Views:
699		 Rating:
     
Antwort:
 Nein
Thema:
hilfe bei zuordnung


Function p_staffel(ByRef menge%, ByRef preis!)

Dim summe!, i%
Dim Gruppe!
'Ich sehe keinen Grund für ein mehrdimensionales Datenfeld

Select Case menge
Case 1 To 5
preis = 2!
Case 6 To 10
preis = 1.8!
Case 11 To 20
preis = 1.6!
Case Is > 20
preis = 1.4!
End Select

summe = menge * preis

p_staffel = summe

'wenn Du den Preis mit dem Wert 0 als Referenz übergibst, dann kannst Du den geänderten Preis
'In deiner Subroutine weiterverwenden:
'Sub Test()
'[...]
'Dim GSumme!, GPreis!
'GPreis = 0
'GSumme = p_staffel(menge, GPreis)
'MsgBox GPreis
'End Sub
End Function

 

Severus

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
17.01.2011 10:57:41 vba-neuling
NotSolved
Blau hilfe bei zuordnung
 17.01.2011 13:23:13 Severus
Solved