Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
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
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile kopieren und eine Zeile drunter einfügen

Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:01:00
eliewsam
Hallo Zusammen,
ich würde gerne, ausgehend von der aktuellen Cursor-Position, die gesamte Zeile kopieren und eine Zeile drunter wieder einfügen. Danach sollte der Inhalt der ersten Zelle (der neu eingefügten Zeile) gelöscht werden. Wenn das Makro beendet, steht der Cursur dann in der Zelle, deren Inhalt gelöscht wurde.
Ich würde mich sehr freuen, wenn mir jemand weiterhelfen könnte. Vielen Dank!
Gruß Elie

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:11:57
Josef
Hallo Elie,
probier mal.
Sub kopiereZeile()
    With ActiveCell
        Rows(.Row + 1).Insert
        .EntireRow.Copy Rows(.Row + 1)
        Cells(.Row + 1, 1).ClearContents
        Cells(.Row + 1, 1).Select
    End With
End Sub
Gruß Sepp

Anzeige
AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:14:59
Worti
Hallo Elie,
so:
Sub Kopieren()
    Rows(ActiveCell.Row + 1).Insert 'Nur, wenn du eine neue Zeile einfügen willst, sonst weg lassen
    ActiveCell.EntireRow.Copy Destination:=Range("A" & ActiveCell.Row + 1)
    Range("A" & ActiveCell.Row + 1).ClearContents 'oder Clear, wenn auch Formate etc gelöscht werden sollen
    Range("A" & ActiveCell.Row + 1).Activate
End Sub
Gruß Worti
AW: Zeile kopieren und eine Zeile drunter einfügen
D.Saster

Hallo,

Sub ZeileKopieren()
With ActiveCell
.EntireRow.Copy
.Offset(1, 0).EntireRow.Insert
Cells(.Offset(1).Row, 1).ClearContents
Cells(.Offset(1).Row, 1).Select
End With
End Sub


Gruß
Dierk

AW: Zeile kopieren und eine Zeile drunter einfügen
eliewsam

Ihr seid super! Vielen Dank für die Unterstützung!
Anzeige
AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:18:00
D.Saster
Hallo,

Sub ZeileKopieren()
With ActiveCell
.EntireRow.Copy
.Offset(1, 0).EntireRow.Insert
Cells(.Offset(1).Row, 1).ClearContents
Cells(.Offset(1).Row, 1).Select
End With
End Sub


Gruß
Dierk

AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:51:22
eliewsam
Ihr seid super! Vielen Dank für die Unterstützung!

140 Forumthreads zu ähnlichen Themen

VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
Anzeige
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige
VBA: Vergleich und Texteil suchen - Zeile kopieren
Joe

Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe von euch.
Folgende Ausgangssituation:
Es gibt eine Adressliste. In dieser Adressliste stehen in Spalte H Nummern (es können pro Adresse mehrere Nummer in einer Zelle vorkommen - ich weiß, dass ist nicht optimal, es geht leide...
08.04.2010 18:18:00
Thread-ID: 1150703
5 Beiträge
Zeilenwerte auslesen und ganze Zeilen kopieren
Kristopher

Hallo an alle,
leider bin ich ein absoluter VBA-Neuling und relativ schnell mit einem – für mich – großen „Programm“ betraut worden.
Es gibt zwei Dokumente, im ersten Dokument (A) soll jeweils der Wert der Spalte C geprüft werden. Wenn der Wert = 1 ist, dann soll er in der gleichen Zeil...
21.04.2010 12:11:44
Thread-ID: 1152936
3 Beiträge
VBA Spalte kopieren und mehrfach (X-mal) einfügen
Sebastian

Hallo,
ich habe folgendes Problem:
Ich habe ein Excel Tabelle und möchte dort die komplette Spalte M kopieren und direkt rechts daneben mehrmals wieder einfügen (wenn möglich nicht nur die Inhalte sondern inkl. aller Formatierungen).
Die Menge, wie oft diese Spalte wieder eingefügt...
21.07.2010 15:44:35
Thread-ID: 1168151
6 Beiträge
Makro/VBA Sheets kopieren und einfügen
Thomas

Hallo liebe EXCEL-Spezialisten,
ich würde gerne wissen, ob ihr mir bei folgendem Anliegen weiterhelfen könntet:
Ich habe eine EXCEL-Datei erstellt, in der Schaltflächen hinterlegt sind, die spezielle Aufgaben erfüllen, u.a. Dateien öffnen, dann fragen, wo man sie speichern möchte, um so...
02.02.2011 14:19:48
Thread-ID: 1198561
3 Beiträge
VBA Zeilenhöhe kopieren
jens

Hallo Excel-Profis,
ich hatte heute ein Problem beim kopieren von Daten:
Die Zeilenhöhe wurde nicht mitkopiert und schon paßte nichts mehr.
Habe dann rausgefunden, dass man die gesamte Zeile kopieren kann und er nimmt die Zeilenhöhe mit. Das ist in meinem Fall aber mit viel Löscharb...
12.03.2011 09:09:39
Thread-ID: 1205376
15 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
4
2
8
11
4
2
5
2
14
2
2
7
9
3
4
1
1
3
6
17
6
5
3
6