Re: iserror nicht gleich selection.special?
18.06.2003 16:20:35
Olli
Hallo Sergiesam!Ja super!! Danke, das war´s. Das hab ich jetzt in mein Makro von vorhin eingebaut und das funktioniert auch. Wenn jetzt aber keine Zellen gefunden werden, dann bricht er ab. Wenn welche gefunden werden, funzt es super.
Hier mein Code: Das zwischen den gestrichelten Linien ist mein (schlechter) Versuch, eine wenn-dann reinzubekommen, wenn fehler, dann weg damit, wenn kein fehler, dann einfach weiter. Wie setzt man die Sprungmarke z.B. wie beim Errorhandler?
Sub Kapitalendwerte()
Application.ScreenUpdating = False
Worksheets("Report").Range("C17:C6000").ClearContents
For i = 17 To 17 + [E3].Value + 1
Range("B" & i).Select
Selection.Copy
Sheets("Investitionen").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Report").Select
Range("C" & i).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next
---------
If Selection.SpecialCells(xlCellTypeConstants, 16) > 0 Then
Selection.SpecialCells(xlCellTypeConstants, 16).Cells.Clear
Else (UND HIER) GIBT ES CONTINUE SUB oder so etwas??
-------
Range("C17:C6000").NumberFormat = "#,##0.00"
Range("C17:C6000").Interior.ColorIndex = 2
Application.ScreenUpdating = True
Cells(5, 1).Activate
End Sub
Kannst Du mir einen Tip geben?
Viele Gruesse
Olli