Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
Danke!Herby
24.01.2006 21:38:42
crissi
o.T

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige