Laufzeitfehler Objekt Range
21.11.2005 13:26:24
GeorgK
kann mir bitte jemand sagen, was ich an folgendem Makro ändern muß, damit der Laufzeitfehler "Die Methode Default für das Objekt Range ist fehlgeschlagen" nicht mehr engezeigt wird. Das Makro ist hier aus dem Forum - vielen Dank -. Da meine Kenntnisse sich aber leider nur auf "Recorder" beschränken, hab ich keine Ahnung was zu ändern ist. Die gelbe Fehlermarkierung erfolgt bei: Cells (L, 256) = Cells......
Sub doppelte()
Application.ScreenUpdating = False
Sheets("Aktuell").Select
Dim letzte As Long
Dim zelle As Range
Dim L As Long
letzte = WorksheetFunction.Max(Range("D5000").End(xlUp).Row, Range("E5000").End(xlUp).Row)
For L = 2 To letzte 'hilfsspalte einrichten
Cells(L, 256) = Cells(L, 4) & "Dummy" & Cells(L, 5)
Next
For Each zelle In Range("D2:D" & letzte)
If WorksheetFunction.CountIf(Range("IV1:IV" & letzte), zelle & "Dummy" & zelle.Offset(0, 1)) > 1 Then
With zelle.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Bold = True
End With
With zelle.Offset(0, 1).Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Bold = True
End With
End If
Next
Range("IV1:IV" & letzte).Clear 'hilfsspalte löschen
End Sub
Vielen Dank und Gruß
Georg