excel vba

[Kuwer]

Hallo bimbim,

per VBA dann vielleicht so:

Private Sub ComboBox1_Change()

 With ComboBox1

   If .Tag = "" Then .Tag = 0

   If .Tag < 5 Then

     .Tag = .Tag + 1

     Me.Controls("TextBox" & .Tag) = .Value

   End If

 End With

End Sub

Gruß Uwe

[bimbim]

Hallo

zuerst möchte ich mich ganz herzlich bei WillWissen bedanken, deine Lösung wäre sicherlich eine Alternative gewesen, dafür herzlichen Dank.

Jetzt zu Uwe,

herzlichen Dank es hat nach kleineren Anlauf schwierigkeiten suber funkioniert. ( man soll halt Nachts nichts neues ausprobieren )

Uwe, hätte noch eine bitte für dich bestimmt nur ein müdes lächeln.
die Textboxen auf dem Bild in gelb dort werden die Beträge eingetragen von Hand, diese sollten aber unten bei Gesamt automatisch zusammen addiert werden.
vielleicht hast du ja eine Lösung. in den Textboxen erscheinen Euro Beträge.

im vorraus recht vielen Dank für die Mühe

bimbim

[Kuwer]

Hallo bimbim,

so in der Art vielleicht (kommt alles hinters UserForm):

Private Sub BerechneSumme()

 TextBox11.Value = Application.Sum(0 & TextBox6.Tag, _

                                   0 & TextBox7.Tag, _

                                   0 & TextBox8.Tag, _

                                   0 & TextBox9.Tag, _

                                   0 & TextBox10.Tag)

End Sub



Private Sub TextBox6_Change()

 With TextBox6

   If IsNumeric(.Value) Then

     .Tag = .Value

   Else

     .Tag = 0

   End If

 End With

 BerechneSumme

End Sub



Private Sub TextBox7_Change()

 With TextBox7

   If IsNumeric(.Value) Then

     .Tag = .Value

   Else

     .Tag = 0

   End If

 End With

 BerechneSumme

End Sub



Private Sub TextBox8_Change()

 With TextBox8

   If IsNumeric(.Value) Then

     .Tag = .Value

   Else

     .Tag = 0

   End If

 End With

 BerechneSumme

End Sub



Private Sub TextBox9_Change()

 With TextBox9

   If IsNumeric(.Value) Then

     .Tag = .Value

   Else

     .Tag = 0

   End If

 End With

 BerechneSumme

End Sub



Private Sub TextBox10_Change()

 With TextBox10

   If IsNumeric(.Value) Then

     .Tag = .Value

   Else

     .Tag = 0

   End If

 End With

 BerechneSumme

End Sub

[bimbim]

werde es gleich testen.
danke


Hallo uwe,

leider nicht ganz richtig

in den Textboxen sollte es so aussehen 2,50€, oder 200,00 € auch das Gesamtergebnis sollte so aussehen 202,50€

Hatte diese Formel schon drin stehen, bekam aber das Endergebnis nicht hin

 Private Sub TextBox16_AfterUpdate()


    Textbox16.Text = Format(Textbox16.Text, "#,##0.00 €")
End Sub

trotzdem vielen Dank

mfg
bimbim

[Kuwer]

Hallo bimbim,

ersetze vorige durch diese Codes:

Private Sub BerechneSumme()

  TextBox11.Value = Format(Application.Sum(CDbl(0 & TextBox6), _

                                           CDbl(0 & TextBox7), _

                                           CDbl(0 & TextBox8), _

                                           CDbl(0 & TextBox9), _

                                           CDbl(0 & TextBox10)), "#,##0.00 €")

End Sub



Private Function EingabeCheck(strEingabe As String) As String

 If IsNumeric(strEingabe) Then

   EingabeCheck = Format(strEingabe, "#,##0.00 €")

 Else

   EingabeCheck = ""

 End If

End Function



Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

 TextBox6 = EingabeCheck(TextBox6)

 BerechneSumme

End Sub

Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

 TextBox7 = EingabeCheck(TextBox7)

 BerechneSumme

End Sub

Private Sub TextBox8_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

 TextBox8 = EingabeCheck(TextBox8)

 BerechneSumme

End Sub

Private Sub TextBox9_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

 TextBox9 = EingabeCheck(TextBox9)

 BerechneSumme

End Sub

Private Sub TextBox10_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

 TextBox10 = EingabeCheck(TextBox10)

 BerechneSumme

End Sub

Gruß Uwe

[bimbim]

Hallo,

habe fertig!!!


recht vielen Dank an alle besonderst an Kuwer ( Uwe )

werde immer wieder vorbeischauen vielleicht kann ich ja mal was zurück geben.


mfg und einen schönen Sonntagabend noch.


bimbim

[bimbim]

Hallo Uwe,

ich habs schon fast geahnt, beim arbeiten mit der Userform und der Combobox habe ich mich bei der Auswahl eines Artikels vertan.

wollte ihn löschen was auch ging jetzt wollte ich in die leere Textbox einen anderen Artikel auswählen und einfügen was aber nicht ging
er setzte mir den Artikel in die nächste Textbox.

daraufhin habe ich einen button zum löschen der Textboxen eingebaut. das hat auch funkioniert alle Textboxen waren leer.

soweit so gut.

jetzt wollte ich von neuem die Artikel eingeben das ging aber auch nicht, sondern ich musste zuerst die Userform verlassen und neu starten.

kann es nicht gehen ( das geht bestimmt ) dass man nachdem man die Textboxen gelleert hat ohne die Userform zu verlassen mit der Auswahl von neuem beginnen kann.

mfg
bimbim

[Kuwer]

Hallo bimbim,

Private Sub ComboBox1_Change()

 Dim i As Long

 For i = 1 To 5

   With Me.Controls("Textbox" & i)

     If .Value = "" Then

       .Value = ComboBox1.Value

       Exit For

     End If

   End With

 Next i

End Sub

Gruß Uwe

[bimbim]

Hallo Uwe,

sag schon mal Danke.

kann es erst heute Mittag ausprobieren.


Mfg

Manfred ( bimbim)

[bimbim]

Hallo Uwe,

habe es eingefügt funktioniert prima.

besten Dank für deine Geduld und Mühe.

Aber ich glaube so schnell wirst du mich noch nicht los.

habe schon eine erweiterung ins Auge gefasst es soll in naher zukunft noch 2 reihen Texboxen hinzugefügt werden in die erste reihe sollen die Stückzahlen in die 2 Reihe der Eurobetrag und in der 3 Reihe ist schon vorhanden soll der Betrag errechnet werden oder wie bereits jetzt von Hand eingetragen werden wenn die beiden vorderen reihen leer sind.


dies hat aber noch ein wenig zeit suche mal im Internet vielleicht finde ich ja auch mal selbst was.

wünsche eine angenehme Nachtruhe


bimbim