Wert zurück in Userform
26.02.2004 08:58:42
Manu
in einer Userform gebe ich über 3 Textfelder Std.Zeiten ein.
Diese werden über ein CommandButton in Blatt2 übertragen
(Spalte B, C, D) und in Spalte F addiert.
Nun möchte ich aber gerne, das in einem weiteren Textfeld
der Userform mir der aktuelle Stand der Spalte F angezeigt
wird.
Es ist aber leider so, das die eingegebenen Daten erst dann
in den Spalten stehen, wenn diese übertragen worden sind.
Vorstellen würde ich mir folgendes:
Anzeige des Wertes aus F nach jeder aktuellen Eingabe eines
Textfeldes, wenn Fertig über CommandButton speichern.
Hier der ursprüngliche Code:
Option Explicit
Private Sub ComboBox1_Click()
Dim intRow As Integer
Dim intC As Integer
intRow = ComboBox1.ListIndex
For intC = 1 To 3
Controls("TextBox" & intC).Text = Sheets("Tabelle2").Cells(intRow + 2, intC + 1)
Next
End Sub
Private Sub CommandButton1_Click()
Dim intRow As Integer
Dim intC As Integer
intRow = ComboBox1.ListIndex
For intC = 1 To 3
Sheets("Tabelle2").Cells(intRow + 2, intC + 1) = Controls("TextBox" & intC).Text
Next
End Sub
Private Sub CommandButton2_Click() 'Schliessen/Abbrechen
Unload Me
Sheets("Tabelle1").Activate
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A2:A32" 'Quelle/Bezug
End Sub
Danke für Eure Hilfe
Gruß
Manu