UserForm - Code verändern
09.09.2003 13:58:53
Fritz
ich möchte die Möglichkeiten einer UserForm in einer Arbeitsmappe dahingehend ändern, dass die Werte, die über Listen- und Eingabefelder in die Tabelle "Daten" geschrieben werden können, bei Aufruf der UserForm bereits die Werte anzeigen, die zu diesem Zeitpunkt ggf. in den jeweiligen Zellen der Tabelle "Daten" stehen. Dies ist bei der bisherigen Codierung nicht der Fall.
Wer von euch kann mir den nachstehenden Code entsprechend meinen Vorstellungen verändern? Da ich von VBA nicht viel verstehe, bin ich auf eure Hilfe angewiesen. Wenn zur Veranschaulichung meines Anliegens die betreffende Mappe posten soll, dann bitte ich um kurze Nachricht.
Danke für eure Bemühungen.
Mfg
Fritz
Private Sub ComboBox1_Change()
Dim i As Byte
On Error Resume Next
Select Case ComboBox1
Case 3
For i = 4 To 6
Controls("Label" & i).Visible = False
Controls("TextBox" & i).Visible = False
Next i
Case 4
Label4.Visible = True
TextBox4.Visible = True
For i = 5 To 6
Controls("Label" & i).Visible = False
Controls("TextBox" & i).Visible = False
Next i
Case 5
For i = 4 To 5
Controls("Label" & i).Visible = True
Controls("TextBox" & i).Visible = True
Next i
Label6.Visible = False
TextBox6.Visible = False
Case 6
For i = 4 To 6
Controls("Label" & i).Visible = True
Controls("TextBox" & i).Visible = True
Next i
End Select
End Sub
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 6
If Controls("Label" & i).Visible = True Then
Cells(i + 1, 2) = Controls("TextBox" & i)
Else
Cells(i + 1, 2) = ""
End If
Next i
Unload UserForm1
End Sub