Union
04.01.2008 05:57:51
Mathias
bei folgendem Code meldet der Debugger, dass die "Methode Range für das Worksheet-Object fehlgeschlagen" ist (Laufzeitfehler 1004). Ich find einfach den Fehler nicht:
Public Sub Test()
Dim i As Integer
Dim rng As Range
Set rng = Nothing
For i = 1 To 50
If rng Is Nothing Then
Set rng = (Tabelle1.Range(Cells(2, i + 4), Cells(100, i + 4))) ' hier kommt der _
Laufzeitfehler 1004
Else
Set rng = Union(rng, (Tabelle1.Range(Cells(2, i + 4), Cells(100, i + 4))))
End If
Next i
If Not rng Is Nothing Then
rng.ClearContents
rng.ClearComments
End If
End Sub
Hat jemand eine Idee was da falsch ist?
Viele Grüße
Mathias
Anzeige