Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aktive Zeile kopieren und wieder einfügen

Aktive Zeile kopieren und wieder einfügen
12.09.2005 09:54:37
Sören
Hallo und Guten Tag,
ich brauche für meine Tabelle eine Skript, das folgendes bewirkt:
An der Stelle wo der Curser steht soll die ganze Zeile kopiert werden
und eine Zeile tiefer wieder eingefügt werden. Da das Skript über einen Button gesteuert werden soll müsste sowas wie Aktive Zelle... drin vorkommen. Mit einer Makro-Aufzeichnung komme ich da nicht weiter.
Leider hab ich keine Ahnung wie man es anders macht.
Viele Grüße
Sören

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zeile kopieren und wieder einfügen
12.09.2005 10:07:08
denis
schau mal in meinem code nach (habe ein Problem gepostet "datum wird nicht mitkopiert"
da habe ich ein ähnliches scrips - schau im Code nach unter "Meetingminutes auf LOP kopieren"
Das sollte das sein was du suchst
AW: Aktive Zeile kopieren und wieder einfügen
12.09.2005 10:08:15
otto
Hi,
versuchs mal damit:

Sub kopieren()
Dim az
az=ActiveCell.Row
az.Copy
Rows az+1
az=ActiveCell.Row
ActiveSheet.Paste
End Sub

Gruß otto
AW: Aktive Zeile kopieren und wieder einfügen
12.09.2005 10:11:39
frank
hallo sören,
so geht es auch:

Sub Makro1()
ActiveCell.Select
Selection.EntireRow.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.EntireRow.PasteSpecial
End Sub

gruß frank
Anzeige
Aktive Zeile kopieren und wieder einfügen
12.09.2005 12:07:01
Sören
Hallo Frank und Otto,
danke für eure Hilfe, ich habe es ausprobiert und bei Otto seinem Skript bleibt er hängen bei: Rows az + 1 Woran liegt das?
Wenn ich Zeilen markiere bei denen noch ausgefüllte Zeilen darunter sind, werden die überschrieben. Kann mann die automatisch eins nach unten verschieben lassen?
Viele Grüße
Sören

79 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige