Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
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
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum kopieren

Makro zum kopieren
30.05.2005 20:52:58
Milan
Hallo Leute,
ich benötige ein Makro für folgende Aufgabenstellung:
1. Ich trage Zahlen untereinander ein in der SpalteA.
(von A1 bis max A30)
Makro:
2. Kopiere von A1 bis zur der letzten Zelle in der SpalteA
in der sich eine Zahl befindet.
3. Füge die kopierte Zellen sofort nach der Letzten Zahl ein, immerwieder bis zur A5000 .
Danke im voraus für Eure Mühe
Gruß
Milan

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum kopieren
30.05.2005 21:15:42
Beni
Hallo Milan,
entferne die , denn ohen die ~f~ kann ich die Code nicht reinstellen.
Gruss Beni
lz = Cells(65536, 1).End(xlUp).Row
For i = 1 To 5000
z = Cells(65536, 1).End(xlUp).Row + 1
~f~If z &gt 5000 Then Exit For
Range(Cells(1, 1), Cells(lz, 1)).Copy Cells(z, 1)
Next i
AW: Makro zum kopieren
30.05.2005 21:26:08
Ramses
Hallo
einfach mal noch einen Vorschlag zum beschleunigen.
Nimm doch Step,... da musst du nicht in jede Zelle

Sub CopyFast()
Dim i As Integer
Dim lCopy As Integer
lCopy = Range("a65536").End(xlUp).Row
Debug.Print lCopy
For i = lCopy + 1 To 5000 Step lCopy
Range(Cells(1, 1), Cells(lCopy, 1)).Copy Cells(i, 1)
Next i
Range(Cells(5001, 1), Cells(5001 + lCopy, 1)).ClearContents
End Sub

Gruss Rainer
Anzeige
autofill
30.05.2005 21:24:07
ransi
hallo milan
funktioniert das so?
Public 

Sub test()
Dim was As Range
Dim wohin As Range
Set was = Range("A1:A" & Range("a30").End(xlUp).Row - 1)
Set wohin = Range("A1:A5000")
was.AutoFill wohin, xlFillCopy
End Sub

ransi
AW: autofill
30.05.2005 21:29:54
Ramses
Hallo Ransi
der letzte kopierte Wert wird überschrieben, musst du noch korrigieren :-)
Gruss Rainer
uups..
30.05.2005 21:34:16
ransi
hallo rainer
danke für den hinweis.
Auch grad gemerkt.
Option Explicit
Public 

Sub test()
Dim was As Range
Dim wohin As Range
Set was = Range("A1:A" & Range("a30").End(xlUp).Row)
Set wohin = Range("A1:A5000")
was.AutoFill wohin, xlFillCopy
End Sub

ransi
Anzeige
Ihr seit SUPER, es funktionieren alle
30.05.2005 21:35:14
Milan
Danke an alle!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige