ComboBox Wert auch manuell ändern "Debugger"

Private Sub ComboBox2_Change()"in der Zeile "TextBox1.Text = Sheets("Erfassungsliste").Cells(r,  _
_
_
_
_
6)"
Frage? woran kann das liegen?
Die ComboBox liest die Werte exakt richtig ein. Nur wenn ich jetzt in das Eingabefeld der  _
ComboBox gehe und dort manuell den Wert änern möchte erscheint bei Eingabe sofort der Debugger.
Brauche dringend Hilfe
binn langsam am verzweifeln mit dem Problem
Habe jetzt schon zwei Tage im Netz gegoogelt aber nichts passendes dazu gefunden
Option Explicit
'CommandButton4 im Formular "UserForm" Bezeichnung "Änderung eintragen"

Private Sub CommandButton4_Click()
Call Andreas_Daten_zurückschreiben_Click
End Sub


'CommandButton4 im Formular "UserForm" Bezeichnung "Beenden"

Private Sub CommandButton2_Click()
Unload Me
End Sub


'dieses Makro schreibt die Daten aus "UserForm" entsprechend der "TextBox" Werte in die Tabelle  _

"Datenbank_Registerbeschriftung" zurück

Private Sub Andreas_Daten_zurückschreiben_Click()
Dim mldg, stil, titel, grc
Dim zeile
'Schaltfläche "Eintragen"
'vor dem speichern wird nachgefragt, ob alles richtig eingetragen ist
mldg = "ALles richtig eingetragen ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
'Daten aus "UserForm" werden eingetragen
'Daten in Tabelle schreiben
Sheets("Hilfstabelle1").Activate
With UserForm
zeile = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(zeile, 3) = TextBox1.Text     'Bahnhof
Cells(zeile, 4) = TextBox2.Text     'Bemerkung
Cells(zeile, 2) = TextBox3.Text     'Equipment
End With
End Sub



Private Sub UserForm_Activate()

Dim varArray As Variant

Dim Wks1 As Worksheet

Set Wks1 = Worksheets("Erfassungsliste")

'   varArray = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 3))

varArray = Wks1.Range(Wks1.Cells(1, 1), Wks1.Cells(Wks1.Cells(65536, 2).End(xlUp).Row, 6))

ComboBox2.List = varArray

End Sub



Private Sub ComboBox2_Change()

Dim r%

With UserForm

'füllt die ComboBox1 mit den Datensätzen

r = ComboBox2.ListIndex + 1

'wenn ich jetzt in die  ComboBox2 einen Wert manuell ändere erschein der Debugger in der  _

folgenden Zeile

TextBox1.Text = Sheets("Erfassungsliste").Cells(r, 6)                          _

_

'Bahnhof

TextBox2.Text = Sheets("Erfassungsliste").Cells(r, 13)                              ' _

Bemerkung

TextBox3.Text = Sheets("Erfassungsliste").Cells(r, 8)                               ' _

Equipment-Nummer

End With

End Sub



Private Sub ComboBox2_Click()

Dim r%

With UserForm

r = ComboBox2.ListIndex + 1

TextBox1.Text = Sheets("Erfassungsliste").Cells(r, 6)                               ' _

Bahnhof

TextBox2.Text = Sheets("Erfassungsliste").Cells(r, 13)                              ' _

Bemerkung

TextBox3.Text = Sheets("Erfassungsliste").Cells(r, 8)                               ' _

Equipment-Nummer

End With

End Sub


Bitte um Hilfe für mein Problem

liebe Grüße Andreas

und erst mal vielen Dank für dijenigen die sich damit Mühe machen