Berechnungshilfe
21.05.2007 10:21:00
Christian
Ich habe eine Tabelle in der ich Investmentfonds berechnen lasse. (Sückzahl * Verkaufspreis, Ausgabekosten usw.) Ich möchte aber dem User eine Userform zur Verfügung stellen, in der er eingeben kann in ComboBox1 den Fond, und jetzt kommts: Entweder in TextBox1 den Anlagebetrag, oder in TextBox 2 die Stückzahl.
VBA soll dann (bei Commandbutton1)auf die Tabellenwerte zurückgreifen und z.B. den Anlagebetrag durch den Einzelpreis teilen(steht in der gleichen Zeile unter einer anderen Spalte z.B."D"), um die Stückzahl zu ermitteln. Die Stückzahl soll dann mit dem Ausgabekostenaufschlag multipliziert werden und der gesammte Ausgabekostenaufschlag für alle Stücke in der TextBox4 angezeigt werden.
Bei Eingabe einer Stückzahl entfällt natürlich dieser Teil der Ausrechnung ansonsten werden die Felder analog berechnet.
Das habe ich bisher:
Option Explicit
Dim Kosten As String
Dim Anlagebetrag As String
Dim Fond As Variant
Dim Ausgabeaufschlag, Vertriebsprovision As String
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem [b3]
.AddItem [b4]
.AddItem [b5]
.AddItem [b6]
.AddItem [b7]
.AddItem [b8]
End With
TextBox1.SetFocus
End Sub
Private Sub CommandButton1_Click()
Dim Betrag As String
Dim Stückzahl As String
Dim gefunden As Range
Dim str As String
Fond = ComboBox1.Value
Betrag = TextBox1.Value
Stückzahl = TextBox2.Value
TextBox4.Value = Ausgabeaufschlag
TextBox5.Value = Vertriebsprovision
With Worksheets("Tabelle1")
Set gefunden = Worksheets("Tabelle1").Range("B:B").Find("Fond")
Range("D" & ComboBox1.ListIndex + 3) = Ausgabeaufschlag
TextBox4.Value = (CDbl(TextBox1.Text) / CDbl(Range("D" & ComboBox1.ListIndex + 3)))
End With
End Sub