MsgBox
17.10.2018 09:34:48
Peter
ich habe ein kleines Problem mit einer MsgBox Abfrage.
Am Ende der Listbox1 habe ich folgenden Code eingebaut:
If TextBox1 > "" And ListBox1.ListIndex > -1 Then
If MsgBox("Diesen Eintrag ändern oder löschen? ändern=ja - löschen=nein", vbYesNo) = vbYes Then
CommandButton1.Enabled = True
CommandButton1.BackColor = vbGreen
CommandButton1.SetFocus
Else
CommandButton4.Enabled = True
CommandButton4.BackColor = vbGreen
CommandButton4.SetFocus
End If
End If
Dieser funktioniert einwandfrei.
Ich hätte aber gerne, dass das Abbrechen mit eingebaut wird.
Dies geht mit:
MsgBox("Diesen Eintrag ändern oder löschen? ändern=ja - löschen=nein", vbYesNoCancel)
Was ich jedoch nicht zustande bringe, wenn Cancel= Abbrechen ausgewählt wird, möchte ich, dass der Listboxeintrag aufgehoben wird.
Könnt ihr mir bitte hierbei helfen.
Gruss
Peter