mit diesem makro möchte ich über textboxen in einer userform einträge in einer tabelle bearbeiten.
sie sollen also in die selbe zelle zurückgeschrieben werden.dies gelingt mir aber nur in den Spalten 1 u.4,
in den anderen spalten funktioniert es leider nicht.
frage:was muss ich ändern ?
'EINTRAG BEARBEITEN
Private Sub CommandButton2_Click()
Dim wohin As Integer
wohin = Sheets("Tabelle1").Range("D7000").End(xlUp).Offset(1, 0).Row
wohin = Me.ComboBox1.ListIndex + 1
'In Blatt "Tabelle1"
On Error Resume Next
Sheets("Tabelle1").Cells(wohin, 1) = Format(TextBox2.Text)
Sheets("Tabelle1").Cells(wohin, 4) = Format(TextBox3.Text)
Sheets("Tabelle1").Cells(wohin, 2) = Format(TextBox4.Text)
Sheets("Tabelle1").Cells(wohin, 3) = Format(TextBox5.Text)
Sheets("Tabelle1").Cells(wohin, 6) = Format(TextBox6.Text)
Sheets("Tabelle1").Cells(wohin, 8) = Format(TextBox7.Text)
Sheets("Tabelle1").Cells(wohin, 9) = Format(TextBox8.Text)
Sheets("Tabelle1").Cells(wohin, 14) = Format(TextBox9.Text)
Sheets("Tabelle1").Cells(wohin, 12) = Format(TextBox10.Text)
Sheets("Tabelle1").Cells(wohin, 10) = Format(TextBox11.Text)
Sheets("Tabelle1").Cells(wohin, 16) = Format(TextBox12.Text)
Sheets("Tabelle1").Cells(wohin, 21) = Format(TextBox13.Text)
Sheets("Tabelle1").Cells(wohin, 19) = Format(TextBox14.Text)
Sheets("Tabelle1").Cells(wohin, 17) = Format(TextBox15.Text)
Sheets("Tabelle1").Cells(wohin, 32) = Format(TextBox16.Text)
Sheets("Tabelle1").Cells(wohin, 33) = Format(TextBox17.Text)
Sheets("Tabelle1").Cells(wohin, 36) = Format(TextBox18.Text)
Sheets("Tabelle1").Cells(wohin, 43) = Format(TextBox19.Text)
Sheets("Tabelle1").Cells(wohin, 39) = Format(TextBox20.Text)
Sheets("Tabelle1").Cells(wohin, 38) = Format(TextBox21.Text)
Sheets("Tabelle1").Cells(wohin, 35) = Format(TextBox22.Text)
Sheets("Tabelle1").Cells(wohin, 46) = Format(TextBox23.Text)
Sheets("Tabelle1").Cells(wohin, 41) = Format(TextBox24.Text)
Sheets("Tabelle1").Cells(wohin, 56) = Format(TextBox25.Text)
Sheets("Tabelle1").Cells(wohin, 59) = Format(TextBox26.Text)
Sheets("Tabelle1").Cells(wohin, 62) = Format(TextBox27.Text)
Sheets("Tabelle1").Cells(wohin, 91) = Format(TextBox28.Text)
Sheets("Tabelle1").Cells(wohin, 77) = Format(TextBox29.Text)
'Unload Me
End Sub
mfg rolf