Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo,

Bitte nochmal um Hilfe und hoffe, ich werde nicht schon wieder falsch verstanden!
Danke!

Gruß

Wie man sieht, werde ich auch nach 162 Stunden nicht geholfen!

Gruß

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!