ich habe ein Problem, und zwar beim zurückschreiben der veränderten Daten in die Zeile.
Mein Code sieht folgender Maßen aus
Private Sub CommandButton33_Click() 'Änderung speichern
Dim XZeile As Long
If ComboBox5.ListIndex = 0 Then
XZeile = [A:a].End(xlUp).Row - 1
Else
XZeile = ComboBox5.ListIndex + 1
End If
Cells(XZeile, 1) = Cells(XZeile - 1, 1) 'neue I
Cells(XZeile, 2) = ComboBox5.Text 'Mitarbeiter
Cells(XZeile, 3) = TextBox6.Text 'Datum
Cells(XZeile, 4) = TextBox8.Text 'Kostenstelle
Cells(XZeile, 5) = TextBox7.Text 'dauer
Cells(XZeile, 6) = TextBox11.Text 'Schichtbeginn
Cells(XZeile, 7) = ComboBox1.Text 'Kürzel
Cells(XZeile, 8) = ComboBox6.Text 'Anlagenbezeichnung
Cells(XZeile, 9) = TextBox1.Text 'Bereich
Cells(XZeile, 10) = TextBox3.Text 'Fehler
Cells(XZeile, 11) = TextBox4.Text 'Ursache
Cells(XZeile, 12) = TextBox5.Text 'ergr. Maßnamen
Cells(XZeile, 13) = ComboBox4.Text 'Schicht
Cells(XZeile, 15) = ComboBox3.Text 'gelesen durch
Cells(XZeile, 21) = "geändert" 'Vermerk das Datensatz geändert
Cells(XZeile, 18) = TextBox15.Text 'Schichtende
Cells(XZeile, 20) = CDate(Format(Now, "mm.dd.yy hh:mm")) 'Zeitstempel
End Sub
Und zwar löscht es die Zeilennummer und überschreibt die darin enthaltenen Daten. Der alte Datensatz bleibt dabei unverändert.Ich bin am verzweifeln den Fehler find ich nicht, hab schon das eine oder andere versucht, alles brachte nicht den Erfolg.