Zugriff verweigert
06.12.2019 12:11:24
Thomas
ich versuche gerade Daten von einer Listbox in eine andere zu kopieren.
anbei mein Versuch:
Option Explicit
Private WithEvents mobjListBox As MSForms.ListBox
Private WithEvents mobjtextb As MSForms.TextBox
Private mobjUserform As Object
Friend Property Set prpSetListbox(objListBox As MSForms.ListBox)
Set mobjListBox = objListBox
End Property
Friend Property Set prpSetUserform(objUserform As Object)
Set mobjUserform = objUserform
'Set TextBox = objUserform
End Property
Private Sub mobjListBox_Click()
' With mobjListBox
' mobjUserform.Label1.Caption = .Text
' mobjUserform.Label2.Caption = .List(.ListIndex, 1)
' 'mobjListBox .TextBox1 = .List(.ListIndex, 1)
' End With
' mobjUserform.Show
End Sub
Private Sub mobjListBox_MouseMove(ByVal Button As _
Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Dim MyDataObject As DataObject
Dim i As Long
Dim Effect As Integer
With mobjListBox
If Button = 1 Then
For i = 0 To .ListCount - 1
If .Selected(i) Then
Set MyDataObject = New DataObject
MyDataObject.SetText .List(i)
Effect = MyDataObject.StartDrag
End If
Next
End If
End With
End Sub
Private Sub mobjListBox_BeforeDragOver(ByVal Cancel As _
MSForms.ReturnBoolean, ByVal Data As _
MSForms.DataObject, ByVal X As Single, _
ByVal Y As Single, ByVal DragState As Long, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Cancel = True
Effect = 1
End Sub
Private Sub mobjListBox_BeforeDropOrPaste(ByVal _
Cancel As MSForms.ReturnBoolean, _
ByVal Action As Long, ByVal Data As _
MSForms.DataObject, ByVal X As Single, _
ByVal Y As Single, ByVal Effect As _
MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
mobjListBox.AddItem Data.GetText
End Sub
Leider erhalte ich in dieser Zeile die Fehlermeldung:"Zugriff verweigert
https://www.herber.de/bbs/user/133643.xlsb
Weiß jemand wie man dieses Problem lösen könnte?
Habt schon mal recht vielen dank für euer Interesse.
mfg thomas