AW: Unlösbar für mich
14.02.2005 12:16:04
Roland
Hallo Günter,
hier mal ein Ansatz zum "Selber-weiter-lernen":
Option Explicit
Private Sub ComboBox1_Change()
Dim i As Integer, k As Integer
k = ComboBox1.ListIndex
For i = 1 To 6
Controls("TextBox" & i).Value = Cells(k + 3, i + 1)
Next
End Sub
Private Sub CommandButton1_Click()
Rows(ComboBox1.ListIndex + 3).Delete
ComboBox1.ListIndex = ComboBox1.ListIndex - 1
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub CommandButton4_Click()
'die Reihenfolge in der Übersicht stimm nicht mit der
'in den Stammdaten überein, daher Abweichung
Dim b As Byte
With Sheets("Übersicht")
.Range("A4") = ComboBox1.Text
For b = 1 To 5
.Cells(b + 3, 2) = Me.Controls("Label" & b).Caption
.Cells(b + 3, 3) = Me.Controls("Textbox" & b).Text
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim j As Integer
For j = 3 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Cells(j, 1)
Next
'TextBox1.MultiLine = True in den Eigenschaften setzen!
'die RowSource für die ComboBox löschen!!!
End Sub
Die Übernahme geht wie das Einlesen, nur rückwärts.
Gruß von Roland aus dem verschneiten Berlin