Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel VB Berechnung easy für euch ;-)

Excel VB Berechnung easy für euch ;-)
25.02.2007 20:03:20
Blade
Guten Abend .....
Ich möchte folgendes berechnen:
1-10 Artikel =20 Euro
jeder weitere Artikel soll + 5 Euro kosten.
So dass ich z.B. bei 12 Artikeln die Summe von 30 Euro habe.
Meine bisherige Formel die mir aber nicht wirklich weiterhilft.....
Select Case TextBox11.Value
Case 1 To 10: Ergebnis = 20
Case Else: Ergebnis = TextBox11.Value * 5
End Select
Range("H101") = Ergebnis
Vielen Dank für Eure HILFE!!!!!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Case Else=
25.02.2007 20:15:00
Worti
Hallo Blade,
so: Case Else: ergebnis = 20 + (UserForm1.TextBox1.Value - 10) * 5
AW: Case Else=
25.02.2007 20:46:58
Blade
Jaaa, läuft!!!
Vielen Dank!!!!!
nein läuft nicht...
26.02.2007 16:58:12
ingoG
...wenn Du 8 eingibst kommt 10 € raus
ergebnis = 20 + application.max(0,UserForm1.TextBox1.Value - 10)) * 5
sollte funzen
Gruß Ingo
Dann Hast du Select Case nicht verstanden oT
01.03.2007 10:28:00
Worti
AW: Dann Hast du Select Case nicht verstanden oT
01.03.2007 17:05:00
ingoG
Hallo Worti
na, soweit würde ich nicht gehen ;-), aber du hast recht, der Code läuft, ist aber unnötig lang und wahrscheinlich auch nicht schneller.
Gruß Ingo
AW: Dann Hast du Select Case nicht verstanden oT
01.03.2007 19:03:00
worti
Hallo Ingo,
hast ja Recht. Mit deiner Lösung entfällt der komplette Select, schön.
Gruß Klaus
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige