Hilfe für richtige Syntax

Hallo beisammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Torsten,
du bringst anscheinend die Argumente von Cells und Range ein wenig durcheinander.
Ich habe wegen der besseren Übersicht deine Variable "i" durch "Zeile" ersetzt, damit die Prozedur etwas verständlicher wird.
Außerdem habe ich den Code noch etwas geändert, mußt du natürlich so nicht übernehmen.


Sub Torsten()
Dim Zeile As Integer
With ActiveSheet
For Zeile = 5 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If .Cells(Zeile, 8) <> IsNumeric Then
If .Cells(Zeile, 9) <> IsNumeric Then
'Version 1
Range(Cells(Zeile, 9), Cells(Zeile, 38)).Cut Destination:=Range(Cells(Zeile, 7), Cells(Zeile, 36))
'Version 2
'Range("I" & Zeile & ":AL" & Zeile).Cut Destination:=Range("G" & Zeile & ":AJ" & Zeile)
'Range("I5:AL5").Cut Destination:=Range("G3:AJ3")
Else
'Version 1
Range(Cells(Zeile, 8), Cells(Zeile, 38)).Cut Destination:=Range(Cells(Zeile, 7), Cells(Zeile, 36))
'Version 2
'Range("H" & Zeile & ":AL" & Zeile).Cut Destination:=Range("G" & Zeile & ":AJ" & Zeile)
'Range("H5:AL5").Cut Destination:=Range("G3:AJ3")
End If
End If
Next i
End With
End Sub

Gruß Klaus

Sub Torsten() Dim Zeile As Integer With ActiveSheet For Zeile = 5 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row If Not (IsNumeric(.Cells(Zeile, 8))) Then If Not IsNumeric(.Cells(Zeile, 9)) Then 'Version 1 Range(Cells(Zeile, 9), Cells(Zeile, 38)).Cut Destination:=Range(Cells(Zeile, 7), Cells(Zeile, 36)) 'Version 2 'Range("I" & Zeile & ":AL" & Zeile).Cut Destination:=Range("G" & Zeile & ":AJ" & Zeile) 'Range("I5:AL5").Cut Destination:=Range("G3:AJ3") Else 'Version 1 Range(Cells(Zeile, 8), Cells(Zeile, 38)).Cut Destination:=Range(Cells(Zeile, 7), Cells(Zeile, 36)) 'Version 2 'Range("H" & Zeile & ":AL" & Zeile).Cut Destination:=Range("G" & Zeile & ":AJ" & Zeile) 'Range("H5:AL5").Cut Destination:=Range("G3:AJ3") End If End If Next Zeile End With End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread