Code optimieren beim Spalten kopieren
11.06.2009 22:42:07
edie
habe mir ein Makro zusammen geschustert, ein Excel-Profi wird schon mal lachen, aber es
funktioniert. Dabei werden Spalten (beinhalten Lücken) in Abhängigkeit der Zeile 1 kopiert.
Und nun, würde ich gerne das Makro optimieren, so dass die Spalten nacheinander im Blatt
"Target" kopiert werden. Beispiel, wenn die Zelle "C1" leer ist dann wird die Spalte C nicht
kopiert dabei soll die nächste Spalte D in die Spalte C kopiert werden, d.h. keine leere Spalten
im Blatt "Target".
Sub Test()
Dim iRow As Integer, iRowL As Integer, iRowT As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Not IsEmpty(Cells(1, 1)) Then
With Worksheets("Target")
.Range(.Cells(iRow, 1), .Cells(iRow, 1)).Value = _
Range(Cells(iRow, 1), Cells(iRow, 1)).Value
End With
End If
If Not IsEmpty(Cells(1, 2)) Then
With Worksheets("Target")
.Range(.Cells(iRow, 2), .Cells(iRow, 2)).Value = _
Range(Cells(iRow, 2), Cells(iRow, 2)).Value
End With
End If
If Not IsEmpty(Cells(1, 3)) Then
With Worksheets("Target")
.Range(.Cells(iRow, 3), .Cells(iRow, 3)).Value = _
Range(Cells(iRow, 3), Cells(iRow, 3)).Value
End With
End If
If Not IsEmpty(Cells(1, 4)) Then
With Worksheets("Target")
.Range(.Cells(iRow, 4), .Cells(iRow, 4)).Value = _
Range(Cells(iRow, 4), Cells(iRow, 4)).Value
End With
End If
Next iRow
End Sub
Kann mir jemand dabei helfen? Was sollte verändert werden?
Vorab vielen Dank.
Grüße
Anzeige