Kopieren

Forumthread: Kopieren

Kopieren

23.01.2006 07:57:12

crissi

Hallo Excel Spezialisten,
wie kann man folgendes lösen
Range("AA1:AF1").Select: Selection.Copy
Range("B23").Select : ActiveSheet.Paste
Range("AH1").Select: Selection.Copy
Range("E24").Select:ActiveSheet.Paste
Range("AA2:AF2").Select: Selection.Copy
Range("B24").Select : ActiveSheet.Paste
Range("AH2").Select: Selection.Copy
Range("E26").Select:ActiveSheet.Paste
Diese Aktion soll solange durchgeführt werden bis in
Range("AA") keine Daten mehr sind
Mein Code scheitert kläglich


Sub Makro1()
Dim iRowL As Integer, iRow As Integer, I As Integer
Dim Range As Variant
iRowL = Sheets("Tabelle1").Cells(Rows.Count, 27).End(xlUp).Row
For I = 1 To iRowL
Range = Sheets("Tabelle1").Cells(23, 2)
iRow = Sheets("Tabelle1").Cells(1, 27).End(xlUp).Row + 1
Rows.Copy
Range.Rows (iRow)
Application.CutCopyMode = False
Call Makro2
Next I
End Sub


Sub Makro2()
Dim iRowL As Integer, iRow As Integer, I As Integer
Dim Range As Variant
iRowL = Sheets("Tabelle1").Cells(Rows.Count, 34).End(xlUp).Row
For I = 1 To iRowL
Range = Sheets("Tabelle1").Cells(24, 4)
iRow = Sheets("Tabelle1").Cells(1, 34).End(xlUp).Row + 1
Rows.Copy
Range.Rows (iRow)
Application.CutCopyMode = False
Next I
End Sub

Für jeder Hilfe danke!
Gruß
crissi

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopieren

23.01.2006 09:03:26

Herbert
AW: Kopieren

23.01.2006 09:23:41

Herbert
AW: Kopieren

23.01.2006 17:35:36

crissi
AW: Kopieren

23.01.2006 18:42:24

Herbert
AW: Kopieren

24.01.2006 08:56:53

crissi
AW: Kopieren

24.01.2006 19:06:43

Herbert
Danke!Herby

24.01.2006 21:38:42

crissi

AW: Kopieren

23.01.2006 09:03:26

Herbert

Hallo crissi,
probiers doch mal so:


Sub Makro1()
Dim iRowL As Integer, iRow As Integer, I As Integer
iRowL = Sheets("Tabelle1").Cells(Rows.Count, 27).End(xlUp).Row
For I = 1 To iRowL
Range("AA" & I & ":AF" & I).Copy Destination.Range("B" & I + 22)
Range("AH" & I).Copy Destination.Range("E" & I * 2 + 22)
Next I
End Sub

Viele Grüße
Herby

AW: Kopieren

23.01.2006 09:23:41

Herbert

Hallo crissi,
kleine Korrektur wg. der Angabe des Kopierziels.
Hier die beiden richtigen Zeilen für das Makro:
Worksheets("Tabelle1").Range("AA" & i & ":AF" & i).Copy Destination:=Range("B" & i + 22)
Worksheets("Tabelle1").Range("AH" & i).Copy Destination:=Range("E" & i * 2 + 22)
Viele Grüße
Herby

AW: Kopieren

23.01.2006 17:35:36

crissi

Leider funktioniert der Code nicht,
es wird nur der erste Teil der Bedingung, kopieren AA:AF ausgeführt, jedoch nicht die Bedingung, das AH nach E kopiert wird.
Gibt es vielleicht eine andere Lösung?
Danke!
Crissi

AW: Kopieren

23.01.2006 18:42:24

Herbert

Hallo crissi,
ich hatte den Code nicht getestet. Anbei ein neues Makro. Beim Testen ist mir aufgefallen, dass jede 2. Zeile in der E-Spalte durch die Werte von der AH-Spalte überschrieben werden. Ist denn das so gewollt ?


Sub kopie()
Dim iRowL As Integer, iRow As Integer, i As Integer, j As Integer
Worksheets("Tabelle1").Select
iRowL = Sheets("Tabelle1").Cells(Rows.Count, 27).End(xlUp).Row
MsgBox iRowL
For i = 1 To iRowL
With Sheets("Tabelle1")
For j = 2 To 6
.Cells(i + 22, j).Value = .Cells(i, j + 26).Value
Next j
End With
Next i
With Sheets("Tabelle1")
For i = 1 To iRowL
.Cells(22 + i * 2, 5).Value = .Cells(i, 34).Value
Next i
End With
End Sub

Viele Grüße
Herby

AW: Kopieren

24.01.2006 08:56:53

crissi

Hallo Herby
Der Wert aus Spalte E soll unter den Wert als eigene Zeile geschrieben werden.
Wenn AA:AF nach Zeile 23 kopiert wird, dann soll AG in Zeile 24 Spalte E kopiert werden.
Weiter wird von AA:AF nach Zeile 25 und AG nach Zeile 26 in Spalte E
Das heisst in den ungeraden Zeilen stehen die Werte von AA:AF und in den Geraden AG
Ich hoffe das Du mich verstehst.
Danke!
Grüsse Crissi

AW: Kopieren

24.01.2006 19:06:43

Herbert

Hallo crissi,
ich hoffe dass es diesmal funktioniert:


Sub kopie()
Dim iRowL As Integer, iRow As Integer, i As Integer, j As Integer
Worksheets("Tabelle1").Select
iRowL = Sheets("Tabelle1").Cells(Rows.Count, 27).End(xlUp).Row
For i = 1 To iRowL
With Sheets("Tabelle1")
For j = 2 To 6
.Cells(21 + i * 2, j).Value = .Cells(i, j + 26).Value
Next j
.Cells(22 + i * 2, 5).Value = .Cells(i, 34).Value
End With
Next i
End Sub

Viele Grüße
Herby

Danke!Herby

24.01.2006 21:38:42

crissi

o.T

Beliebteste Forumthreads (12 Monate)

Forumthread: Kopieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread