Daten in Combobox schreiben
24.03.2007 11:52:13
Bernd
Über ein Formular (nicht Userform) erfasse ich Daten, die in eine Tabelle eingetragen werden. Zu einer möglichen Korrektur soll ein bestimmter Datensatz wieder in das Formular eingetragen werden. Mit Daten die in Textboxen eingetragen werden klappt das gut.
In der Datenbank steht aber auch einWert der aus einer Combobox ausgewählt und auch ein Wert der über den Zustand einer Checkbox ermittelt wurde. Nun möchte ich beim Einlesen der Daten den Wert in der Combobox anzeigen der in der Datenbank steht. Auch die Checkbox soll den Zustand anzeigen der durch den eingetragenen Wert in der Datenbank vorgegeben ist. Hier mein Testlisting. Dies klappt leider noch nicht. Geht das?
Private Sub datenändern_Click()
Dim adr, suchnummer2, text1, text2, text3, combi1, ckeck1 As String
Dim ZEILE, antwort As Integer
Do While antwort 4
suchnummer = InputBox(" Bitte Datensatznummer eingeben .")
antwort = Len(suchnummer)
Loop
Call lfd_numerm
With Sheets("Regelungsverzeichnis")
For ZEILE = 7 To intcell
suchnummer2 = .Range("c" & Trim(Str(ZEILE))).Value
If suchnummer2 = suchnummer Then
MsgBox "Gefunden"
MsgBox "C" & Trim(Str(ZEILE))
text1 = .Range("D" & Trim(Str(ZEILE))).Value
text2 = .Range("E" & Trim(Str(ZEILE))).Value
text3 = .Range("F" & Trim(Str(ZEILE))).Value
combi1 = .Range("A" & Trim(Str(ZEILE))).Value
check1 = .Range("L" & Trim(Str(ZEILE))).Value
Exit For
End If
Next
End With
With Sheets("Dateneingabe")
.Activate
TextBox1 = text1
TextBox2 = text2
TextBox3 = text3
ComboBox1 = combi1
If check1 = "notwendig" Then
CheckBox1 = True
Else
CheckBox1 = False
End If
End With
End Sub