Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopiermakro

Forumthread: Kopiermakro

Kopiermakro
14.06.2005 15:44:28
Borchmann
Moin,
ich hab ein Makro geschrieben, dass ein vorher getätigte Auswahl kopieren soll und eine Zeile tiefer wieder einfügen:
Selection.Copy
Cells(ActiveCell.Row + 1, ActiveCell.Column).Value = ActiveCell
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Problem ist aber noch makiert man mehr als eine Zeile, kopiert er trotzdem nur eine Zeile...! Kann mir da noch jemand helfen.

Gruß Thorsten
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopiermakro
14.06.2005 16:50:39
IngGi
Hallo Thorsten,
sowas vielleicht?

Sub x()
Dim i As Integer
If Selection.Row + Selection.Rows.Count * 2 <= 65536 Then
Selection.Copy Destination:=Cells(Selection.Row + Selection.Rows.Count, Selection.Column)
Else
i = MsgBox("Kopieren fehlgeschlagen: Ende des Tabellenblattes erreicht !!!", vbCritical)
End If
End Sub

Gruß Ingolf
Anzeige
AW: Kopiermakro
14.06.2005 17:00:05
Thorsten
Super Ingo,
kann ich denn jetzt noch irgendwie einbauen, dass nur die Werte kopiert werden und nicht die Formatierung?
Dankeschön
AW: Kopiermakro
14.06.2005 17:54:23
Hajo_Zi
Hallo torsten,
schaue mal in die Hilfe unter .PasteSpecial
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
;

Beliebteste Forumthreads (12 Monate)

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