Hilfe für richtige Syntax
27.05.2005 12:30:43
Torsten
ich brauche Eure Hilfe, um folgende Zeilen in der richtigen Syntax schreiben zu können:
With ActiveSheet
For i = 5 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If .Cells(i, 8) = IsNumeric Then
Next i
End If
If .Cells(i, 8) IsNumeric And .Cells(i, 9) IsNumeric Then
Range(i & 9 : i & 38).Cut Destination:=Range("i & 7 : i & 36)
'Range("I5:AL5").Cut Destination:=Range("G3:AJ3")
Else
End If
If .Cells(i, 8) IsNumeric And .Cells(i, 9) = IsNumeric Then
Range(i & 8 : i & 38).Cut Destination:=Range("i & 7 : i & 37)
'Range("H5:AL5").Cut Destination:=Range("G3:AJ3")
Else
End If
Next i
End With
Genau geht es mir um die ".Cut Destination"Zeile: Dort soll der Range dem darunter angezeigten, auskommentierten Range entsprechen. Allerdings paßt Excel meine Syntax noch nicht.
Vielen Dank für Eure im Hilfe im voraus.
Gruß
Torsten