Plötzlich Fehlermeldung "Object doesn´t support property or method `getItem bei Nutzung des...

nicht ganz, aber fast:

Option Explicit
' --------------------------------------------- '

' Constants and Private Variables

' --------------------------------------------- '
#Const UseScriptingDictionaryIfAvailable = True
#If Mac Or Not UseScriptingDictionaryIfAvailable Then
' dict_KeyValue 0: FormattedKey, 1: OriginalKey, 2: Value

Private dict_pKeyValues As Collection

Private dict_pKeys() As Variant

Private dict_pItems() As Variant

Private dict_pObjectKeys As Collection

Private dict_pCompareMode As CompareMethod
#Else
Private dict_pDictionary As Object
#End If
' --------------------------------------------- '

' Types

' --------------------------------------------- '
Public Enum CompareMethod

BinaryCompare = VBA.vbBinaryCompare

TextCompare = VBA.vbTextCompare

DatabaseCompare = VBA.vbDatabaseCompare

End Enum
' --------------------------------------------- '

' Properties

' --------------------------------------------- '
Public Property Get CompareMode() As CompareMethod

#If Mac Or Not UseScriptingDictionaryIfAvailable Then

CompareMode = dict_pCompareMode

#Else

CompareMode = dict_pDictionary.CompareMode

#End If

End Property

Public Property Let CompareMode(Value As CompareMethod)

#If Mac Or Not UseScriptingDictionaryIfAvailable Then

If Me.Count > 0 Then

' Can't change CompareMode for Dictionary that contains data

' http://msdn.microsoft.com/en-us/library/office/gg278481(v=office.15).aspx

Err.Raise 5 ' Invalid procedure call or argument

End If
dict_pCompareMode = Value

#Else

dict_pDictionary.CompareMode = Value

#End If

End Property
Public Property Get Count() As Long

#If Mac Or Not UseScriptingDictionaryIfAvailable Then

Count = dict_pKeyValues.Count

#Else

Count = dict_pDictionary.Count

#End If

End Property

das mit dem Offset muss ich erst noch verstehen was das macht es sei denn das heisst nur gehe nach dem ersten Durchgang 1 Spalte weiter und so weiter und so weiter.



Was das Deklarieren angeht, hier bekomme ich nun folgende Fehlermeldung:



Object doesnt support this property or method



Workbooks("to-do.xlsm").Ship.Range("D" & s).PasteSpecial Paste:=xlPasteValues



Ich habe dann das Workbook folgendermassen deklariert



Dim ToDo As Workbook

Set ToDo = Workbooks("To-do.xlsm")

und bekomme nun folgende Meldung in dem folgenden Befehl:



ToDo.Ship.Range("D" & s).PasteSpecial Paste:=xlPasteValues



Object variable or with block variable not set



Hier ist was ich alles deklariert habe:



Dim ShipMonth As String

Dim s As String

Dim WO As Worksheet

Set WO = Worksheets("Weekly Overview")

Dim Ship As Worksheet

Set Ship = Worksheets("Ship Report")

Dim CACDub As String

Dim CACHBorg As String

Dim CACC As String

Dim Week As String

Dim CANC, CANTC, CABC, CABTC, TWC As String

Dim ToDo As Workbook

Set ToDo = Workbooks("To-do.xlsm")

Dim WBDub As Workbook

Dim WBHBorg As Workbook

ShipMonth = Application.InputBox(prompt:="Please enter first two digits of the current Ship Report used:", Type:=1)

Set WBHBorg = Workbooks("06_2013_swe.xls")

Set WBDub = Workbooks("06_2013_combined.xls")

CACDub = "'Ship Report'!$E:$E"

CACHBorg = "'Ship Report'!$K:$K"

CACC = "'Ship Report'!$Q:$Q"

Week = "'Ship Report'!$C:$C"

CANC = "'Ship Report'!$R:$R"

CANTC = "'Ship Report'!$S:$S"

CABC = "'Ship Report'!$T:$T"

CABTC = "'Ship Report'!$U:$U"

TWC = "'Ship Report'!$V:$V"

s = Application.InputBox(prompt:="Please enter row number:", Type:=1)



irgendeine Idee?

Hallo Oliver,

mal sehen, wie wir dir helfen können.

Damit wir dich besser unterstützen können, benötigen wir folgende Informationen:

1.Welchen Provider verwendest du - Exchange Server?

2.Wann ist es zuerst passiert - nach einem Update?

3.Schau mal bitte die folgende Seite an: Outlook
oderOWA. Hilft dir die Problemlösung?

Wir freuen uns auf deine Rückmeldung.

LG

AEG

Option Explicit

#If Win64 Then

Private Declare PtrSafe Sub keybd_event Lib "user32" ( _

ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _

ByVal dwExtraInfo As LongPtr)

Private Declare PtrSafe Function GetKeyboardState Lib "user32" ( _

pbKeyState As Byte) As Long

#Else

Private Declare Sub keybd_event Lib "user32" ( _

ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

#End If

Private Const VK_NUMLOCK = &H90

Private Const VK_SCROLL = &H91

Private Const VK_CAPITAL = &H14

Private Const KEYEVENTF_EXTENDEDKEY = &H1

Private Const KEYEVENTF_KEYUP = &H2

Property Get NumLock() As Boolean

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

NumLock = Keys(VK_NUMLOCK)

End Property

Property Let NumLock(Value As Boolean)

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

If Value <> CBool(Keys(VK_NUMLOCK)) Then

keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

End If

End Property

Property Get CapsLock() As Boolean

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

CapsLock = Keys(VK_CAPITAL)

End Property

Property Let CapsLock(Value As Boolean)

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

If Value <> CBool(Keys(VK_CAPITAL)) Then

keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

End If

End Property

Property Get ScrollLock() As Boolean

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

ScrollLock = Keys(VK_SCROLL)

End Property

Property Let ScrollLock(Value As Boolean)

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

If Value <> CBool(Keys(VK_SCROLL)) Then

keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

End If

End Property

Hi Tobias,



eventuell ist ja

dieser Artikel eine Hilfe...



http://office.microsoft.com/en-us/o...sn-t-leave-my-outbox-HA001187988.aspx?redir=0