AutoFill
23.05.2006 15:58:11
stefan
ich habe da ein kleines Problem. Ich lasse in der Spalte C nach dem Wort XYZ suchen. Wenn das Wort gefunden wurde, wird die Spalte D selektiert und soll in die Spalte E kopiert werden. Hier liegt mein Problem. Das Selection.Autofill will nicht laufen. Kann mir jemand helfen?
Vielen Dank im voraus
Sub AutoFill()
Dim MyCell As Range
For Each MyCell In Range("C1:C9450").Cells
If (VBA.InStr(1, UCase(MyCell.Value), "XYZ") > 0) Then
MyCell.Select
MyCell.Offset(8, 1).Select
Selection.AutoFill Destination:=Range("Daktuell:Edaneben"), Type:=xlFillDefault
End If
Next MyCell
End Sub
Anzeige