Textboxwerte ändern und zurück in Zelle
23.05.2005 15:08:45
Gisela
ich versuche die in eine Combobox übernommenen Werte zu ändern und zurückzuschreiben.
Der erste Teil funktioniert. Der zweite Teil leider nicht. Es sollen sieben Werte veränderbar sein.
Hier mal die beiden Makro
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Set frm2 = UserForm7
With frm2
Sheets("Aktuell").Select
Range("E:E").Select
Selection.Find(What:=.ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
'Tabelleninhalte in UserForm übertragen
.TextBox1.Value = ActiveCell.Offset(0, 6).Value
.TextBox4.Value = ActiveCell.Offset(0, 4).Value
.TextBox3.Value = ActiveCell.Offset(0, 2).Value
.TextBox5.Value = ActiveCell.Offset(0, -3).Value
.TextBox6.Value = ActiveCell.Offset(0, -2).Value
.TextBox7.Value = ActiveCell.Offset(0, 7).Value
.TextBox8.Value = ActiveCell.Offset(0, -1).Value
.TextBox9.Value = ActiveCell.Offset(0, 1).Value
.TextBox10.Value = ActiveCell.Offset(0, 3).Value
.TextBox11.Value = ActiveCell.Offset(0, -4).Value
.TextBox12.Value = ActiveCell.Offset(0, 12).Value
.TextBox14.Value = ActiveCell.Offset(0, 8).Value
.TextBox15.Value = ActiveCell.Offset(0, 9).Value
.TextBox16.Value = ActiveCell.Offset(0, 10).Value
.TextBox17.Value = ActiveCell.Offset(0, 11).Value
.TextBox18.Value = ActiveCell.Offset(0, 13).Value
.TextBox19.Value = ActiveCell.Offset(0, 14).Value
.TextBox20.Value = ActiveCell.Offset(0, 15).Value
.TextBox21.Value = ActiveCell.Offset(0, 16).Value
.TextBox22.Value = ActiveCell.Offset(0, 17).Value
.TextBox23.Value = ActiveCell.Offset(0, 18).Value
.TextBox24.Value = ActiveCell.Offset(0, 19).Value
.TextBox27.Value = ActiveCell.Offset(0, 20).Value
.TextBox26.Value = ActiveCell.Offset(0, 21).Value
End With
End Sub
Private Sub Command15_Click()
Dim r&
If ComboBox1.ListIndex = -1 Then
r = Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
r = ComboBox1.ListIndex + 3
End If
Cells(r, 12) = TextBox12.Text
Cells(r, 16) = TextBox21.Text
Cells(r, 17) = TextBox22.Text
Cells(r, 18) = TextBox23.Text
Cells(r, 19) = TextBox24.Text
Cells(r, 21) = TextBox26.Text
Cells(r, 20) = TextBox27.Text
End Sub
Kann mir bitte jemand helfen beim zweiten Teil?
Grüße
Gisela