Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige