Berechnungshilfe

Hallo Leute,
ich möchte eine Berechnungshilfe für eine Exceltabelle in Form einer UserForm programmieren.
Geplant ist, dass der Anwender in der ComboBox1 nur den Fond auswählt (der ist in Tabelle1 in der Spalte B3 bis B8. Die UserForm soll sich bei "initialitze" mit den Angaben aus dem Tabellenbereich füllen.
Anschließend soll der Anwender nur, entweder Betrag oder Stückzahl angeben, und je nach Angabe soll dann ein Makro ausgeführt werden, welches entweder den Betrag durch den Einzelpreis, der wieder in Tabelle1 SpalteD angegeben ist, teilt und dann in TextBox 4 die Stückzahl auswirft, oder bei Stückzahlangabe diese mit dem Preis pro Stück multipliziert und ebenfalls in TextBox5 ausgibt.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Berechnungshilfe

15.05.2007 17:18:10

Roland

AW: Berechnungshilfe

16.05.2007 13:48:00

Christian

AW: Berechnungshilfe

15.05.2007 17:19:00

Peter

Hallo Roland,
vielen Dank, aber das war´s noch nicht.
Zunächst soll VBA sich aus der Tabelle1 Spalte B den Namen des Fonds suchen, der in derCombobox1 ausgewählt wurde. Danach holt sich VBA aus der gleichen Zeile den Verkaufspreis (steht in Spalte D) und teilt den Anlagebetrag (aus der TxtBox1 der UserForm) durch den Verkaufspreis, um die Stückzahl in der TextBox2 der UserForm wiederzugeben.
So weit - so gut.
Jetzt nimmt VBA die Stückzahl, multipliziert diese mit dem Ausgabeaufschlag p. St. (in Tabelle1, Spalte E) und gibt dieses Ergebnis wieder in der TextBox4 der UserForm.
Ich hoffe das ich mich jetzt besser ausgedrückt habe.
Das habe ich bisher:
Option Explicit
Dim Kosten As String
Dim Anlagebetrag As String
Dim Fond As Variant


Private Sub UserForm_Initialize()
ComboBox1.AddItem "Fond1"
ComboBox1.AddItem "Fond2"
ComboBox1.AddItem "Fond3"
TextBox1.SetFocus
End Sub


Private Sub CommandButton1_Click()
Dim Betrag As String
Dim Stückzahl As String
Dim gefunden As Range
Fond = ComboBox1.Value
Betrag = TextBox1.Value
Stückzahl = TextBox2.Value
Ausgabeaufschlag = TextBox4.Value
Vertriebsprovision = TextBox5.Value
With Worksheets("Tabelle1")
Set gefunden = Worksheets("Tabelle1").Range("B:B").Find("Fond")
'und hier weiß ich nicht mehr weiter
End With
End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Berechnungshilfe

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread