Schleife
14.05.2008 21:45:00
Rüdiger
ich kopiere eine Zeile aus einem Sheet (Name stelt in N2) in eine Zeile eines anderen Sheets. Die Zeile hat 15 Zellen. Ich brauche aber eine Schleife, die auch 15 Zeile nach unten rückt (for f = 0 to 15). Ich will also die ganze Tabelle (15 Spalten, 15 Zeilen) kopieren. Das kriege ich nicht hin. Könnte mir jemand helfen? Danke.
Sub kopieren()
i = Sheets("Hauptseite").Range("N2").Value
Dim e As Integer
'Dim f As Integer
With Sheets("Outward freight costs")
For e = 0 To 15
.Cells(1, e + 1) = Sheets(i).Cells(1, e + 1)
Next e
End With
End Sub