Ich habe ein Problem mit meiner ComboBox in einer UserForm
Der nachfolgende Code funktioniert soweit.
Das Problem ist:
wenn ich in der ComboBox2 manuell etwas eingeben möchte erscheint der Debugger im Makro "
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