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
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
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
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
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
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
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
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
Hallo Uwe,
sag schon mal Danke.
kann es erst heute Mittag ausprobieren.
Mfg
Manfred ( 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