Ich habe schon wieder ein Problem und weiss einfach nicht, woher es kommt!
Ich habe verschiedene Excelmakros in einem File. Wenn ich sie einfach laufen lasse, funktionieren sie einwandfrei. Jetzt will ich die Makros aber aus dem Word starten und da funktionieren alle ausser zwei! Und ich weiss einfach nicht wieso...
Gut, da der Code extrem lang ist, nur ein Ausschnitt:
Dim i As Range 'hab ich ausprobiert, ging aber trotzdem nicht
Dim j
Dim k
Dim l
Dim m
myYearShort = Right(myYear, 2)
myDate = myMonthAsNumber & "-" & myYearShort
i = Workbooks(FNData).Worksheets(1).Cells.Find(myDate).Column
j = Workbooks(FNData).Worksheets(1).Cells.Find("Reaction Time for Severity 1").Row
k = Workbooks(FNData).Worksheets(1).Cells.Find("Reaction Time for Severity 2").Row
l = Workbooks(FNData).Worksheets(1).Cells.Find("Reaction Time for Severity 3").Row
m = Workbooks(FNData).Worksheets(1).Cells.Find("Reaction Time for Severity 4").Row
Set myCopy1 = Workbooks(FNData).Worksheets(1).Cells(j, i)
Set myCopy2 = Workbooks(FNData).Worksheets(1).Cells(k, i)
Set myCopy3 = Workbooks(FNData).Worksheets(1).Cells(l, i)
Set myCopy4 = Workbooks(FNData).Worksheets(1).Cells(m, i)
Cells(2, 3).Value = myCopy1
Cells(3, 3).Value = myCopy2
Cells(4, 3).Value = myCopy3
Cells(5, 3).Value = myCopy4
Okay, meine Makro öffnet ein File (FNData) und kopiert daraus gewisse Zellen (myCopy). Vorher werden die Zellen mit Find gefunden.Wenn ich die Makro laufen lasse, dann kommt immer in der Zeile
i = Workbooks(FNData).Worksheets(1).Cells.Find(myDate).Column
eine Fehlermeldung! Wenn ich die Zeile mit ' grün mache, geht die Makro normal weiter...
Object variable or With block not set
Ich weiss eben einfach nicht, was das bedeuten soll? Hab ich "i" falsch definiert? Oder was stimmt nicht?
Wenn nötig kann ich auch noch mehr code posten! Wäre froh um Unterstützung!
Liebe Grüsse
Ximena