Laufzeitfehler 381
11.04.2007 20:18:07
Wolfgang
Hallo,
per rechtem Mausklick wird ein UF in bestimmten Tabellenblättern geöffnet; Klicke ich in Spalte A bis C, funktioniert das auch wunderbar, klicke ich in Spalte D und folgende, erscheint Fehlermeldung Laufzeitfehler 381, Could not get the List property. Invalid property array index.- Wie muß ich diese Fehlermeldung deuten, worin liegt die Ursache? Die benutzten Codes hierfür füge ich anbei; Danke allen schon jetzt für die Rückantworten.
Gruß - Wolfgang
'Tablellenblattcode für rechten Mausklick
Private Sub Worksheet_BeforeRightClick( _
ByVal Target As Excel.Range, _
Cancel As Boolean)
Cancel = True
frmKontextc.Show
End Sub
Sub UserForm_Initialize()Dim lngLz As Long, lngCt As Long, lngZeile As Long, intSpalte As Integer
Dim lngItemRow As Long
Dim vntArray() As Variant
With ThisWorkbook.Worksheets("Gesamt")
lngLz = .Range("A65536").End(xlUp).Row
lngCt = Application.WorksheetFunction.CountIf(.Range("J2:J" & lngLz), "221c")
If lngCt = 0 Then lngCt = lngCt + 1
ReDim vntArray(lngCt - 1, 16)
.Columns("A:Q").AutoFilter Field:=10, Criteria1:="221c"
For lngZeile = 2 To lngLz
If .Rows(lngZeile).Hidden = False Then
For intSpalte = 1 To 17
vntArray(lngItemRow, intSpalte - 1) = .Cells(lngZeile, intSpalte)
Next
lngItemRow = lngItemRow + 1
End If
Next
.AutoFilterMode = False
End With
'Einfügecode (hier wird auch die Fehlermeldung bei Debuggen angezeigt, obschon UF noch gar nicht
'geöffnet und auch noch kein Mouseup erfolgte
Private Sub lstKontext_MouseUp( _
ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim i As Integer
' Werte aus selektierter Listboxzeile in aktive Zelle u. rechts davon eintragen
For i = 0 To frmKontextc.lstKontext.ColumnCount - 1
ActiveCell.Offset(0, i).Value = _
frmKontextc.lstKontext.List(frmKontextc.lstKontext.ListIndex, i)
Next
' Dialog beenden
Unload Me
End Sub