wo ist hier der fehler?

01/09/2008 - 10:44 von Johnny Hartmannsgruber | Report spam
folgenden code habe ich, der bisher auch immer geklappt hat...
seit ein paar Tagen nicht mehr - vielleicht irgendein MS-Patch der probleme
macht?
Bei "lngZeile" hàngt er mit dem fehler: match-eigenschaft des
worksheetfunktion-objekts kann nicht zugeordnet werden.



Private Sub Worksheet_Activate()
Dim lngZeile As Long
Dim strCom As String
Dim rngZelle As Range
Dim LRow As Long

LRow = Cells(Rows.Count, 2).End(xlUp).Row

With Sheets("quelle")
For Each rngZelle In Range("F4:F" & LRow)
If rngZelle.Offset(0, -4) > 0 And
WorksheetFunction.CountIf(.Range("B:B"), _
rngZelle.Offset(0, -4)) >= 1 Then
lngZeile = WorksheetFunction.Match(rngZelle.Offset(0, -4), _
.Range("B1:B300"), 0)

If Not .Range("F" & lngZeile).Comment Is Nothing Then
strCom = .Range("F" & lngZeile).Comment.Text
End If

If Not rngZelle.Comment Is Nothing _
And .Range("F" & lngZeile).Comment Is Nothing Then
rngZelle.Comment.Delete
ElseIf rngZelle.Comment Is Nothing And Not _
.Range("F" & lngZeile).Comment Is Nothing Then
rngZelle.AddComment strCom
ElseIf Not rngZelle.Comment Is Nothing And _
Not .Range("F" & lngZeile).Comment Is Nothing Then
rngZelle.Comment.Delete
rngZelle.AddComment strCom
End If

End If
Next
End With
End Sub
 

Lesen sie die antworten

#1 Robert Gelbmann
01/09/2008 - 12:41 | Warnen spam
Hallo Johnny!

"Johnny Hartmannsgruber"
schrieb ...
folgenden code habe ich, der bisher auch immer geklappt hat...
seit ein paar Tagen nicht mehr - vielleicht irgendein MS-Patch der
probleme
macht?
Bei "lngZeile" hàngt er mit dem fehler: match-eigenschaft des
worksheetfunktion-objekts kann nicht zugeordnet werden.
[...]



Nein, sieht eher so aus, als ob der mit Hilfe der VERGLEICH-Funktion
(englisch: MATCH) gesuchte Wert schlicht nicht (mehr) gefunden wird.
Evtl. haben sich die Daten geàndert, jemand hat Zellen
eingefügt/gelöscht, ...!

Excel selbst würde hier #NV! liefern.
VBA bringt dann eben die von dir erwàhnte Fehlermeldung.

In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen


Servus aus Wien,
-Robert Gelbmann-

Lemony says: "The world is quiet here."

Ähnliche fragen