Hallo liebe VBA’ler,
mit Hilfe der UserForm1 buche ich Teilbeträge eines Rechnungsbetrages in eine Tabelle. Bei jeder Teilbetrag-Buchung öffnet sich dann UserForm2, in der die einzelnen Teilbeträge in TextBoxen(1-5) angezeigt und die Summe dieser Teilbeträge in der Textbox 6 ausgewiesen werden. Da ich es nicht schaffe, den Vorgang „Eintrag in TextBox, Summe bilden, Eintrag in Tabelle, Umsatzsteuer berechnen u.v.m. …“ von der UserForm1 aus zu steuern, habe ich also auf meiner UserForm2 zu jeder Textbox einen CommandButton angelegt, mit dem ich den Vorgang starte. Das ist sehr umständlich und zieht eine Reihe von Problemen nach sich …
Meine Frage also: Wie kann ich einen CommandButton auf UserForm2 direkt von UserForm1 ansprechen?
So öffne ich in UF1 die UF2:
If Me.TextBox1.Enabled = CheckBox1.Value Then ’ weiteren Teilbetrag buchen
Unload Me
UserForm13.Show
UserForm2.Show
End If
und das ist der Code (teilweise) des 1. CommandButtons auf UF2:
Private Sub cmd_1_Uebernehmen_Click() ’ Rechnungsbetrag und 1. Teilbetrag einsetzenIf Me.Rechnungsbetrag = „“ Then
Dim strText As String ’ Rechnungsbetrag in Textbox schreiben
Dim strText2 As String
strText2 = Chr$(13)
Selection.SelectRow
Selection.Cells(19).Select
strText = Selection.Text
If InStr(strText, strText2) > 0 Then
strText = Replace(strText, strText2, „“)
End If
Me.Rechnungsbetrag.Value = strText
With UserForm1
TextBox5.Text = Format(CDbl(Val(Replace(Rechnungsbetrag.Text, „,“, „.“))) - _
CDbl(Val(Replace(Teilbetrag1.Text, „,“, „.“))), „#,##0.00“)
End With
End If
Ich wäre sehr froh, wenn Ihr mir helfen könntet! Herzlichen Dank vorab,.
hudot