habe folgenden code:
' Dim strText As String
' Dim strTextAlt As String
' Dim i As Integer
' strText = Trim(txtNR.Text)
' If strText = "" Then
' MsgBox ("Bitte Text in Textbox eingeben!")
' txtNR.SetFocus
' Exit Sub
' End If
'
' With ListBox1
' If .ListIndex > -1 Then
' strTextAlt = .List(.ListIndex)
' .List(.ListIndex) = strText 'hier kommt Fehlermeldung
' MsgBox ("Der ListBox-Eintrag '" & strTextAlt & _
' "' wurde mit '" & strText & "' ersetzt!")
' Else
' MsgBox ("In der ListBox wurde kein Eintrag markiert !")
' End If
' End With
' txtNR.SetFocus
mit diesem Code möchte ich den Ausgewählten eintrag in der Listbox ändern
nur leider kommt immer eine fehlermeldung, ab der gekennzeichneten Zeile
ich hoffe mir kann jemand weiter Helfen