ich bitte euch mir bei meinem Problem zu helfen.
Ich fülle die Listbox1 in UF mit folgendem Code:
Private Sub ListBox1_Click()
TextBox1.Value = ListBox1.List(Me.ListBox1.ListIndex, 0)
TextBox2.Value = ListBox1.List(Me.ListBox1.ListIndex, 1)
TextBox3.Value = ListBox1.List(Me.ListBox1.ListIndex, 2)
TextBox4.Value = ListBox1.List(Me.ListBox1.ListIndex, 3)
TextBox5.Value = ListBox1.List(Me.ListBox1.ListIndex, 4)
TextBox6.Value = ListBox1.List(Me.ListBox1.ListIndex, 5)
TextBox7.Value = ListBox1.List(Me.ListBox1.ListIndex, 6)
TextBox8.Value = ListBox1.List(Me.ListBox1.ListIndex, 7)
TextBox9.Value = ListBox1.List(Me.ListBox1.ListIndex, 8)
TextBox10.Value = ListBox1.List(Me.ListBox1.ListIndex, 9)
TextBox11.Value = ListBox1.List(Me.ListBox1.ListIndex, 10)
TextBox12.Value = ListBox1.List(Me.ListBox1.ListIndex, 11)
FundZeile = ListBox1.List(Me.ListBox1.ListIndex, 12)
CommandButton1.Enabled = True ' den Änder-Button freigeben
CommandButton2.Enabled = False ' den Suchen-Button sperren
CommandButton5.Enabled = True ' den Eingabe-Button freigeben
TextBox1.Enabled = False
TextBox2.Enabled = False
End Sub
Nun möchte ich, wenn in ListBox1.List(Me.ListBox1.ListIndex,11) der Wert "bearbeitet"erscheint, dass die MsgBox "Dieser Datensatz wurde bereits bearbeitet" erscheint und
die Markierung in der Listbox aufgehoben wird.
Mein bisheriger Lösungsansatz lautet wie folgt:
If ListBox1.List(Me.ListBox1.ListIndex, 11) = "bearbeitet" Then
MsgBox "Dieser Datensatz wurde bereits bearbeitet"
CommandButton1.Enabled = False ' den Änder-Button freigeben
CommandButton2.Enabled = True ' den Suchen-Button sperren
CommandButton3.Enabled = False ' den Änder-Button freigeben
CommandButton4.Enabled = False ' den Lösch-Button freigeben
CommandButton5.Enabled = False ' den Eingabe-Button freigeben
TextBox1.Enabled = True
TextBox2.Enabled = True
Else
FundZeile = ListBox1.List(Me.ListBox1.ListIndex, 12)
CommandButton1.Enabled = True ' den Änder-Button freigeben
CommandButton2.Enabled = False ' den Suchen-Button sperren
CommandButton3.Enabled = False ' den Änder-Button freigeben
CommandButton4.Enabled = False ' den Lösch-Button freigeben
CommandButton5.Enabled = True ' den Eingabe-Button freigeben
TextBox1.Enabled = False
TextBox2.Enabled = False
End If
Ich weiss jedoch nicht, wie ich die ListBox-Markierung aufhebe und wo ich diese einfügen soll.
Besten Dank für eure Hilfe.
Gruss
Peter