Daten übertragen
03.04.2003 12:40:46
René
folgender Code übertärgt Daten aus einer Datenmaske in die nächste leere Zeile eines anderen Blattes. Nun möchte ich Ihn so ändern, das alle bereits bestehenden Zeilen ab Zeile 3 um eine noch unten verschoben werden, und die Daten in die neue Zeile eingetragen werden.
Sub Uebertragen()
Dim iRow As Integer, iRowT As Integer
With Worksheets("Übersicht")
iRowT = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For iRow = 2 To 7
.Cells(iRowT, iRow - 1).Value = Cells(iRow, 3).Value
Next iRow
End With
End Sub
MfG René