Problem mit Abfrage in Listbox

Forumthread: Problem mit Abfrage in Listbox

13.08.2017 10:32:44

Peter

Hallo ihr Excelspezialisten,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Problem selbst gelöst

13.08.2017 11:16:47

Peter

AW: Problem selbst gelöst

13.08.2017 11:16:47

Peter

Habe die Sache selbst gelöst mittels folgendem Code:

Private Sub ListBox1_AfterUpdate()
If TextBox12.Value = "" Then
Exit Sub
Else
MsgBox "dieser Datensatz wurde bereits bearbeitet"
CommandButton5 = True
End If
End Sub

Gruss
Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Problem mit Abfrage in Listbox

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread