Collapse column

Autor Thema: Bitte um Unterstützung Textfelder summieren und nach Übertragen UF aktualisieren  (Gelesen 116 mal)

Online hazukos

  • Newbie
  • *
  • Beiträge: 3
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Mittelmäßig
  • Version [Office] : Office 2013
Hallo VBA Profis,

habe eine UserForm mit 9 Textfeldern, 1 Combobox für Tabellen wechseln, 2 Spinbuttons,   
1 Übertragen Button, 1 Cancel Button und 1 Beenden Button.
Es funktioniert fast alles bis auf zwei Funktionen die ich leider nicht hin bekomme und da ich auch neu in dem VBA Gebiet bin!

1. Funktion Sum: TextBox7 = Textbox9 + Textbox4  'In Textbox7 soll mir der eingegebene Wert in Textbox4 sofort mitberechnet werden ohne etwas zu drücken.

2. nach dem Übertragen von 9 Textfeldern (inkl. berechnete Werte), soll mir Textbox9 und Textbox6 sofort automatisch aktualisiert werden, dh, die neue Werte anzeigen lassen wie 1. ausser dem wenn ich über Combobox die Tabellen wechsle, soll die aktualisierte Funktion eben so funktionieren.

Private Sub Übertragen_Click()
Dim i As Long
     
       With ActiveSheet
       .Rows(5).Insert
       For i = 1 To 8
           If i = 5 Then
               .Cells(5, i) = CDate(Me.Controls("TextBox" & CStr(i)))
           Else
               .Cells(5, i) = Me.Controls("TextBox" & CStr(i))
            TextBox7.Text = CInt(TextBox9.Text) + CInt(TextBox4.Text)
           End If
       Next i
       End With
   End Sub

Private Sub Cancel_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""

End Sub

Private Sub UserForm_Initialize()
 
  Me.TextBox9.Text = Cells(5, 7)
   
        Me.TextBox6.Text = TextBox9 + 1
   
    Me.TextBox5 = Date

With UserForm1
.Height = 450
.Width = 350
End With

Dim BLATBLAT As Integer
For BLATBLAT = 1 To Worksheets.Count
    Me.ComboBox.AddItem Worksheets(BLATBLAT).Name
Next BLATBLAT

End Sub

Hoffe Ihr könnt mir weiter helfen.
Danke im Voraus!




Online hazukos

  • Newbie
  • *
  • Beiträge: 3
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Mittelmäßig
  • Version [Office] : Office 2013
Wie ich sehe, bin ich falsch hier?!  :-\

Online gmg-cc

  • Hero Member
  • *****
  • Beiträge: 1.126
    • Profil anzeigen
    • Meine Webseite
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Gut
  • Version [Office] : Office 2016
Wenn du innerhalb 24 Stunden eine Lösung erwartest, dann wende dich doch an einen externen Dienstleister, der macht das gewiss rasch und je nach Umfang der Aufgabe auch kostengünstig.  >:(
In allen (freien) Foren sind die Helfer auf freiwilliger Basis in ihrer Freizeit tätig und haben auch noch andere Interessen…
Gruß
Günther

Online hazukos

  • Newbie
  • *
  • Beiträge: 3
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Mittelmäßig
  • Version [Office] : Office 2013
Wie man sieht, werde ich auch nach 162 Stunden nicht geholfen!

Gruß