Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Problem mit Abfrage in Listbox

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
Anzeige
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige