Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife

Schleife
14.05.2008 21:45:00
Rüdiger
Hallo, ich vezweifle an folgendem Problem:
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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife
14.05.2008 23:08:37
Mustafa
Hallo Rüdiger,
muss das ganze in einer schleife passieren oder kann das ganze auch in einem ruck geschrieben werden ?
Wenn ja dann kannst du das ganze vielleicht so lösen :

Sub kopieren()
Dim xArr as Variant
Dim iSheet as Worksheets
iSheet = Sheets("Hauptseite").Range("N2").Value
xArr = Sheets("Outward freight costs").Range("A1:O15")
Sheets(iSheet).Range("A1:O15") = xArr
End Sub


Ungetestet!
Rückmeldung obs Hilft wäre nett.
Viele Grüße aus der Domstadt Köln.

AW: Schleife
14.05.2008 23:10:00
Gerd
Hallo Rüdiger,
meinst Du so ?

Sub kopieren()
With Sheets(Sheets("Hauptseite").Range("N2").Value)
Sheets("Outward freight costs").Range(Sheets("Outward freight costs"). _
Cells(1, 1), Sheets("Outward freight costs").Cells(15, 15)).Value = _
.Range(.Cells(1, 1), .Cells(15, 15)).Value
End With
End Sub


Gruß Gerd

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige